لوحة مفاتيح الأرقام ضمن نموذج

[Alhaithm]

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

 

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

مرفق قاعدة البيانات

 

Just.rar

 

 

[أبو آدم]

نعم يمكننا عمل الكود ان شاء الله

قاعدتك لم تعمل معي

مع رجاء استخدام خاصية البحث في المنتدى

 

شكراً

[Alhaithm]

السلام عليكم

 

لقد أعدت تحميل قاعدة البيانات بعد اصلاحها لتعمل بشكل سليم ، أرجو المساعدة

 

تحيااتي للجميع

 

[Alhaithm]

عفوا الرابط بعد التعديل

Just2.rar

[أبو آدم]

أخي العزيز

 

في محرر الفيجوال للنموذج انسخ الوظيفة التالية

Private Function TypeAlphaNum(strKey As String) As String
    Screen.PreviousControl.SetFocus
    Me.Controls(Screen.ActiveControl.Name).SelStart = Nz(Len(Me.Controls(Screen.ActiveControl.Name)), 0)
    Me.Controls(Screen.ActiveControl.Name).SelLength = 0
    Me.Controls(Screen.ActiveControl.Name).Value = Me.Controls(Screen.ActiveControl.Name).Value & strKey
    End Function

وخلف كل زر أمر لرقم ضع الكود

Private Sub Command1_Click()
TypeAlphaNum "1"
End Sub
Private Sub Command2_Click()
TypeAlphaNum "2"
End Sub
Private Sub Command3_Click()
TypeAlphaNum "3"
End Sub
Private Sub Command4_Click()
TypeAlphaNum "4"
End Sub
Private Sub Command5_Click()
TypeAlphaNum "5"
End Sub
Private Sub Command6_Click()
TypeAlphaNum "6"
End Sub
Private Sub Command7_Click()
TypeAlphaNum "7"
End Sub
Private Sub Command8_Click()
TypeAlphaNum "8"
End Sub
Private Sub Command9_Click()
TypeAlphaNum "9"
End Sub
Private Sub Command0_Click()
TypeAlphaNum "0"
End Sub

جرب ووافني بالنتيجة

 

....

[أبو آدم]

بانتظار ردّ الأخ الهيثم حتى نستكمل أو يشعرنا بإنقضاء حاجته بتيسير من الله

 

........

[Alhaithm]

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

 

الأخ/ أبو آدم  المحترم

أشكرك على تفاعلك ، وآسف لعدم اطلاعي على الموضوع الإ صباح اليوم 

 

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

أرجو منك المتابعة لاستكمال الموضوع

 

تحياتي لك

 

[أبو آدم]

انقل الازرار للنموذج الفرعي

[Alhaithm]

أعجبني الكود لأنه يعمل في أي حقل تقف عليه ، فأرجو أن يشتغل في النموذج الرئيسي والفرعي معا

[أبو آدم]

قيد النظر ...

[Alhaithm]

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

 

أرجو أن لا ينسى الموضوع

[Alhaithm]

السلام عليكم

 

الأخوة أعضاء المنتدى    المحترمين

الأستاذ أبو آدم  المحترم

أرجو عدم نسيان الموضوع فلا زلت بانتظار الحلول الممكنة

تحياتي وتمنياتي لكم بالتوفيق