السلام عليكم ورحمة الله وبركاته
مرحبا بكم مرة اخرى
عندي حقل na_f اريد ان يلتزم المستخدم بادخال قيمه فيه ووضعت رساله تفيد بعدم ترك الحقل فارغا الا انه بعد الضغط على موافق ينتقل الى الحقل الذي يليه علما انني اريد يرجع الى نفس الحقل السابق
وضعت هذا الكود
Else
'Me.Undo
'DoCmd.GoToRecord , , acGoTo
DoCmd.GoToControl ("[f0001]")
End If
طبعا هذا الكود هو جزء من الرساله الا انه ينتقل الى الحقل الذي يليه
ليه العطر وانتي انفاسك دخــــون وليه الكحل وانتي ماغيرك عيون
sun-alwadi@hotmail.com
If (IsNull(Forms![c_data]![COPY_NM])) Then
MsgBox "يجب ادخال مسار الملفات ", 64, " رسالة خطأ"
Forms![c_data]![COPY_NM].SetFocus
Exit Sub
End Ifأعتقد أنك ربما تحتاج للأمر الخاص بإلغاء العملية إذا لم يتحقق الشرط
======
DoCmd.CancelEvent
======
وتقبل تحياتي
اشكركم جزيل الشكر
الاخ محمد طاهر شكرا لك قمت بعمل الكود الذي ارسلته بس نفس المشكله ينتقل للحقل الذي يليه
Private Sub d_fat_Exit(Cancel As Integer)
If (IsNull(Forms![seals_ff]![d_fat])) Then
MsgBox "ادخل التاريخ ", 64, " رسالة خطأ"
Forms![seals_ff]![d_fat].SetFocus
Exit Sub
End If
End Sub
ليه العطر وانتي انفاسك دخــــون وليه الكحل وانتي ماغيرك عيون
sun-alwadi@hotmail.com
Private Sub Text5_BeforeUpdate(Cancel As Integer)
If (IsNull(Forms![FORM2]![Text5])) Then
MsgBox "MSG TEXT", 64, " ERROR MESSAGE"
Cancel = True
SendKeys "{esc}"
Exit Sub
End If
End Subاو بصفة عامة
لوقف الحركة بعد ال ENTER
أدوات TOOLS
خيارات OPTIONS
KEYBOARD
MOVE AFTER ENTER
DON'T MOVE
الاخ محمد طاهر
اشكرك جزيل الشكر والله يعطيك العافيه
ليه العطر وانتي انفاسك دخــــون وليه الكحل وانتي ماغيرك عيون
sun-alwadi@hotmail.com
هذا الموضوع مغلق.