ha98 قام بنشر سبتمبر 13, 2003 قام بنشر سبتمبر 13, 2003 السلام عليكم ورحمة الله وبركاته عندي نموذج به مربع نص للبحث داخل نموذج فرعي أيضا موجود على نفس النموذج ماهو الكود الذي يجب أن أكتبه لكي استخدم مفتاح F2 في تظليل الكتابة داخل مربع النص لكي يتسنى لي تحريرها اتمنى أن يكون مطلوبي واضح شيء آخر هل من الممكن أن استعيظ عن نقر الماوس لبعض الأحداث بمفاتيح الكيبورد أي هل من الممكن جعل مستخدم البرنامج لايحتاج مطلقا للماوس تحياتي 1
samir_samir قام بنشر سبتمبر 13, 2003 قام بنشر سبتمبر 13, 2003 اعمل مكرو اسمه AUTOKEYS اعمل اجراء حسب طلبك مثلا MsgBox اسم المكرو {f2} ========== فعال ضغط f2
محمد طاهر عرفه قام بنشر سبتمبر 13, 2003 قام بنشر سبتمبر 13, 2003 الضغط علي f2 يؤدي الي وضع المؤشر فى حالة التحرير و لعمل ذلك بالكود sendkeys "{F2}" و يوجد عليه مثال هنا و لتشغيل الاوامر المختلفة من أي مكان بالمفاتيح راجع هذا الموضوع و هو شرح للطريقة التي ذكرها مشكورا الأخ سمير و يمكن تخصيص استخدام الزر فى نموذج معين باستخدام حدث Onkey press للنموذج و سيفيد هذا المثال فى معرفة أكواد ال asci للتعامل مع هذا الحدث من هنا
ha98 قام بنشر سبتمبر 14, 2003 الكاتب قام بنشر سبتمبر 14, 2003 شكرا لكم بكل ماتحمله هذه الكلمة من معنى وجعل الله ذلك في موازين أعمالكم اخي العزيز محمد طاهر سأجرب ماقلت لي وسأوافيك بالنتائج اخي سمير مرة أخرى شكرا لك
ha98 قام بنشر سبتمبر 14, 2003 الكاتب قام بنشر سبتمبر 14, 2003 استاذنا العزيز محمد طاهر حفظك الله انت وكل من يساعد الناس في هذا المنتدى العظيم قرأت ماقلت لي وحاولت تطبيقه ولكن المشكلة انني لم أفهم إجراء SendKeys ووسائطه كما ينبغي الآن : عندي نموذج رئيسي به مربع نص ولنسميه t وعندي نموذج فرعي داخل النموذج الرئيسي وبه مربع نص ولنسميه d البرنامج مبرمج بحيث إذا نقرت نقرا مزدوجا على d تنتقل قيمة t إلى d سؤالي هو هل يمكنني أعمل هذه الحركة بواسطة مفاتيح الكي بورد وبدون استخدام الماوس لو سمحت لي هل من الممكن تشرح لي انت أو أي واحد من أهل الخير كيف يمكنني عمل ذلك تحياتي لك
محمد طاهر عرفه قام بنشر سبتمبر 14, 2003 قام بنشر سبتمبر 14, 2003 مثلا اذا أردت تنفيذ نقل القيمة مع ضغط Ctr+Q فضع الكود التالي عند حدث الضغط علي زر للنموذج مع تعديل خاصية Key Preview الي نعم و هذه الخاصية تعني أن تنفيذ الاكواد الخاصة بالضغط علي زر الخاصة بالنموذج تتم قبل مثيلتها الخاصة بعناصر التحكم فى النموذج مثل مربعات النص و هنا مع ضغط Ctr+Q فقط ستظهر رسالة تأكيدية و يتم تنفيذ نقل القيمة و لا يحدث أي شيء مع أي زر آخر Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 17 Then MsgBox "Officena.com , you Pressed Ctr+Q" Me.d = Me.t End If End Sub
ha98 قام بنشر سبتمبر 14, 2003 الكاتب قام بنشر سبتمبر 14, 2003 عزيزي مشرفنا الغالي محمد طاهر شكرا لك عملت ماقلت لي ولكن المشكلة أن مربع النص d الموجود في النموذج الفرعي تنتقل إليه القيمة مرة واحدة وذلك بعد أول مرة اضغط فيها ctr+q بعد فتح النموذج وبعدها لاتنتقل القيمة ( المشكلة أن مربع النص d الموجود في النموذج الفرعي أريد أن اسجل فيه القيمة الموجودة في مربع النص t ليس مرة واحدة فقط بل في كل سجل من سجلات النموذج الفرعي ) فكيف يتم ذلك شكرا لك يامشرفنا الغالي
محمد طاهر عرفه قام بنشر سبتمبر 15, 2003 قام بنشر سبتمبر 15, 2003 اذا كنت تسجلها فى كل السجلات فلماذا لا تجعل مصدر بياناتها هو مربع النص فى النموج الرئيسي أي في مصدر بيانات مربع النص فى النموذج الفرعي تضع مصدر البيانات =Forms!mainformname!t و فى حدث بعد التحديث لمربع النص t فى النموذج الرئيسي تضع Private Sub t_AfterUpdate() Forms![fa]![Contacts subform].Form.Requery End Sub
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.