كيف يتم نقل التركيز لحقل فارغ في السجل داخل الفورم

استاذنا بو يوسف الراشد

السلام عليكم ورحمة الله وبركاته

اتمنى من الله ان يكون هذا هو الحل الصحيح للمشكلة فقد تم اعداد الكود خطوه بخطوه بناء على شرحك السابق ستجد في المرفق الشرح الكامل عموما تم اعداد نموذج بناء على جدول t1 ومن ظمن الحقول رقم الهويه الان اكتب في جميع الحقول معلومات عدى حقل رقم الهويه هذا الكود تستطيع ان تنتقل فيه بحرية بين الحقول ولا يقيدك بحقل معين اي لا ينتقل الى حقل اخر الا ولابد ان تكتب فيه ولكن هنا مختلف كما اشرنا سابقا اترك حقل رقم الهوية خاليا من المعلومات ثم اضغط على زر الطباعة ماذا سيحدث ستخرج لك رسالة تقول " يا بو يوسف الراشد لقد تركت حقلا فارغا " ثم ينتقل المؤشر مباشرة الى حقل رقم الهوية واذا لم تقم بتعبئته فأنه لا يطبع ولا يتم الحفظ كما تم اعداد تقرير بذلك

اين تم وضع الكود

تم حشر الكود في امر الطباعة وقد تنفيذ ارسال التقرير الى الطابعة للطباعة هنا يتوقف واذا تم ادخال البيانات كاملة فستتم الطباعة بشكل سليم واليك الكود وهو موجود في امر الطباعة ابتداء بالسطر الثاني وحتى السطر الحادي عشر

Private Sub Print_Click()
Dim ctlTextbox As Control
   For Each ctlTextbox In Me.Controls
   If ctlTextbox.ControlType = acTextBox Then
   If IsNull(ctlTextbox) Then
   MsgBox "بو يوسف الراشد لقد تركت أحد مربعات النص فارغاً"
   ctlTextbox.SetFocus
   Exit Sub
   End If
   End If
   Next ctlTextbox
   MsgBox "جميع مربعات النص بها قيم "
On Error GoTo Err_Print_Click

    Dim stDocName As String

    stDocName = "t1"
    DoCmd.OpenReport stDocName, acNormal

Exit_Print_Click:
    Exit Sub

Err_Print_Click:
    MsgBox Err.Description
    Resume Exit_Print_Click
    
End Sub

اختكم

زهره

التركيز على الحقل الفارغ مع رسالة.rar

جزاك الله خيرا يا اخت زهرة وبارك الله فيك وفي جهدك

لكن طلبي يختلف قليلا عن المثال الذي وضعتيه

في مثالك المرفق (مشكورة) إذا تركت حقلا فارغا في السجل رقم (1) ثم انتقلت إلى السجل رقم (2) وأمليت كل الحقول فإن الطباعة سوف تتم....

طلبي هو عندما أترك حقل فارغ في السجل رقم (1) ثم أقوم بإدراج عدة سجلات مع تعبئة كل الحقول فيها

وعندما أضغط على زر الطباعة تخرج رسالة بانه يوجد حقل فارغ

ثم ينتقل التركيز إلى الحقل رقم (1) والذي فيه حقلاً فارغاً

أرجو أن يكون مطلبي واضحا...

الاستاذ بو يوسف الراشد

جرب الان بعد التعديل وحاول تنتقل للسجل الثاني بعد ترك رقم الهوية فارغ او حاول الطباعة انا في انتظار ردك

التركيز على الحقل الفارغ مع رسالة.rar

لم تنجح العملية حتى الآن .....

لأن مثالك مقتصر على التركيز في الحقل نفسه

وعند ترك أحد الحقول فارغ في السجل وثم الانتقال إلى سجل آخر

ثم ضغط زر الطباعة فإن الضغط لا يعمل على جميع الحقول وإنما يعمل مع السجل الحالي فقط..

لقد قمت بمشاهدة الكود الخاص بأمر الطباعة.

لو تلاحظين أن الكود التالي والذي وضعتيه :

Dim ctlTextbox As Control
   For Each ctlTextbox In Me.Controls
   If ctlTextbox.ControlType = acTextBox Then
   If IsNull(ctlTextbox) Then
   MsgBox "لقد تركت أحد المربعات فارغاً"
   ctlTextbox.SetFocus
   Exit Sub
   End If
   End If
   Next ctlTextbox
   MsgBox "جميع مربعات النص بها قيم "

يقتصر فقط على السجل الحالي

نحن نحتاج إلى كود يجعل الملف ينتقل إلى السجل الذي به حقل الفارغ

الاخ بو يوسف الراشد

شكرا على التنبيه

لقد كان تركيزي كله منصب على الحقل الفارغ في السجل الحالي ولم افهم قصدك انك ترغب ان يتم ذلك لاي حقل فارغ في الفورم ويكون الحث بعد الضغط على امر الطباعة تخبرك بأن هناك حقول في السجلات عموما فارغه يجب تعبأتها عموما هنك حل مؤقت لهذه المشكلة وهي تتلخص في التالي

1. افتح الجدول الخاص بالفورم وهو t1 في عرض التصميم

2. اجعل خاصية جميع الحقول عدى الرقم المعرف تأخذ خاصية مطلوب نعم

3. احفظ الجدول واخرج

4. انتقل الى النموذج واكتب بياناتك عادى في عدد من السجلات ولنقل 4 الى خمسة سجلات واثناء الكتابة اترك بعض العناصر فارغ مثلا 1 الى 2

5. اضغط امر الطباعة ستظهر لك رسائل بكل الحقول الفارغة التي بجب تعبئتها

6. انا الان اقوم بإعداد كود جديد لهذه العملية

اختكم

زهره

أخي الكريم ،،، السلام عليكم ورحمة الله وبركاته

إقتباس

اقتباس

لو تلاحظين أن الكود التالي والذي وضعتيه : يقتصر فقط على السجل الحالي

نحن نحتاج إلى كود يجعل الملف ينتقل إلى السجل الذي به حقل الفارغ

هل تقصد أنك تحتاج أن يختبر جميع السجلات إبتدائاً من السجل الأول ، في حال وجود

حقلاً فارغاً يمتنع عن الطباعة ، وتخرج لك رسالة ، ثم التركيز على الحقل الفارغ .

عملت تعديلاً بسيطاً على الكود الذي تم وضعه من الأخت / زهره .

مرفق المثال ،،، تصفحه عسى أن يفي بالغرض .

تحياتي : أبو عقيل

:)

التركيز على الحقل الفارغ مع رسالة.rar

هذا هو مطلبي فعلاً :D :D

جزاك الله خيرا يا خبيرة الآكسس

زهرة

جزاك الله خيرا يا مشرفنا

أبو عقيل

حياك الله أخي الكريم ،،، بالتوفيق إن شاء الله

الشكر موصول لأختنا زهره .

تحياتي : أبو عقيل

:D

السلام عليكم ورحمة الله وبركاته

عندي سؤوال في نفس الموضوع ,

ماهو الكود إذا ابغى تظهر لي رسالة قبل الذهاب للسجل التالي "بأن هناك حقول فارغة " إذا كان الحقلين (الأسم ورقم الهوية) فقط فارغة ؟؟؟