لماذا لا يعمل هذا الكود في النموذج الفرعي

[nssj]

الإخوة الكرام .. في الملف المرفق نموذج (3Frm) فيه نموذج فرعي (takhrij) لإدخال البيانات في حقل (takhrij)

وأريد أن يكون إدخال البيانات فيه بثلاث طرق فقط:

1- الاختيار من قائمة منسدلة

2- القص واللصق

3- باستخدام كود عند النقر المزدوج ينقل القيمة المطلوبة من النموذج الرئيسي

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

Private Sub takhrij_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = 13) Or (KeyCode = 9) Or (KeyCode = 8) Or (KeyCode = 46) Then
KeyCode = KeyCode
Else
KeyCode = 0
End If
End Sub

لكن الكود لا يعمل في هذا النموذج الفرعي .. في حين أنه يعمل عند فتح النموذج (takhrij) لوحده

فما هو الخطأ ؟؟

takhrij.accdbFetching info...

[nssj]

🤔 🤔 🤔

[عمر ضاحى]

كنت احب اساعدك 

لكنى لا اكذب عليك 

عندي مشكلتين 

اولا انا مش فاهم حضرتك عاوز تعمل ايه بالظبط 

ممكن تعمل صوره توضح ما تريد مثلا 

 

ثانيا انا ضعيف فى التكويد لكن ان شاء الله لو فهمت ممكن اقدر اساعدك 

[nssj]

  في 20‏/2‏/2022 at 19:18, عمر ضاحى said:

حضرتك عاوز تعمل ايه بالظبط 

Expand  

المطلوب عدم إمكانية الكتابة بالكيبورد في هذا الحقل (takhrij) ولكن الكود المذكور سابقا لا يعمل في النموذج الفرعي وعند استخدام الكيبورد يقوم بالكتابة

  في 20‏/2‏/2022 at 19:18, عمر ضاحى said:

ثانيا انا ضعيف فى التكويد

Expand  

وأنا كمان .. كل اللي بعرفه النسخ واللصق من هنا وهناك 😅

[عمر ضاحى]

  في 21‏/2‏/2022 at 11:29, nssj said:

المطلوب عدم إمكانية الكتابة بالكيبورد في هذا الحقل (takhrij) ولكن الكود المذكور سابقا لا يعمل في النموذج الفرعي وعند استخدام الكيبورد يقوم بالكتابة

وأنا كمان .. كل اللي بعرفه النسخ واللصق من هنا وهناك 😅

Expand  

بالنسبه للجزئيه الخاصه انك تريد ان تمنع الكتابه لا يمكن تطبيقها هنا 

وذلك لان النموذج من نوع ورقة بيانات 

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

 

  في 21‏/2‏/2022 at 11:29, nssj said:

وأنا كمان .. كل اللي بعرفه النسخ واللصق من هنا وهناك 😅

Expand  

ان شاء الله بنساعد بعض لنصل للنتيجه المرغوبه 

ومنها نتعلم من بعض وهذا الهدف الاساسي للمنتدي هنا

 

[عمر ضاحى]

جرب هذا الملف بعد عدم تمكين التعديل فى القائمه 

ويتم اجبار المستخدم على الاختيار شئ من ضمن القائمه فقط

 

takhrij.rarFetching info...

[nssj]

  في 21‏/2‏/2022 at 11:45, عمر ضاحى said:

وذلك لان النموذج من نوع ورقة بيانات

Expand  

ولكن الكود يعمل عند فتح النموذج  (takhrij) لوحده مع انه ورقة بيانات .. وجتى عندما حوله إلى نموذج مستمر الكود لا يعمل في النموذج الفرعي .. يعمل فقط عند فتحه لوحده

  في 21‏/2‏/2022 at 11:58, عمر ضاحى said:

جرب هذا الملف بعد عدم تمكين التعديل فى القائمه

Expand  

