O CÓDIGO ABAIXO MOSTRA COMO COMPARAR SE JÁ EXISTE UM REGISTRO ATRAVÉS DE UM UNICO CAMPO
O QUE EU PRECISO É UM RESULTADO ATRAVÉS DA COMPARAÇÃO ENTRE DOIS CAMPOS EX:
TABELA CLIENTES DA ORDEN DE FABRICAÇÃO
CAMPO 1
CÓDIGO DA ORDEN DE FABRICAÇÃO
CAMPO 2
CLIENTE DA ORDEN DE FABRICAÇÃO
COMPARAR ATRAVÉS DO CÓDIGO E DO CLIENTE SE JÁ EXISTE O CLIENTE NESTA ORDEM .
OBS: CÓDIGO DA ORDEN DE FABRICAÇÃO É NUMÉRICO A DESCRIÇÃO TEXTO
If Me.AllowEdits = True Then
If DLookup("[CRACHA]", "COL", "[CRACHA]='" & Me!CRACHA & "'") > Empty Then
MsgBox "O crachá já existe, escolha outro ! ", vbInformation, "Crachá existente"
Me.CRACHA.SetFocus
Exit Sub
End If
O QUE EU PRECISO É UM RESULTADO ATRAVÉS DA COMPARAÇÃO ENTRE DOIS CAMPOS EX:
TABELA CLIENTES DA ORDEN DE FABRICAÇÃO
CAMPO 1
CÓDIGO DA ORDEN DE FABRICAÇÃO
CAMPO 2
CLIENTE DA ORDEN DE FABRICAÇÃO
COMPARAR ATRAVÉS DO CÓDIGO E DO CLIENTE SE JÁ EXISTE O CLIENTE NESTA ORDEM .
OBS: CÓDIGO DA ORDEN DE FABRICAÇÃO É NUMÉRICO A DESCRIÇÃO TEXTO
If Me.AllowEdits = True Then
If DLookup("[CRACHA]", "COL", "[CRACHA]='" & Me!CRACHA & "'") > Empty Then
MsgBox "O crachá já existe, escolha outro ! ", vbInformation, "Crachá existente"
Me.CRACHA.SetFocus
Exit Sub
End If