[Resolvido]Dlookup puxa somente primeiro registro

meu amigos tudo bem?


estou com uma duvida...

preciso que o dlookup ou ate mesmo uma query que busca se existe um nome inserido dentro do conjunto de ID iguais

exemplo

id_geral | programa
1          |  X
1          |  Y
1          |  Z
1          |  XY



Dentro de um forms de cadastro preciso validar se ja existe o nome do PROGRAMA para o ID_GERAL

Código:


dim ValidInsert as string

ValidInsert = dlookup("PROGRAMA", "TABELA DE PROGRAMAS", "ID_GERAL=" & FORMS!FORMULARIODECADASTRO!ID_GERAL)


if txtprograma = ValidInsert then
msgbox "programa cadastrado ao prestador", vbinformation
end if


só que o dlookup busca somente a primeira informação e as vezes o que esta dentro do txt pode ser por exemplo o Y
e o validInsert buscou primeiro nome que é X

como proceder no caso?

abraços

Olá maguim,

Tente com um botão:

Código:



Private Sub FiltrarPrograma()
On Error Resume Next
Dim intID As Integer
Dim strPrograma As String

intID = Me.ID_GERAL
strPrograma = Dlookup("PROGRAMA","TABELA DE PROGRAMAS","ID_GERAL = " & intID)

    Me.Filter = "PROGRAMA = '" & strPrograma & "'"
    Me.FilterOn = True
    
End Sub

Private Sub cmdFiltar()
Call FiltrarPrograma
End Sub


mestre

boa tarde!


Desculpa a ignorancia, mas nao entendi mto o codigo que propos...

poderia fazer um exemplo simples pf...


abraços.

Atenção que o nome da tabela tem espaços.

@jp

tudo bem?


na vdd é só um exemplo o código. Não é o código real que estou usando. Tomei como uma base dinâmica de exemplo para servir para muitos outros criteiros que tenho no meu projeto.


abraços

Olá Maguim,

Seria mais fácil se você postasse um exemplo do seu bd por favor. Fiz uma pequena modificação no código. Na verdade, preparei o código sem realizar quaisquer testes, mas pura intuição do que você deseja. Com o programa, vai ser melhor realizar mais testes.

@good guy mestre!
@jp


Consegui resolver essa semana isso, na vdd eu criei um variavel com dois criterios em DLOOKUP.


obrigados a todos