Boa noite pessoal, no meu exemplo que estou enviando em anexo, no campo1 após atualizar, eu coloquei a linha de comando para verificar, se o registro existe, se existir ele dispara uma mensagem dizendo que já existe e zera o valor, se não existir, ele carrega os outros campos. Até aí tudo bem, mas notei que se eu faço o primeiro registro, eu seleciono por exemplo "f1" no campo1, ele carrega os outros campos e tudo bem, aí eu salvo o registro, e no campo1 seleciono um outro item na mesma linha do registro salvo, e depois seleciono o mesmo item "f1", ele executa o código, diz que o registro já existe e zera o campo, mas como ele mesmo é o "f1" era para permitir a seleção do item, já que ele esta na mesma linha do campo, tem como contornar isso?
O código que eu usei:
If (Not IsNull(DLookup("[campo1]", "tabela2", "[campo1] ='" & Me!Campo1 & "'"))) Then
MsgBox "O produto já está cadastrado na tabela Produtos.", vbInformation, "Produtos"
Cancel = True 'cancela o evento.
Me.Campo1.Value = ""
Else
Me.txtCampo1 = DLookup("[Campo1]", "tabela1consulta", "[Campo1]= '" & Me.txtCampo1 & "'") '
Me.txtCampo2 = DLookup("[campo2]", "tabela1consulta", "[Campo1]= '" & Me.txtCampo1 & "'") '
End If
No bd que eu estou editando (já que o exemplo é apenas a versão simplificada) estou me deparando com um erro em tempo de execução 2115 também, e não entendo o porque da coisa, se alguém puder ajudar.
Obrigado
O código que eu usei:
If (Not IsNull(DLookup("[campo1]", "tabela2", "[campo1] ='" & Me!Campo1 & "'"))) Then
MsgBox "O produto já está cadastrado na tabela Produtos.", vbInformation, "Produtos"
Cancel = True 'cancela o evento.
Me.Campo1.Value = ""
Else
Me.txtCampo1 = DLookup("[Campo1]", "tabela1consulta", "[Campo1]= '" & Me.txtCampo1 & "'") '
Me.txtCampo2 = DLookup("[campo2]", "tabela1consulta", "[Campo1]= '" & Me.txtCampo1 & "'") '
End If
No bd que eu estou editando (já que o exemplo é apenas a versão simplificada) estou me deparando com um erro em tempo de execução 2115 também, e não entendo o porque da coisa, se alguém puder ajudar.
Obrigado
- Anexos
- exemplo.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (46 Kb) Baixado 7 vez(es)