جزاك الله خيرا أخي الكريم .. ولكن في هذه الحالة لا أستطيع إدخال البيانات بالنسخ واللصق .. فأحيانا أحتاج لنسخ أرقام معينة ولصقها في هذا الحقل بالفأرة

  في 21‏/2‏/2022 at 11:45, عمر ضاحى said:

ومنها نتعلم من بعض وهذا الهدف الاساسي للمنتدي هنا

Expand  

صدقت أخي الكريم .. نتعلم من بعضا ونتعاون للوصول لأفضل الحلول المتاحة

[عمر ضاحى]

  في 21‏/2‏/2022 at 12:29, nssj said:

ولكن الكود يعمل عند فتح النموذج  (takhrij) لوحده مع انه ورقة بيانات .. وجتى عندما حوله إلى نموذج مستمر الكود لا يعمل في النموذج الفرعي .. يعمل فقط عند فتحه لوحده

جزاك الله خيرا أخي الكريم .. ولكن في هذه الحالة لا أستطيع إدخال البيانات بالنسخ واللصق .. فأحيانا أحتاج لنسخ أرقام معينة ولصقها في هذا الحقل بالفأرة

صدقت أخي الكريم .. نتعلم من بعضا ونتعاون للوصول لأفضل الحلول المتاحة

Expand  

ممكن حضرتك تشرحلى ايه الغرض من الكود علشان اقدر اساعدك فيه 

او ممكن اجد لك كود اخر

[عمر ضاحى]

على الرغم انى مش فاهم ايه الغرض

بس ممكن تجرب تنقل الكود لحدث بعد التحديث او عند التغير

[nssj]

  في 21‏/2‏/2022 at 12:32, عمر ضاحى said:

ممكن حضرتك تشرحلى ايه الغرض من الكود

Expand  

المطلوب هو حصر طريق إدخال البيانات بالطرق الثلاث التي ذكرتها في أول الموضوع وعدم السماح بإدخال البيانات باستخدام الكيبورد، تلافيا للخطأ غير المقصود في الكتابة

هذا الكود الذي وضعته في النموذج أستخدمه كثيرا في أكثر من نموذج ويعمل بشكل جيد .. ولكن لماذا (حضرتو) لا يعمل هنا ؟؟؟

والآن اكتشفت شيئا جديدا .. وأنا بشرب (أبريق شاي بالنعنع 😁) قلت: معقول السبب هو أن النموذج الرئيسي (Frm3)  نموذج منقسم ؟؟ ومع أنها مجرد خاطرة مرت على ذهني كالسراب .. حولت النموذج إلى نموذج مفرد .. والغريب إنو الكود اشتغل 🤔

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

أنا أحب التعامل مع النموذج المنقسم لأنه يتيح لي رؤية الأحاديث قبل وبعد الحديث الحالي الذي يتم عرضه، مع إمكانية التنقل بين الأحاديث فيه واختيار المطلوب ليظهر في المربع الكبير فوق

[عمر ضاحى]

 

  في 21‏/2‏/2022 at 13:08, nssj said:

المطلوب هو حصر طريق إدخال البيانات بالطرق الثلاث التي ذكرتها في أول الموضوع وعدم السماح بإدخال البيانات باستخدام الكيبورد، تلافيا للخطأ غير المقصود في الكتابة

هذا الكود الذي وضعته في النموذج أستخدمه كثيرا في أكثر من نموذج ويعمل بشكل جيد .. ولكن لماذا (حضرتو) لا يعمل هنا ؟؟؟

والآن اكتشفت شيئا جديدا .. وأنا بشرب (أبريق شاي بالنعنع 😁) قلت: معقول السبب هو أن النموذج الرئيسي (Frm3)  نموذج منقسم ؟؟ ومع أنها مجرد خاطرة مرت على ذهني كالسراب .. حولت النموذج إلى نموذج مفرد .. والغريب إنو الكود اشتغل 🤔

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

