Colegas, boa noite, 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