[Resolvido]Validação de Dados do Formulário via VBA

Boa Tarde Pessoal,

Preciso de ajuda.

Tenha uma formulário onde insiro as seguintes informações:

codigo, R$, %jan, %fev, etc.

Preciso que no momento que o campo "codigo" perder o foco, o access realize uma verificação onde identifique se o "codigo" não foi digitado anteriormente.

obs.: preciso que esta verificação aconteça no formulário e não na tabela, pois a tabela é vinculada ao BackEnd.

Agradeço desde já.

Abraços.

Luiz Filipe

Não seria isso?

If IsNull(Me.codigo) Or Me.codigo = "" Then
MsgBox "O campo código precisa ser preenchido", vbOkOnly + vbCritical, "Erro"
Me.codigo.SetFocus
End If

Hummmm!

Quase!

Digamos que eu tenha preenchido algumas linhas da seguinte forma:

codigo, R$, %jan, %fev
1 10,00 5% 5%
2 10,00 5% 5%
3 10,00 5% 5%
1 . . . Quando eu digitar novamente o codigo "1" apareça uma msgbox "Codigo já digitado"

Essa validação que preciso.

No evento depois de actualizar do seu campo código

If (Not IsNull(DLookup("[Código]", "NomedaTabela", _
"[Código] ='" & Me!Código & "'"))) Then
MsgBox "O Código já está cadastrado no sistema..." & Código.Text, _
vbInformation, "Aviso"
Cancel = True 'cancela o evento.
Me!Código.Undo 'desfaz a digitação.
End If

Hummm

Não deu certo! Sempre que digita e sai da celula aparece que o codigo ja foi digitado.

Mas vlw vierasoft

Teste assim por favor

If (Not IsNull(DLookup("[Código]", "NomeTabela", _
"[Código] =" & Me!Código))) Then
MsgBox "O xxxxxxxx já está cadastrado no sistema..." & Código.Value, vbInformation, "Aviso"
Cancel = True 'cancela o evento.
Me!Código.Undo 'desfaz a digitação.
End If

Da uma olhado no meu codigo, vai que você identifica o erro!

Private Sub CR_RECEBE_LostFocus()

Dim CRRECEBE As String
Dim CRRECEBE2 As String
Dim NOMECR2 As String
Dim rs As DAO.Recordset
Dim NumeroCR As Long

On Error Resume Next
CRRECEBE = [CR_RECEBE]

Set rs = CurrentDb.OpenRecordset("Select * from [T_G01_SG01_001_E_PARAMETROS_CADASTROSCR] Where [CR]=" & CRRECEBE)
rs.FindFirst "[CR]=" & CRRECEBE
If rs.NoMatch = False Then
CRRECEBE2 = rs![CR]
NOMECR2 = rs![NOME DO CENTRO DE RESULTADO]
End If

Set rs = Me.RecordsetClone

NumeroCR = Me![CR_RECEBE]
rs.FindFirst "[CR_Recebe]=" & NumeroCR

If rs.NoMatch Then

DoCmd.RunCommand acCmdUndo
DoCmd.GoToRecord , , acNewRec
Me![CR_RECEBE] = NumeroCR
Me![FATOR_JANEIRO].SetFocus
[NOME_CR] = NOMECR2
Me!fator.SetFocus

Else

DoCmd.RunCommand acCmdUndo
Me.Bookmark = rs.Bookmark

End If

End Sub

Você testou o que lhe enviei no evento antes de actualizar do campo?

Opa!

Agora sim ! ! !

Reduziu meu cogido pela metade! ! !

Vlw vierasoft

Bom trabalho e obrigado pelo retorno