[Resolvido]fazer comparação entre duas variaveis através do resultado de select em vba

Ola pessoal voltei com meus "como"

Gostaria de saber COMO realizar um select em vb que armazene o resultado em uma variavel para eu poder comparar essa variavel com uma outra obitida a partir de uma caixa de texto e caso satisfaça o IF, desfazer os dados inserifdos no form já tentei algo feito pelo Avelino sampaio (Exemplo abaixo) mas não funcionou (burrice minha de certo)

Ex:
Private Sub NumeroDoc_BeforeUpdate(Cancel As Integer)

Dim db As DAO.Database
Dim rs As DAO.QueryDef

Dim strSQL As String
Dim Atual As String
Dim Selecao As String

' Pegar e armazenar o valor que acabou de ser inserido na caixa de texto
Atual = Me.NumeroDoc

Set db = CurrentDb
Set rs = db.QueryDefs("PesquisaQuery")

rs.SQL = "SELECT Num_doc FROM tbldocexter WHERE Tipo = " & Me!Combinação91 & " AND Origem = " & Me!Combinação148 & ""

DoCmd.OpenQuery "PesquisaQuery"

' fazer a comaração entre as variaveis
' ex: if variavel Atual = ao resultado do select então desfazer

Set rs = Nothing
Set db = Nothing

End Sub

Porque não utiliza o Dlookup neste caso? Creio ser mais indicado...

Variavel1 = Dlookup("Num_doc, "tbldocexter" "Tipo = " & Me!Combinação91 & " AND Origem = " & Me!Combinação148 & "")

Algo assim...

Cumprimentos.

Tentei assim mas deu erro!!!!

Private Sub NumeroDoc_beforeupdate(Cancel As Integer)

Dim CONSUL As String
Dim Atual As String

Atual = Me!NumeroDoc

CONSUL = DLookup("[Num_doc]", "[tbldocexter]", "[Tipo] = " & Me!Combinação91 & " AND [Origem] = " & Me!Combinação148 & "")

End Sub

Se possível sisponibilize seu BD para que possamos ver.

Cumprimentos.

Tô mandando o Exemplo!

Access 2007

Caso haja um valor no campo Num_doc igual ao valor atual da varial NumeroDoc o Sistema apresenta mensagem "doc ja registrado e desfaz

Ex:se Dlookup retorna Nº doc = [color=red]2058/12[/color], com os parametros Tipo = COmbinação93 and Origem = Combinação148,pega isso e caso a Caixa de Texto Numerodoc.value = 2058/12 então documento ja foi cadastrado Desfazer

Private Sub NumeroDoc_beforeupdate(Cancel As Integer)

Dim CONSUL As String
Dim Atual As String

Atual = NumeroDoc.Value
CONSUL = Nz(DLookup("Num_doc", "tbldocexter", "Tipo = '" & Me!Combinação91.Value & "' AND Origem = '" & Me!Combinação148.Value & "'"), "")
If CONSUL <> "" Then
MsgBox "Já cadastrado", vbInformation, "Documento Existente"
Exit Sub
Else
MsgBox "Codigo a ser executado"
End If
'aqui ira condição

'If COSUL = ATUAL then .... mensagem documento ja cadastrado deseja confirmar suplicidade ?...

End Sub

Uma variável não aceita ser carregada com um valor nulo, portando trato o DLookup com o NZ e em caso de valor não existente (Nulo) a variável é carregada com um valor em branco >>>> ""

Depois checo a variável... se <> de ""... ou seja.. se encontrado registro coincidente emite msgBox e sai do código


Cumprimentos.

Valeu amigão era mais ou menos isso msmo que eu precisa a condição é coisa simples acho que consigo fazer muito grato

O Fórum agradece o Retorno.