السلام عليكم
بدات بعمل برنامج جديد وواجهتني مشكلة
وهي
الشاشة الاولى هي المستخدم وكلمة المرور اريد ان يتم التحرك بين الحقول باستخدام مفتاح الانتر
حيث ان كلمة المرم هي رقم المديرية واسم المستخدم هي رقم المدرسة
مثال
مديرية الوسطى : 35
رقم مدرسة معينة تابعة للمديرية : 35111063
فاريد عند الضغط على رز موافق او الخروج من الشاشة ان يتم تخزين رقم هذه المدرسة في جدول FrmInputSchoolInfo
رجاء افادتي عن كيفية عمل ذلك
لو سمحتوا يعني ما في حد عنده حل لهاي المشكلة
يعني صار شايف الموضوع 26 واحد
المشكلة اني مضغوط بالوقت يعني لازم سلم البرنامج في تاريخ معين
يا ريت حد يساعدني
تفضل اخي الكريم
ملفك بعد التعديل
حيث تم استحداث استعلام تحديث بالكود تحت زري الأمر ( دخول و الغاء الأمر ) الموجوده في نموذج الدخول فعند ادخال اسم المستخدم مثلا 35 والرقم السري مثلا 35111063 فسوف يتم الحاق هذه الرقام الى جدول FrmInputSchoolInfo مباشرة .
قم بالتجربة على عدة اسماء مستخدمين وعدة ارقام سرية ثم انتقل للجدول لمشاهدة ما تم وضعه بها
تم تعديل الملف بناء على طلب الأخ الكريم في آخر المشاركة
التعديل الآخير
مرحبا اخت زهرة
بارك الله فيكي على المجهود الذي تبذلينه من اجل الجميع
واسف للتاخير ولكنكم تعلمون مشكلة التيار الكهربائي في فلسطين
العمل الذي قمتي به تمام ولكن لي بعض الملاحظات
اولا اريد ان يتم تخزين كلمة المرور فقط والتي هي في رقم المدرسة في الجدول وليس رقم المديرية
ثانيا
اذا ما ادخلت رقم مدرسة قد ادخلته سابقا فانه يكرر الرقم وبذلك يكون قد ادخلت المدرسة مرتين والصحيح انه يدخل للبرنامج دون اضافة الرقم للمرة الثانية
اي بمعنى انه يتم الدخول بناء على المعلومات السابقة
وشئ اخر
لا يتم عمل مفتاح الانتر ولا التاب ولا الاسهم بالشاشة فاذا تكرمت لم تم عمل اي منهم
ولك جزيل الشكر
اختي الفاضلة
بارك الله فيكي وجعل كل اعمالك في ميزان حسناتك
الملف المرفق هو ما قصدته فعلا
اطلعت على الكود وفهمته ولكني لم اري اي شي يدل على عمل مفتاح الانتر
فالرجاء اذا امكن شرح كيفية عمله لاستخدامه في شاشات اخرى وبارك الله فيكي
اخي الفاضل
هذا الكود هو الخاص بمنع استخدام مفتاح الـ TAP و الـ Enter و مفاتيح الأسهم والـ PageUp والـ PageDown لهذا قمت بإيقاف عمله بوضع فاصلة قبل كل سطر واصبح لونه اخضر اي ان الكود غير فعال .
'Private Sub UserName_KeyDown(KeyCode As Integer, Shift As Integer)
'On Error GoTo HandleErrors
'Me.KeyPreview = True
'Select Case KeyCode
' Case vbKeyReturn
' SendKeys "^{TAB}", True
' Case vbKeyDown
' SendKeys "^{PGDN}", True
' End Select
' Exit Sub
'HandleErrors:
' Select Case err.Number
' Case 2105
' KeyCode = 0
' Case Else
' MsgBox "Error: " & err.Number & " " & err.Description
' End Select
'End Subثم انتقلنا الى خصائص النموذج frm-UserLogon واخترنا تبويب الحدث ووضعنا ( مفتاح العرض التمهيدي على لا )
واخيرا انتقلنا الى قائمة الأكسيس العلوية واخترنا عرض ثم ترتيب الجدوله وقمنا بترتيب مرعات النص حسب الإدخال
اختي الفاضلة
يعجز اللسان عن الشكر لما تقدميه في سبيل العلم والتعلم
فنحن جميعا فداء للعلم
واتمنى من الله ان ينفعنا بما علمنا وان يزيدنا علما في سبيله
وبارك الله فيكي
بسم الله الرحمن الرحيم
تمت الإجابة على الموضوع
إدارة الفريق العربي للبرمجة