سلام برای من تو یکی از برنامههام اینجوری درست کار میکنه البته به جای msgbox فرم باز میکنه برای من البته رنگ اون فیلدهایی هم که خالی هست رو عوض میکنه.
If IsNull([AmountIncome]) Or [AmountIncome] = "" Or IsNull([dateofincome]) Or [dateofincome] = "" Then DoCmd.OpenForm "frmmsginfo"
With Form_frmMsgInfo
.Label1.Caption = "ÝíáÏåÇí ãÔÎÕ ÔÏå ʘãíá ÔæäÏ"
.Label2.Caption = ".áØÝÇð ÈÑÑÓí äãÇííÏ."
.Caption = " ʘãíá ÇØáÇÚÇÊ!!"
End With
Me.AmountIncome.BackColor = vbYellow
Me.dateofincome.BackColor = vbYellow
Else
Me.AmountIncome.BackColor = vbWhite
Me.dateofincome.BackColor = vbWhite
DoCmd.GoToRecord , , acNewRec
End If