MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 408
    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 : 408
    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 : 408
    Registrado : 30/08/2010

    Re: Funcao desvinculada

    Mensagem  NADIRONUNES em Qua 11 Maio 2016, 14:27

    alguem consegue me ajudar?

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2333
    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!

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    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


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 408
    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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    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


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 408
    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: Sab 10 Dez 2016, 06:52