Funcao desvinculada

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")"

up

alguem consegue me ajudar?

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


call DMinX(NomeCampo,Nometabela,Filtro)

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

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

Tipo Incompativel de argumento byref

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