نقل التركيز الي النموذج عند فتح التقرير

[husseinharby]

السلام عليكم

عند فتح التقرير المرفق يتم فتح نموذج list معه 

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

 

Documents.rar

تم تعديل يونيو 3, 2025 بواسطه husseinharby

[Foksh]

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

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

لجعل التركيز على الكومبوبوكس اللي في النموذج List ( وأعتقد أنه من الأسماء المحجوزة لآكسيس ) ، يجب أن نجعل خاصية Modal = Yes للنموذج ، وحيث أننا لا نريد تغيير الخصائص للنموذج بشكل دائم ، فهنا يمكننا استخدام الدالة WindowMode طبعاً مع تحديد نوع أو نمط فتح النموذج بحيث تكون = WindowMode:=acWindowNormal . وعليه فأن الكود النهائي في حدث عند التحميل للتقرير سيكون كالآتي :-

Private Sub Report_Load()
    DoCmd.OpenForm "List", WindowMode:=acWindowNormal
    Forms("List").Modal = True
    Forms("List").Combo0.SetFocus
End Sub

 

جربه في تقريرك ، وأخبرنا بالنتيجة  .

[husseinharby]

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

لاني استخدم الماوس للتركيز في خانة البحث ثم اقوم بالكتابة

كما هو موضح في الفيديو المرفق

 

MSACCESS_eL6s5XPZCU.rar

[husseinharby]

 

 

تم تعديل يونيو 4, 2025 بواسطه husseinharby

[Foksh]

شو يعني ، ما فهمت أخي الكريم 😅

[منتصر الانسي]

اخي الكريم

اعتقد ان المشكلة تكمن في انك تفتح النموذج من التقرير ولكن لو عكست العملية فإن الأمر سينجح

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

اتمنى ان يكون هذه هي النتيجة المطلوبة

Database1.rar

[شايب]

48 دقائق مضت, منتصر الانسي said:

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

في حلكم استخدمتم OpenArgs لتمرير اسم التقرير في امر فتح نموذج ليست ومن ثم يمرر الاسم لفتح التقرير

واعتقد انه يمكن الوصول للنتيجة بدونها

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

تحياتي

 

Database1101.accdb

[منتصر الانسي]

13 دقائق مضت, شايب said:

في حلكم استخدمتم OpenArgs لتمرير اسم التقرير في امر فتح نموذج ليست ومن ثم يمرر الاسم لفتح التقرير

واعتقد انه يمكن الوصول للنتيجة بدونها

ماذا تقصد انه يمكن الوصول للنتيجة بدونها 

الغرض من تطبيق هذه الطريقة هو فتح التقرير عن طريق نموذج list وليس العكس كما كان الوضع الاصلي

[شايب]

3 دقائق مضت, منتصر الانسي said:

ماذا تقصد انه يمكن الوصول للنتيجة بدونها 

الغرض من تطبيق هذه الطريقة هو فتح التقرير عن طريق نموذج list وليس العكس كما كان الوضع الاصلي

وهذا نفس ما عملته انت ولكن بدون الحاجة لاستخدام  OpenArgs

الملف المرفق بمشاركتي السابقة يوضح ذلك

[شايب]

ايضا من الافكار اذا رغبنا في عدم تغيير طريقة الاخ حسين

وحيث يشير الى عدم الرغبة في استخدام الماوس والكتابة مباشرة

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

الغرض من طلبي هو عدم استخدام الماوس و الكتابة بشكل مباشر في خانة البحث 

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

If KeyCode = vbKeyF4 Then
Forms!list.SetFocus
End If

مع ان الحل المقدم منكم افضل

تحياتي

[منتصر الانسي]

1 ساعه مضت, شايب said:

وهذا نفس ما عملته انت ولكن بدون الحاجة لاستخدام  OpenArgs

الملف المرفق بمشاركتي السابقة يوضح ذلك

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