فیلد اجباری در اکسس

				
					Public Sub zaravandplusReq()
‘zaravandplus.ir
Dim ctrl As Control
Dim Msg As String
Msg = ChrW(۱۶۰۴) & ChrW(۱۵۹۱) & ChrW(۱۶۰۱) & ChrW(۱۵۷۵) & ” “ & _
ChrW(۱۵۷۵) & ChrW(۱۵۹۱) & ChrW(۱۶۰۴) & ChrW(۱۵۷۵) & ChrW(۱۵۹۳) & _
ChrW(۱۵۷۵) & ChrW(۱۵۷۸) & ” “ & ChrW(۱۵۸۵) & ChrW(۱۵۷۵) & ” “ & _
ChrW(۱۵۷۸) & ChrW(۱۷۰۵) & ChrW(۱۶۰۵) & ChrW(۱۷۴۰) & ChrW(۱۶۰۴) & ” “ & _
ChrW(۱۶۰۶) & ChrW(۱۶۰۵) & ChrW(۱۵۷۵) & ChrW(۱۵۷۴) & ChrW(۱۷۴۰) & _
ChrW(۱۵۸۳) & “.”
For Each ctrl In Screen.ActiveForm
If ctrl.Tag = “star” And Not IsNull(ctrl) Then ctrl.BackColor = vbWhite
If ctrl.Tag = “star” And IsNull(ctrl) Then
ctrl.BackColor = vbYellow
ctrl.SetFocus
MsgBox Msg, vbMsgBoxRight + vbInformation, “zaravandplus.ir”
Exit Sub
End If
Next ctrl
End Sub