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 03 Maio 2016, 15: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 09 Maio 2016, 14: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 2016, 14:27

    alguem consegue me ajudar?
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Funcao desvinculada

    Mensagem  FabioPaes em Qua 11 Maio 2016, 15: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 : 3399
    Registrado : 04/04/2010

    Re: Funcao desvinculada

    Mensagem  Avelino Sampaio em Qua 11 Maio 2016, 16: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 2016, 17: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 : 3399
    Registrado : 04/04/2010

    Re: Funcao desvinculada

    Mensagem  Avelino Sampaio em Qua 11 Maio 2016, 18: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 2016, 19:44

    Tipo Incompativel de argumento byref

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

      Data/hora atual: Dom 22 Out 2017, 13:06