MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Funcao desvinculada

    Compartilhe

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 414
    Registrado : 30/08/2010

    Funcao desvinculada

    Mensagem  NADIRONUNES em Ter 3 Maio - 10:16

    como usar essa funçao

    Public Function DMinX(NomeCampo As Variant, nomeTabela As Variant, Optional filtro As String = "") As Variant
    Dim rs As DAO.Recordset
    On Error GoTo trataerro
    Dim strSQL As String
    strSQL = "Select Min(" & NomeCampo & ") AS k FROM " & nomeTabela & IIf(filtro = "", ";", " WHERE " & filtro & ";")
    Set rs = CurrentDb.OpenRecordset(strSQL, 4)
    rs.MoveFirst
    DMinX = rs!k
    rs.Close
    Set rs = Nothing
    sair:
    Exit Function
    trataerro:
    Select Case Err.Number
    Case 3061: MsgBox "DMinX - Campo inexistente...", vbInformation, "Aviso"
    Case 3031: MsgBox "DMinX - Conexão fechada com a base de dados...", vbInformation, "Aviso"
    Case 3078: MsgBox "DMinX - Tabela inexistente...", vbInformation, "Aviso"
    Case 3464: MsgBox "DMinX - Tipos de dados incopatíveis...", vbInformation, "Aviso"
    Case 3021: DMinX = Null
    Case Else
    MsgBox "DMinX - " & Err.Description & " Nº: " & Err.Number
    End Select
    End Function

    com filtro em data tipo esse

    filtro="Format(me!txDataInicial,"mm/dd/yyyy") & "# AND #" & Format(me!txDataFinal,"mm/dd/yyyy")"

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 414
    Registrado : 30/08/2010

    Re: Funcao desvinculada

    Mensagem  NADIRONUNES em Seg 9 Maio - 9:43

    up

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 414
    Registrado : 30/08/2010

    Re: Funcao desvinculada

    Mensagem  NADIRONUNES em Qua 11 Maio - 9:27

    alguem consegue me ajudar?
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3268
    Registrado : 14/08/2013

    Re: Funcao desvinculada

    Mensagem  FabioPaes em Qua 11 Maio - 10:04

    Não entendi bem essa função... mas tente assim:


    call DMinX(NomeCampo,Nometabela,Filtro)




    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3385
    Registrado : 04/04/2010

    Re: Funcao desvinculada

    Mensagem  Avelino Sampaio em Qua 11 Maio - 11:55

    Olá!

    Está faltando no filtro, o nome do campo a ser filtrado na tabela.  Algo assim:

    filtro="NomeDoCampoASerFiltrado = #" & Format(me!txDataInicial,"mm/dd/yyyy") & "# AND #" & Format(me!txDataFinal,"mm/dd/yyyy") & "#"

    Me!NomeDaCampo = DMinX("NomeCampo","Nometabela",Filtro)

    ou

    NomeDaVariável = DMinX("NomeCampo","Nometabela",Filtro)


    Aguardamos

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 414
    Registrado : 30/08/2010

    Re: Funcao desvinculada

    Mensagem  NADIRONUNES em Qua 11 Maio - 12:50

    Avelino da dando esse erro

    parametro insuficientes. Eram esperado 1

    Dim filtro
    Dim seq As String
    filtro = "data = #" & Format(Me!DataIncial, "mm/dd/yyyy") & "# AND #" & Format(Me!DataFinal, "mm/dd/yyyy") & "#"
    seq = DMinX("nnota", "nfs", "filtro")
    MsgBox seq
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3385
    Registrado : 04/04/2010

    Re: Funcao desvinculada

    Mensagem  Avelino Sampaio em Qua 11 Maio - 13:27

    Filtro não leva as aspas

    seq = DMinX("nnota", "nfs", filtro)

    Acrescente mais um msgbox() para analisar a montagem do filtro

    filtro = "data = #" & Format(Me!DataIncial, "mm/dd/yyyy") & "# AND #" & Format(Me!DataFinal, "mm/dd/yyyy") & "#"
    MsgBox filtro
    seq = DMinX("nnota", "nfs", "filtro")
    MsgBox seq

    Aguardamos

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 414
    Registrado : 30/08/2010

    Re: Funcao desvinculada

    Mensagem  NADIRONUNES em Qua 11 Maio - 14:44

    Tipo Incompativel de argumento byref

    deu esse errro nesta linha e marcou o nome filtro
    seq = DMinX("nnota", "nfs", filtro)

      Data/hora atual: Sex 18 Ago - 12:29