طريقة الانتقال

[nogom]

السلام عليكم يعطيكم العافية ياشباب

عندي فورم مسوي فيه كومبو بوكس  ومصدرو الجدول  ومسوي زر مجرد الضغط عليه يسجل ماتم اختياره في الكومبو بوكس على التكست بوكس

اريد انا اذا كان حقل التكست بوكس مشغول ( ممتلأ ) يروح للحقل التالي 

انا مسوي مجموعة من حقول التكست

 

[kaser906]

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

استخدم دالة

if Not(isNull(me.text1))then
me.text2.SetFocus
End if

::بالتوفيق::

[nogom]

شكرا على مرورك ورد علي طلبي

ولكن شوف الصورة المرفقة 

ووضفعت هذا الكود على الزر اضافة الامر شغال وكلة تمام ولكن

If IsNull(Me.Text183) Then
Me.Text183 = Me.Combo181.Column(0)
Me.Text183.Visible = True
Me.Image218.Visible = True
Me.Combo181 = Null
ElseIf Not IsNull(Me.Text183) And IsNull(Me.Text185) Then
Me.Text185 = Combo181.Column(0)
Me.Text185.Visible = True
Me.Image219.Visible = True
Me.Combo181 = Null

Else
MsgBox "Please write the rest of the projects to be added in the notes", vbInformation, "Warning"
DoCmd.CancelEvent
End If

ولكن

مثلا اذا كان الحقول جميعها ممتلأه وقمت بحذف الرقم 5 كما بالصورة

اريد عندما يتم حذف اي احد من العناصر يترتب كما بالصورة 

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

اريد هذه الرسالة لا تظهر إلى بعد ان تكون هذه الحقول كلها ممتلأ وعندما يتم حذف اي من هذه الحقول لا تظهر الرسالة مع امكانية الاضافة في هذه الحقول

 

ايضا لما اقوم بمسح حقل واريد الاضافة يتباع على اخر حقل اضافته 

يعني ضفت رقم 1 و 2 و 3 وقمت بمسح رقم 3

وجيت اضيف يضيف حقل 4 وليس 3 

تم تعديل أغسطس 2, 2018 بواسطه nogom

[nogom]

ياريت احد يفيدني

 

[kaser906]

6 ساعات مضت, nogom said:

شكرا على مرورك ورد علي طلبي

أخي الكريم

كانت اجابتي علر قدر سؤالك الاول

الان طلبك اختلف تماما

::بالتوفق::