Bom dia,
para o mesmo critério os dois campos pertencentes não podem, depois de preenchidos terem o valor de "0", podem no entanto, um ter 0 e o outro 5 ou um ter 10 e o outro 0 mas depois de preenchidos não podem ter o resultado de 0.
Será que posso usar um código parecido a este?
If campo.1 or campo.2 = "0" Then
MsgBox "Este critério não pode ter a ponderação de "0", vbcritical, "Atenção"
Me.Campo1.SetFocus
Cancel = True
End If
Ou algo do genero:
If Is Null (me.campo.1) or Me.campo2.value = "0" Then
MsgBox "Este critério não pode ter a ponderação de "0", vbcritical, "Atenção"
Me.Campo1.SetFocus
End If
Obrigada!
Consegui, depois de umas tentativas o resultado! mostro-vos o codigo:
If simfreqoutraresp.Value = "0" And naofreqoutraresp.Value = "0" Then
MsgBox "Este critério não pode ter a ponderação de 0", vbInformation, "Atenção"
Me.simfreqoutraresp.SetFocus
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, acMenuVer70
Me.Simnaturesidentefreguesia.SetFocus
End If
para o mesmo critério os dois campos pertencentes não podem, depois de preenchidos terem o valor de "0", podem no entanto, um ter 0 e o outro 5 ou um ter 10 e o outro 0 mas depois de preenchidos não podem ter o resultado de 0.
Será que posso usar um código parecido a este?
If campo.1 or campo.2 = "0" Then
MsgBox "Este critério não pode ter a ponderação de "0", vbcritical, "Atenção"
Me.Campo1.SetFocus
Cancel = True
End If
Ou algo do genero:
If Is Null (me.campo.1) or Me.campo2.value = "0" Then
MsgBox "Este critério não pode ter a ponderação de "0", vbcritical, "Atenção"
Me.Campo1.SetFocus
End If
Obrigada!
Consegui, depois de umas tentativas o resultado! mostro-vos o codigo:
If simfreqoutraresp.Value = "0" And naofreqoutraresp.Value = "0" Then
MsgBox "Este critério não pode ter a ponderação de 0", vbInformation, "Atenção"
Me.simfreqoutraresp.SetFocus
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, acMenuVer70
Me.Simnaturesidentefreguesia.SetFocus
End If
Última edição por leila ferreira em 24/10/2013, 13:29, editado 1 vez(es)