DPesquisar

[srcastro]

Boa tarde,

Estou a utilizar a função "DPesquisar", num relatório, mas meu código com vários critérios, não funciona. Alguem me consegue ajudar?

Todos os campos são texto, excepto a Espessura que é número.

=DPesquisar("[CodigoSistemaPainel]";"Correspondencia";"[Modelo]='" & [Modelo] & "' and [Vidro]='" & [Vidro] & "' and [Espacador] ='" & [Espacador] & "' and [Triplo] ='" & [Triplo] & "' and [Espessura]=" & [Espessura] ")

[carlosAl]

Bom dia,

quando os campos sao de texto tens de incluri o valor que queres procurar em double quotes. fiz so para o  primeiro campo e teras de adaptar o resto:

Dim x As String
m = "a"
x = DLookup("[CodigoSistemaPainel]", "Correspondencia", "[Modelo]=""" & m & """")