Caros colegas, este campo MesReferencia não está aceitando SetFocus. De fato a auto digitação do VBA só me dá como alternativa o ".value". Mas reconhece o mesmo campo para a condição IF.
Se é um campo existente para o Formulário por que o VBA não o reconhece?
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error Resume Next
If Not IsNull(Me.MesReferencia) Then
Else
MsgBox "Preencha o campo Mês, por favor!", vbCritical, "Programando Access com VBA"
Cancel = True
ERRO ====> MesReferencia.SetFocus
Exit Sub
End If
If Not IsNull(Me.Historico) Then
Else
MsgBox "Preencha o campo Histórico, por favor!", vbInformation, "Programando Access com VBA"
Cancel = True
Historico.SetFocus
Exit Sub
End If
End Sub
Agradeço desde já!
At
MPS
Se é um campo existente para o Formulário por que o VBA não o reconhece?
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error Resume Next
If Not IsNull(Me.MesReferencia) Then
Else
MsgBox "Preencha o campo Mês, por favor!", vbCritical, "Programando Access com VBA"
Cancel = True
ERRO ====> MesReferencia.SetFocus
Exit Sub
End If
If Not IsNull(Me.Historico) Then
Else
MsgBox "Preencha o campo Histórico, por favor!", vbInformation, "Programando Access com VBA"
Cancel = True
Historico.SetFocus
Exit Sub
End If
End Sub
Agradeço desde já!
At
MPS