تعديل كود عدم الانتقال من الحقل الا بعد تحقق الشرط

[elkareee]

السلام عليكم

عندى نموذج به حقل معين اضفت له الشرط التالى

Private Sub Combo24_BeforeUpdate(Cancel As Integer)
If Me.com <> DLookup("[Ameen1]", "tbl", "Warehouse=combo24") Then
MsgBox "غير مصرح لك"
End If
End Sub

وظيفة الكود التحقق من الشرط السابق وفعلا الرسالة بتطلع لكنه بيكمل وينتقل لحقل أخر المطلوب انه يطلع الرسالة ولا ينتقل من الحقل الا بعد ما الشرط السابق يتحقق عكسه شكرا جزيلاً

هناك طلب اخر اذا تكرمتم مطلوب كود يعد تلقائى عدد مرات فتح النموذج يعنى بمجرد الفتح الرقم يزيد 1 وهكذا جزاكم الله خير

 

[محمدنجار]

2 ساعات مضت, elkareee said:

السلام عليكم

عندى نموذج به حقل معين اضفت له الشرط التالى

Private Sub Combo24_BeforeUpdate(Cancel As Integer)
If Me.com <> DLookup("[Ameen1]", "tbl", "Warehouse=combo24") Then
MsgBox "غير مصرح لك"
End If
End Sub

وظيفة الكود التحقق من الشرط السابق وفعلا الرسالة بتطلع لكنه بيكمل وينتقل لحقل أخر المطلوب انه يطلع الرسالة ولا ينتقل من الحقل الا بعد ما الشرط السابق يتحقق عكسه شكرا جزيلاً

هناك طلب اخر اذا تكرمتم مطلوب كود يعد تلقائى عدد مرات فتح النموذج يعنى بمجرد الفتح الرقم يزيد 1 وهكذا جزاكم الله خير

 

::: كونك لم تضع بعد الرسالة ماذا تريد ان تفعل فمن الطبيعي الاستمرار .... عليك معرفة ماذا تريد عند تحقق الشرط .. تحياتي

تم تعديل ديسمبر 21, 2016 بواسطه محمدنجار

[elkareee]

49 دقائق مضت, محمدنجار said:

::: كونك لم تضع بعد الرسالة ماذا تريد ان تفعل فمن الطبيعي الاستمرار .... عليك معرفة ماذا تريد عند تحقق الشرط .. تحياتي

شكرا على مرورك اخى ولكنى جربت ووضعت الأمر التالى بعد الرسالة

me.compo24.dropdown

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

[elkareee]

up

[Shivan Rekany]

4 ساعات مضت, elkareee said:

السلام عليكم

عندى نموذج به حقل معين اضفت له الشرط التالى

Private Sub Combo24_BeforeUpdate(Cancel As Integer)
If Me.com <> DLookup("[Ameen1]", "tbl", "Warehouse=combo24") Then
MsgBox "غير مصرح لك"
End If
End Sub

وظيفة الكود التحقق من الشرط السابق وفعلا الرسالة بتطلع لكنه بيكمل وينتقل لحقل أخر المطلوب انه يطلع الرسالة ولا ينتقل من الحقل الا بعد ما الشرط السابق يتحقق عكسه شكرا جزيلاً

سامحوني اشارك معكم
اخي الكريم
خلي هذا الكود بدل ذلك

Private Sub Combo24_BeforeUpdate(Cancel As Integer)
If Me.com <> DLookup("[Ameen1]", "tbl", "Warehouse=combo24") Then
me.combo24.setfocus
MsgBox "غير مصرح لك"
End If
End Sub

 

4 ساعات مضت, elkareee said:

هناك طلب اخر اذا تكرمتم مطلوب كود يعد تلقائى عدد مرات فتح النموذج يعنى بمجرد الفتح الرقم يزيد 1 وهكذا جزاكم الله خير

ممكن تشرح اكثر
يعني تريد تزيد رقم 1 على اي شي اي حقل وفي اي وقت بالظبط

مع تقدير

[elkareee]

1 دقيقه مضت, Shivan Rekany said:

سامحوني اشارك معكم
اخي الكريم
خلي هذا الكود بدل ذلك

Private Sub Combo24_BeforeUpdate(Cancel As Integer)
If Me.com <> DLookup("[Ameen1]", "tbl", "Warehouse=combo24") Then
me.combo24.setfocus
MsgBox "غير مصرح لك"
End If
End Sub

 

 

تشرفنا بمشاركتك اخى الكريم

جربت وظهر الخطأ التالى

2 دقائق مضت, Shivan Rekany said:

ممكن تشرح اكثر
يعني تريد تزيد رقم 1 على اي شي اي حقل وفي اي وقت بالظبط

مع تقدير

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

[Shivan Rekany]

40 دقائق مضت, elkareee said:

تشرفنا بمشاركتك اخى الكريم

جربت وظهر الخطأ التالى

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

ممكن ترفق الملف او جزء المطلوب منه

[ابوخليل]

اخوتي الكرام

يجب انتقاء عنوان مناسب  يصف المسألة  ، حتى لاتعرضون مواضيعكم للاغلاق

[elkareee]

16 ساعات مضت, Shivan Rekany said:

ممكن ترفق الملف او جزء المطلوب منه

تم حل مشكلة الرسالة أخى الكريم المطلوب الأن موضوع العداد لفتح النموذج مشكور