Colegas, boa tarde, me ajudem aqui , fiz um formulário e coloquei condição em cada um ou seja, nenhuma pode estar vazio ,mas no campo tipo anexo a condição "if" não verifica. Alguém poderia me explicar como faço ele funcionar nesse tipo de campo?
Option Compare Database
Private Sub Comando314_Click()
If IsNull(Me.Nome) Then
MsgBox "O campo Nome , é obrigatório", vbInformation, "Aviso"
Me.Nome.SetFocus
Me.Nome.BackColor = 646464
DoCmd.CancelEvent
''
ElseIf IsNull(Me.Combinação47) = True Then
MsgBox "O campo Posição, é obrigatório", vbInformation, "Atenção"
Me.Combinação47.SetFocus
Me.Combinação47.BackColor = 646464
''
ElseIf IsNull(Me.Combinação51) = True Then
MsgBox "O campo Status, é obrigatório", vbInformation, "Atenção"
Me.Combinação51.SetFocus
Me.Combinação51.BackColor = 646464
''
ElseIf IsNull(Me.Foto) = True Then
MsgBox "O campo Foto, é obrigatório", vbInformation, "Atenção"
Me.Foto.SetFocus
Me.Foto.BackColor = 646464
Else
DoCmd.Save
MsgBox " cadastrado com sucesso!", vbInformation + vbOKOnly, " Secretario ADV"
End If
End Sub
Option Compare Database
Private Sub Comando314_Click()
If IsNull(Me.Nome) Then
MsgBox "O campo Nome , é obrigatório", vbInformation, "Aviso"
Me.Nome.SetFocus
Me.Nome.BackColor = 646464
DoCmd.CancelEvent
''
ElseIf IsNull(Me.Combinação47) = True Then
MsgBox "O campo Posição, é obrigatório", vbInformation, "Atenção"
Me.Combinação47.SetFocus
Me.Combinação47.BackColor = 646464
''
ElseIf IsNull(Me.Combinação51) = True Then
MsgBox "O campo Status, é obrigatório", vbInformation, "Atenção"
Me.Combinação51.SetFocus
Me.Combinação51.BackColor = 646464
''
ElseIf IsNull(Me.Foto) = True Then
MsgBox "O campo Foto, é obrigatório", vbInformation, "Atenção"
Me.Foto.SetFocus
Me.Foto.BackColor = 646464
Else
DoCmd.Save
MsgBox " cadastrado com sucesso!", vbInformation + vbOKOnly, " Secretario ADV"
End If
End Sub