عند الضغط على المفتاح العلوي ينتقل لسجل التاريخ(ممكن؟)

[القادم أعظم]

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

If KeyCode = vbKeyUp Then
Me.Recordset.MovePrevious
End If

ما الاضافة المطلوبة 
وممكن التعديل على المرفق بدون تغيير في الأكواد 

d1.rar

تم تعديل أغسطس 2, 2021 بواسطه القادم أعظم
تعديل المرفق

[qathi]

48 minutes ago, القادم أعظم said:

كيف حالكم 

 

تفضل 

If KeyCode = 83 Then
Me.QuantityS.SetFocus
End If

حيث ان

83 = رقم الزر

QuantityS = اسم الحقل المراد الانتقال الية

 

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

 

أو هذا الملف اضغط على اي مفتاح يظهر رقمه

open form by keys.rar

 

 

[Eng.Qassim]

50 minutes ago, القادم أعظم said:

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

If KeyCode = vbKeyUp Then
Me.Recordset.MovePrevious
End If

ما الاضافة المطلوبة 
وممكن التعديل على المرفق بدون تغيير في الأكواد 

d1.rar 23.19 kB · 0 downloads

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

d1.accdb

[qathi]

10 minutes ago, Eng.Qassim said:

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

هل جربت الكود الذي وضعت في الرد السابق ؟؟

[Eng.Qassim]

21 minutes ago, qathi said:

هل جربت الكود الذي وضعت في الرد السابق ؟؟

مرحبا اخي

الحرف S=83

الحرف T=84

[القادم أعظم]

qathi

Eng.Qassim

أشكركم جزيل الشكر وما قصرتم أبدا
لكن ممكن تجربة الطريقى على النموذج f1

لاني محتاج النموذج نفسه

لأني بصراحة محتاج عند الخروج من حقل الرقم يكون التأشير على الاسم والانتقال لسجل جديد
وضعت كود عند الخروج من الحقل a
Me.sn.SetFocus
DoCmd.GoToRecord , , acNewRec
Me.a.SetFocus

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

[Eng.Qassim]

40 minutes ago, القادم أعظم said:

qathi

Eng.Qassim

أشكركم جزيل الشكر وما قصرتم أبدا
لكن ممكن تجربة الطريقى على النموذج f1

لاني محتاج النموذج نفسه

لأني بصراحة محتاج عند الخروج من حقل الرقم يكون التأشير على الاسم والانتقال لسجل جديد
وضعت كود عند الخروج من الحقل a
Me.sn.SetFocus
DoCmd.GoToRecord , , acNewRec
Me.a.SetFocus

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

جرب المرفق وحسب مافهمته منك .. وخبرنا بالنتيجة

d1.accdb

[القادم أعظم]

بوركت  Eng.Qassim
لكن أريد عند الخروج من الحقل الرقم 

الانتقال الى الاسم ومن ثم الى سجل جديد في نفس اللحطة لو تكرمت

يعني المؤشر يستقر في سجل جديد في الحقل a (الاسم) بعد أن يكون انتقل الى سجل الاسم
ان شاء الله اتكون واضحة

[Eng.Qassim]

1 hour ago, القادم أعظم said:

بوركت  Eng.Qassim
لكن أريد عند الخروج من الحقل الرقم 

الانتقال الى الاسم ومن ثم الى سجل جديد في نفس اللحطة لو تكرمت

يعني المؤشر يستقر في سجل جديد في الحقل a (الاسم) بعد أن يكون انتقل الى سجل الاسم
ان شاء الله اتكون واضحة

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

بالمناسبة .. حول النموذج الى Continuous Forms

تم تعديل أغسطس 2, 2021 بواسطه Eng.Qassim

[القادم أعظم]

منذ ساعه, Eng.Qassim said:

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

 

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

هل من حل 

[Eng.Qassim]

1 hour ago, القادم أعظم said:

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

هل من حل 

 

فيما اعتقد يحتاج كود برمجي لايقاف  Private Sub a_Exit عند التنقل بالاسهم للاعلى والاسفل فأن هناك تناقض بين عمل الكودين

[أبو العقاب]

هل ينفع أن نضع كود الانتقال للسجل السابق والى حقل محدد

عند الضغط على f9  مثلا ام سيعطي نفس النتيجة؟

كحل للمشكلة؟؟

 

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

[kanory]

تحتاج مراجعة الاكواد في النموذج مثلا هذا الكود عند الخروج يتعارض مع ما تريده .....

Me.sn.SetFocus
DoCmd.GoToRecord , , acNewRec
Me.a.SetFocus

 

[Eng.Qassim]

8 minutes ago, kanory said:

تحتاج مراجعة الاكواد في النموذج مثلا هذا الكود عند الخروج يتعارض مع ما تريده .....

Me.sn.SetFocus
DoCmd.GoToRecord , , acNewRec
Me.a.SetFocus

 

استاذنا العزيز @kanory لقد حاولت عدة محاولات . لكن وجدت والله العالم ان هناك تعارض بين ان تبقي التركيز على الرقم وفي نفس الوقت الانتقال للاعلى في السجلات

19 minutes ago, أبو العقاب said:

