نسخ قيمة اي حقل في نموذج من الحقل السابق

[يوسف السيد]

السلام عليكم :

من المعروف ان الاختصار  ctrl + '   يقوم بنسخ قيمة الحقل من الاعلي الي الحقل الحالي

هل يمكن عمل هذا الاختصار علي احد ازرار f وليكن مثلا f6

[عبد اللطيف سلوم]

2 ساعات مضت, يوسف السيد said:

السلام عليكم :

من المعروف ان الاختصار  ctrl + '   يقوم بنسخ قيمة الحقل من الاعلي الي الحقل الحالي

هل يمكن عمل هذا الاختصار علي احد ازرار f وليكن مثلا f6

شاهد هذا الفيديو عند الدقيقة 16 تجد طلبك 

 

[يوسف السيد]

الاستاذ : عبداللطيف اشكرك علي الرد والاهتمام

ولكن الفيديو يوضح عمل زر f لفتح فورم معين

انا اريد كيفية نسخ حقل من الحقل الاعلي له في نموذج ما كما يعمل الاختصار ctrl+'

آمل أن يكون الطلب واضح

مع تحياتي وتقديري

[يوسف السيد]

UP

[ابوخليل]

تفضل

Private Sub id_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF6 Then
SendKeys "^'", True
End If
End Sub

 

 

db2.mdb

[يوسف السيد]

في ٢٧‏/٦‏/٢٠١٩ at 21:24, ابوخليل said:

تفضل 

Private Sub id_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF6 Then
SendKeys "^'", True
End If
End Sub

زادك الله من فضله وعلمه ، شكرا استاذ/ابو خليل

عند فتح الملف المرفق لم ينسخ الحقل السابق id عند الضغط علي f6

علما بأني استخدم اوفيس 2019

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

لا ادري اين الخطأ

اسأل الله لكم السداد والعافية

8-6-2019.accdb

[ابو جودي]

 لا احب التعامل مع الـ   SendKeys  

 

تم تعديل يونيو 29, 2019 بواسطه ابا جودى

[ابو جودي]

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

[ابوخليل]

1 ساعه مضت, يوسف السيد said:

في حقل accid فانه ينتقل الي سجل جديد

لا ادري اين الخطأ

جربت مثالك الاخير على نسخة 2010  وعمل الكود بامتياز

انتبه !  ضع المؤشر  في  حقل accid  في الاسفل في حقل جديد ثم انقر f6

 

منذ ساعه, ابا جودى said:

ان شاء الله بعد انتظار الرد الوافى والجواب الشافى من استاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل 
سوف اعرض طريقتى ولكن قبل ان اعرضها هى قد تكون مطوله بعض الشئ
 

المنتدى ملك الجميع  ، والحكمة ضالة المؤمن

فاعرض ما شئت أنى شئت .

[ابو جودي]

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

تم تعديل يونيو 29, 2019 بواسطه ابوخليل
الربط بالموضوع

[ابو جودي]

2 ساعات مضت, يوسف السيد said:

زادك الله من فضله وعلمه ، شكرا استاذ/ابو خليل

عند فتح الملف المرفق لم ينسخ الحقل السابق id عند الضغط علي f6

علما بأني استخدم اوفيس 2019

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

لا ادري اين الخطأ

اسأل الله لكم السداد والعافية

8-6-2019.accdb 804 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads

اولا اعتقد حضرتك لم تنتبه لتفعيل    KeyPreview = True    للنموذج الفرعى

من التبويب الخاص بوضع الاحداث

كما يمكنكم وضع هذا الكود بدلا منها ات اردتم
 

Private Sub Form_Load()
    Me.KeyPreview = True
End Sub

 

[يوسف السيد]

شكرا جزيلا لكم
وزادكم الله علماً ونفع بكم