تحريك النموذج

[tiger wanted]

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

move.accdb

[Foksh]

مساهمة خارجية ، قم بتجربة هذه الفكرة

 

Move_Frm.accdb

[kkhalifa1960]

مشاركةً مع استاذ @Foksh تفضل أستاذ @tiger wanted محاولتي .

move-1.rar

[tiger wanted]

اشكركم على الرد ولكن المطلوب هو تحريك الصفحة لاعلى واسفل بدلا من استخدام scroll bar  ارجو ان اكون اوضحت المقصود تحريك الصفحة وليس النموذج جزاكم الله كل خير وفى انتظار ردكم واشكركم 

[tiger wanted]

للرفع ارجو ان اكون قد اوضحت المطلوب هل من حل 

[Foksh]

أخي @tiger wanted   ، لا أعتقد أن طلبك ممكن تحقيقه فيما يخص التحكم بشريط التمرير.
 

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

 

التحريك للأسفل 

 DoCmd.GoToRecord , , acNext

التحريك للأعلى 

DoCmd.GoToRecord , , acPrevious

 

[tiger wanted]

مرفق لكم نموذج يتم فيه التحريك لاعلى واسفل مثل scroll bar المطلوب التحريك افقى يمينا ويسارا

move.accdb

[shabrawy]

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

 

Private Sub Command8_Click()

    SendKeys "{RIGHT}"

End Sub

 

Private Sub Command9_Click()

    SendKeys "{LEFT}"

End Sub

 

[tiger wanted]

لا قد فكرت فى هذه الفكرة لم تنفع برجاء المتابعة والافادة

 

[tiger wanted]

يبدو انه لا يوجد حل للمسألة 

 

[Moosak]

في 31‏/1‏/2024 at 15:13, tiger wanted said:

المطلوب التحريك افقى يمينا ويسارا

السجلات مسرودة بشكل رأسي عمودي ..

ماذا تقصد بيمينا ويسارا ؟ ممكن توضح أكثر ؟

 

[kkhalifa1960]

هل هذا ماتقصد أخي @tiger wanted .

move.rar

[tiger wanted]

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

[tiger wanted]

مرفق لكم النموذج وقد قمت بالتعديل عليه بالتنقل بالاسهم اعلى واسفل ثم التنقل يمينا ويسارا بالاسهم بمجرد وضع المؤشر على مربع نص ID يمكنكم التجربة ونرجو التعديل والسماح بتلك الخطوات عن طريق زر امر 

move.accdb

[ابوخليل]

ما شاء الله عليك .. مقاتل .. لم تيأس

لك من اسمك نصيب

ابشر .. الحل  _ان شاء الله_  يسير

فقط  امهلني .. ارتب لك الحل .. 

[tiger wanted]

اشكرك وفى انتظار الرد ولكم جزيل الشكر 

[ابوخليل]

اساس المشكلة هو انتقال التركيز عن تفصيل النموذج عندما تنقر على الأزرار

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

لذا سرحت هذه الأزرار واستبدلتها بمربع تسمية

ورتبت هذه التسميات بحيث تظهر مشابهة للازرار

الآن اي مفتاح يمكنك ارساله الى تفصيل النموذج

لاحظ ان التحرك يمينا ويسارا سيعمل بطريقتين وعليك ان تختار ما يناسبك 

Private Sub Command6_Click()
SendKeys "{PGUP}"
End Sub

Private Sub Command7_Click()
SendKeys "{PGDN}"
End Sub

Private Sub Command8_Click()
SendKeys "{RIGHT}"
'SendKeys "+{tab}" 'وهذه ايضا تعمل
End Sub

Private Sub Command9_Click()
'SendKeys "{tab}" ' وهذه ايضا تعمل
SendKeys "{LEFT}"
End Sub

 

التحرك داخل النموذج بالأزرار.accdb

[tiger wanted]

شكرا جزيلا  ولكن الحل ينقصه شيء ان الامر يتم اثناء فتح النموذج ولكن فرضا قمت بتعديل داخل مربع النص واستخدام زر الامر اتجاه يمين اويسار لن يتم التنفيذ هناك حلقة مفقودة وهو كيفية تهيئة مربع النص بالتركيز باستخدام setfoucus مثلا واستخدام زر الامر لانه ليس من المعقول ان اطلب من العميل الخروج من النموذج ثم الدخول عليه لاستخدام الازرار ولكم جزيل الشكر 

[ابوخليل]

كل شيء له حل بإذن الله

جرب ضع هذا السطر في اعلى الكود هكذا :

DoCmd.GoToPage 1, 0, 0
SendKeys "{RIGHT}"

 

[tiger wanted]

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

التحرك داخل النموذج بالأزرار.accdb

[ابوخليل]

8 ساعات مضت, tiger wanted said:

شكرا جزيلا  ولكن الحل ينقصه شيء ان الامر يتم اثناء فتح النموذج ولكن فرضا قمت بتعديل داخل مربع النص واستخدام زر الامر اتجاه يمين اويسار لن يتم التنفيذ هناك حلقة مفقودة وهو كيفية تهيئة مربع النص بالتركيز باستخدام setfoucus مثلا واستخدام زر الامر لانه ليس من المعقول ان اطلب من العميل الخروج من النموذج ثم الدخول عليه لاستخدام الازرار ولكم جزيل الشكر 

هذا طلبك اعلاه وتم حل المشكلة باستخدام السطر الذي زودتك به

لما يكون المؤشر داخل الحقل ثم تنقر على زر يمين او زر يسار  ينتقل التركيز الى تفصيل النموذج ويعمل بشكل صحيح

تم التأكد والتجربة والفحص

ما المشكلة عندك ؟ 

db1.rar

[tiger wanted]

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

[ابوخليل]

ربما ترى ان كلامي حادا ولكني لست غاضب بل انا استمتع بمحاولة مساعدتك .. ومعك ان شاء الله الى ان اجد لك حلا يرضيك

21 دقائق مضت, tiger wanted said:

 ولكن فلنفرض اننى قمت بكتابة داخل مربع نص وعند الضغط على زر التحرك يتحرك المؤشر داخل النص ولاينتقل الى العمود التالى ارجو ان اكون قد اوضحت الامر 

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

الا اذا انت تجرب على غير المثال المرفق 

لو اعرف اسجل لك فيديوا 

[ابوخليل]

قد اكون فهمت عنك الآن بعد مراجعة المثال

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

ولكنك الآن تتكلم عن الحقول والاعمدة داخل تفصيل النموذج

صحيح .. فهم السؤال نصف الاجابة

[tiger wanted]

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