Masoud.eh
چهارشنبه 07 تیر 1402, 20:20 عصر
سلام دوستان
کد زیر اخطار خالی بودن فیلد قبل از ذخیره است
مشکلی که داره فیلدهای خالی رو به ترتیب برنمیگردونه، مثلا اگر فیلد های فرم ما به ترتیب نام، نام خانوادگی، نام پدر و شماره ملی باشه
زمان اخطار خالی بودن قاعدتا باید ابتدا خالی بودن فیلد نام چک بشه و بعد نام خانوادگی و ...، ولی این کد بصورت رندوم کار میکنه و مثلا اول فیلد نام پدر رو چک میکنه بعد نام خانوادگی و ...
اساتید لطفا در صورت امکان ممنون میشم مشکل رو برطرف کنید.
Dim ctrl As Control
For Each ctrl In Screen.ActiveForm
If ctrl.Tag = "*" And Not IsNull(ctrl) Then ctrl.BackColor = vbWhite
If ctrl.Tag = "*" And IsNull(ctrl) Then
ctrl.BackColor = vbYellow
ctrl.SetFocus
MsgBoxFa "! لطفا اطلاعات را کامل وارد کنيد", vbOKOnly + vbInformation, "توجــــــــــــــــــــــ ـه"
Exit Sub
End If
Next ctrl
If MsgBoxFa("اطلاعات وارد شده ذخيره شود؟", vbOKCancel + vbMsgBoxRight, "تاييد ذخيره اطلاعات") = vbOK Then
DoCmd.SetWarnings off
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
DoCmd.Requery
Else
Me.Undo
End If
کد زیر اخطار خالی بودن فیلد قبل از ذخیره است
مشکلی که داره فیلدهای خالی رو به ترتیب برنمیگردونه، مثلا اگر فیلد های فرم ما به ترتیب نام، نام خانوادگی، نام پدر و شماره ملی باشه
زمان اخطار خالی بودن قاعدتا باید ابتدا خالی بودن فیلد نام چک بشه و بعد نام خانوادگی و ...، ولی این کد بصورت رندوم کار میکنه و مثلا اول فیلد نام پدر رو چک میکنه بعد نام خانوادگی و ...
اساتید لطفا در صورت امکان ممنون میشم مشکل رو برطرف کنید.
Dim ctrl As Control
For Each ctrl In Screen.ActiveForm
If ctrl.Tag = "*" And Not IsNull(ctrl) Then ctrl.BackColor = vbWhite
If ctrl.Tag = "*" And IsNull(ctrl) Then
ctrl.BackColor = vbYellow
ctrl.SetFocus
MsgBoxFa "! لطفا اطلاعات را کامل وارد کنيد", vbOKOnly + vbInformation, "توجــــــــــــــــــــــ ـه"
Exit Sub
End If
Next ctrl
If MsgBoxFa("اطلاعات وارد شده ذخيره شود؟", vbOKCancel + vbMsgBoxRight, "تاييد ذخيره اطلاعات") = vbOK Then
DoCmd.SetWarnings off
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
DoCmd.Requery
Else
Me.Undo
End If