أنا أحب التعامل مع النموذج المنقسم لأنه يتيح لي رؤية الأحاديث قبل وبعد الحديث الحالي الذي يتم عرضه، مع إمكانية التنقل بين الأحاديث فيه واختيار المطلوب ليظهر في المربع الكبير فوق

Expand  

 

 

بيختلف ان النموذج الفرعي عن النموذج الرئيسي فى طريقة المناداه 

اذا كان الكود موجود فى نموذج فرعي 

وبيتطلب لتشغيله حقل او اى شئ موجود فى النموذج الرئيسي 

هنا لازم تعبر عن ده بمسار كامل للحقل المطلوب او المرتبط 

مثلا 

هناك حقل فى النموذج الرئيسي به رقم الفاتوره 

والبضاعه يتم تسجيلها فى نموذج فرعي

فعند تسجيل البضاعه بيتم ربط الفاتوره (رقمها) بالبضاعه بالمسار كامل 

Forms![اسم النموذج الرئيسي]![اسم الحقل فى النموذج الرئيسي] 

وهكذا 

  في 21‏/2‏/2022 at 13:08, nssj said:

المطلوب هو حصر طريق إدخال البيانات بالطرق الثلاث التي ذكرتها في أول الموضوع وعدم السماح بإدخال البيانات باستخدام الكيبورد، تلافيا للخطأ غير المقصود في الكتابة

Expand  

ما اعذرنى لسه لحد دلوقتى انا مفهمتش ليه عاوز تعمل كده 

ولما بيتم اختاير شئ من القائه التى فى النموذج الفرعي 

ايه ال مفترض يحصل 

 

انا عاوز تشرحلى انت عاوز تعمل ايه (الحدث) (وفين مكان هذا الحدث) وبعد هذا الاختيار او فعل الحدث ايه ال من المفترض ان تظهر نتائجه وفين هتظهر النتائج دي

[nssj]

أخي الكريم .. دعني أصوغ الأمر بشكل آخر بعد الاكتشافات الأخيرة 

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

لكنه لا يعمل في النموذج المنقسم (3frm) في حين أنه يعمل في النموذج المفرد (4frm) كما تراه في المرفق

لماذا يعمل هنا ولا يعمل هناك والكود نفسه والملفات نفسها .. الذي اختلف فقط هو طريقة عرض النموذج ؟؟

ولماذا هذه الظاهرة هي في هذا الكود فقط، بينما الكود الآخر في حدث (عند النقر المزدوج) يعمل بشكل جيد في النموذجين: المنقسم والمفرد ؟؟

وأمر آخر .. أنشأت نموذجا آخر (5Frm) بطريقة عرض (نموذج منقسم) ووضعت فيه هذا الكود

Private Sub takhrij_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Or KeyAscii = 9 Or KeyAscii = 8 Or KeyAscii = 46 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
End Sub

وعمل الكود بشكل جيد

إذا المشكلة هي في كود (KeyDown) مع النموذج المنقسم فقط

وأنا أتطلع لمعرفة السبب والحل إن أمكن ، فليست القضية هي قضية هذا الكود فقط فقد تم استبداله بآخر يقوم بنفس المهمة

ولكن معرفة السبب ستفيدني حتى لا يتكرر الأمر في كود آخر، حيث أنني أستخدم (النموذج المنقسم) كثيرا .. فقد أكون بصدد إنشاء كود وأحاول وأكرر المحاولة لأن الكود لا يعمل ظنا مني أن الخطأ في الكود .. والحقيقة أنه لا يعمل لأن النموذج (نموذج منقسم)

فهل عند أهل الخبرة تفسير لهذه الظاهرة .. أم أنه علي أن أعيد النظر في استخدامي للنموذج المنقسم إذا كان يتسبب بمشاكل في تنفيذ بعض الأكواد

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

takhrij2.accdbFetching info...