هل ينفع أن نضع كود الانتقال للسجل السابق والى حقل محدد

عند الضغط على f9  مثلا ام سيعطي نفس النتيجة؟

كحل للمشكلة؟؟

 

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

[kanory]

الكود السابق الحقيقة يعيد المؤشر مرة اخرى لمربع النص المسمى a 

فلا يترك فرصة لعمل مفتاح الاعلى والاسفل ....

[القادم أعظم]

بوركتم جميعا
اذا نقول  لا يوجد لها حل ؟

[Barna]

2 دقائق مضت, القادم أعظم said:

بوركتم جميعا
اذا نقول  لا يوجد لها حل ؟

ليس هذا رأيهم ....... حاول ... وحاول ..... بطرق اخرى تلبي طلبك .... هي هذه البرمجة ..... اسلك طريق اخر ....... !!!!!! هذا رأيهم اعتقد ذلك ....

[Eng.Qassim]

استاذي العزيز @kanoryانا مجرد مهندس مدني ولنا اساليبنا في التخلص من مشكل البناء .. انا مجرد هاو للبرمجة

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

طريقة مهندس مدني في التحايل على اكسس هههههه

[Hawiii]

ما فهمت ما هو المفتاح العلوي

عموما عملت التعديلات التالية:
- اقتصار استخدام سهمي الكيبورد فوق وتحت هو للتنقل بين السجلات السابقة والتالية.
- النقر المزدوج على رقم الموظف ينقلك لسجل جديد.
- عندما يكون المؤشر على سجل جديد تحصل على رقم جديد للموظف ويقف المؤشر على حقل اسم الموظف.
- قفل/تأمين حقل رقم الموظف بحيث لا يمكن التعديل عليه يدويا.
 

في الجدول:
- تم عمل حقل رقم الموظف كمفتاح للجدول.
- تم جعل اسم الموظف مطلوبا حتى لا يسمح لك الذهاب لسجل جديد آخر بدون تعبئة الاسم.
 

d1_Hawiii_01.accdb

تم تعديل أغسطس 3, 2021 بواسطه Hawiii

[Hawiii]

17 ساعات مضت, القادم أعظم said:

وممكن التعديل على المرفق بدون تغيير في الأكواد

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

لقد عملت مزيدا من التحكم في استخدام المفاتيح ويمكنك نسخه على القديم:
 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim Crl As Control
  
  On Error Resume Next
  
  Select Case KeyCode
    Case vbKeyLeft
      KeyCode = vbKeyRight
    Case vbKeyRight
      KeyCode = vbKeyLeft
    Case vbKeyUp
      If Me.CurrentRecord = 1 Then
        KeyCode = 0
        Exit Sub
      End If
      DoCmd.GoToRecord , , acPrevious
    Case vbKeyDown
      If Me.CurrentRecord = Me.Recordset.RecordCount Then
        KeyCode = 0
        Set Crl = Me.ActiveControl
        DoCmd.GoToRecord , , acNewRec
        Crl.SetFocus
      ElseIf Me.NewRecord Then
        KeyCode = 0
      Else
        DoCmd.GoToRecord , , acNext
      End If
  End Select
End Sub

 

[القادم أعظم]

 

Hawiii

لك كل الشكر على متابعتك

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

[Hawiii]

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

[القادم أعظم]

أخي 

أنا أحتاج في المثال بعد البحث عن الموظف بدلالة رقم الموظف أن ينتقل الاشارة الى اسم الموظف وسجل جديد 

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

ما أريده أنه عند الضغط على مفتاح للأعلى أو أي مفتاح آخر يذهب إلى حقل التاريخ مثلا (السجل السابق)

هل ممكن لهذه العملية ؟
وهذا مرفق 

d11.accdb

[Hawiii]

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

[د.كاف يار]

23 دقائق مضت, القادم أعظم said:

أنا أحتاج في المثال بعد البحث عن الموظف بدلالة رقم الموظف أن ينتقل الاشارة الى اسم الموظف وسجل جديد 

 

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

دعنا نحاول تفكيك شفرة طلبك لكي نستطيع مساعدتك

24 دقائق مضت, القادم أعظم said:

أنا أحتاج في المثال بعد البحث عن الموظف بدلالة رقم الموظف أن ينتقل الاشارة الى اسم الموظف وسجل جديد

تريد البحث عن الموظف برقم الموظف او الرقم الوظيفي للموظف--- هنا طلبك واضح نوعا ما 

26 دقائق مضت, القادم أعظم said:

أن ينتقل الاشارة الى اسم الموظف وسجل جديد

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

اما ان تحدد سجل الموظف أو تقوم بإضافة سجل جديد 

27 دقائق مضت, القادم أعظم said:

والسجل الجديد يكون اشارة المؤشر على الرقم لاجراء عملية البحث مرة أخرى

لم استطع فك طلاسم هذا الطلب الغريب

28 دقائق مضت, القادم أعظم said:

ما أريده أنه عند الضغط على مفتاح للأعلى أو أي مفتاح آخر يذهب إلى حقل التاريخ مثلا (السجل السابق)

انصحك دائما بالمنطق في طلباتك

 

شكرا لك