معرفة حقل فارغ في نموذج فرعي

[ابو عمار القدسي]

السلام عليكم

اريد كود في النموذج الرئيسي عند الضغط عليه ينبهني ان هناك حقل فارغ في النموذج الفرعي والذي رقم معرفه رقم 5 مثلا 

كما في المرفق

حقل فارغ في النموذج الفرعي.rar

[ابو عمار القدسي]

وهل بالامكان نقل التركيز الى الحقل الفارخ في النموذج الفرعي سواء في السجل الاول او الثاني وهكذا ....

وجزاكم الله الجنة وباعد وجوهكم عن النار

[ابو عمار القدسي]

اعادة للرفع اخواني بارك الله فيكم

[رمهان]

هذه فكرة بدائية

Private Sub أمر196_Click()
Me.rasael_custmer.SetFocus
For i = 1 To 50
If IsNull(Screen.ActiveControl) Then x = MsgBox(Screen.ActiveControl.Name, , Me.rasael_custmer!IDr): Exit For: Me.أمر196.SetFocus
SendKeys "{tab}"
DoEvents
Next
End Sub

بالتوفيق

[ابو عمار القدسي]

اشكرك استاذي رمهان عمل رهيب الله يجزيك الخير وحصل الكطلوب

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

*وما المقصود بالفكرة البدائية 

والشكر موصول لك خاصة وللاخوة المشرفين عامة

عفوا استاذي وهل يمكن التحكم بحقول محددة وليس تعبئة كل الحقول

[يوسف السيد]

الفكرة ممتازة جدا استاذ رمهان

هل يمكن ان يكون اسم الحقل الناقص الذي يظهر بالرسالة بالاسم التوضيحي وليس الاسم الحقيقي بالجدول

وهل العدد من 1 : 50 هو لعدد الحقول الموجودة ام ماذا

[رمهان]

11 ساعات مضت, يوسف السيد said:

الفكرة ممتازة جدا استاذ رمهان

هل يمكن ان يكون اسم الحقل الناقص الذي يظهر بالرسالة بالاسم التوضيحي وليس الاسم الحقيقي بالجدول

وهل العدد من 1 : 50 هو لعدد الحقول الموجودة ام ماذا

تفضل وجزيت خيرا لتنبيه بتعقيب الاخ صاحب السؤال حيث لم ارى استفساره من قبل

Me.rasael_custmer.SetFocus
For i = 1 To 50
If IsNull(Screen.ActiveControl) Then x = MsgBox(Screen.ActiveControl.Controls(0).Caption, , Me.rasael_custmer!IDr): Exit For: Me.ÃãÑ196.SetFocus
SendKeys "{tab}"
DoEvents
Next

والعدد هو عدد خلايا النموذج الفرعي وعبارة عن عدد الحقول مضروب بعدد السجلات ولكن اختصرت العدد

تحياتي

[يوسف السيد]

سلمت يمينك استاذ رمهان

جزاك الله خيرا