Estou com um problema para validar um campo num formulário access utilizando vba.
O que eu quero é que a tabela Teste de Bd seja percorrida do primeiro ao último registro e encontrando a condição proposta não permita a inserção de novo registro.
O código é o seguinte:
Public Sub Matrícula_AfterUpdate()
Dim d As Database
Dim r As Recordset
Set d = CurrentDb
Set r = d.OpenRecordset("Teste de BD", dbOpenTable)
r.MoveFirst
Do Until r.EOF
If Baixa = False And Matrícula = Me![Matrícula] Then
MsgBox "Existe registro não baixado para este servidor." & Chr(13) & "Baixe o registro antes de fazer outro."
Me![Matrícula].SetFocus
End If
r.MoveNext
Loop
r.Close
Set d = Nothing
Exit Sub
End Sub
Mas não está funcionando: Aparece a msg de erro e não há o teste efetivo da condição.
Pergunta
Guest --cheikspirit --
Estou com um problema para validar um campo num formulário access utilizando vba.
O que eu quero é que a tabela Teste de Bd seja percorrida do primeiro ao último registro e encontrando a condição proposta não permita a inserção de novo registro.
O código é o seguinte:
Public Sub Matrícula_AfterUpdate()
Dim d As Database
Dim r As Recordset
Set d = CurrentDb
Set r = d.OpenRecordset("Teste de BD", dbOpenTable)
r.MoveFirst
Do Until r.EOF
If Baixa = False And Matrícula = Me![Matrícula] Then
MsgBox "Existe registro não baixado para este servidor." & Chr(13) & "Baixe o registro antes de fazer outro."
Me![Matrícula].SetFocus
End If
r.MoveNext
Loop
r.Close
Set d = Nothing
Exit Sub
End Sub
Mas não está funcionando: Aparece a msg de erro e não há o teste efetivo da condição.
O que será que está errado?
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.