الحروف الابجدية وقيمها العدديه

[TQTHAMI]

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

اخواني وخواتي بالمنتدى

أسال الله عزوجل بأن يكون الجميع بصحه وعافيه

و أن يجعل عام 1443 هـ عام فرح وسعادة وتحقيق كل الأمنيات للجميع بحول الله وقوته وقدرته

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

وطلبي هو هل يوجد مثله موجود او طريقه مختلفه بالكود لمثل هذا البرامج او احد يعطيني طريقه عملها على حرفين مثلا وانا اكمل الباقي

وتقبلوا خالص التحيه والتقدير

‫‫ابجد هوز.mdb

[ناقل]

جرب هذا ....

 

ابجد هوز.rar

[TQTHAMI]

يسعد لي صباحك 

الملف رافض التحميل تظهر رساله الملف معطوب

[Hawiii]

لقد عملت نسخة من النموذج وعدلت عليه وتركت الأصل كما هو للمقارنة.

 

أبجد_هوز.mdb

[محمد أبوعبدالله]

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

بالاضافة الى ما تفضل به الاخوة الكرام ولهم جزيل الشكر

وبحسب ترتيب حروف " ابجد هوز حطي كلمن " وكما هو موجود بالنموذج 14 حرف

وكما هو موضح بمثالك ( الحرف الاول - الحرف الثاني ... الخ )

يكون الكود كالتالي

Option Compare Database
Option Explicit

Private Sub XTotal_Exit()


    If Me.A = "ا" Then
        Me.A1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.A & "'")
     Else
        Me.A1 = 0
     End If
     
    If Me.B = "ب" Then
        Me.B1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.B & "'")
     Else
        Me.B1 = 0
     End If
        
    If Me.C = "ج" Then
        Me.C1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.C & "'")
     Else
        Me.C1 = 0
     End If
     
    If Me.D = "د" Then
        Me.D1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.D & "'")
     Else
        Me.D1 = 0
     End If
     
    If Me.E = "ه" Then
        Me.E1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.E & "'")
     Else
        Me.E1 = 0
     End If
     
    If Me.F = "و" Then
        Me.F1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.F & "'")
     Else
        Me.F1 = 0
     End If
        
    If Me.G = "ز" Then
        Me.G1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.G & "'")
     Else
        Me.G1 = 0
     End If
     
    If Me.H = "ح" Then
        Me.H1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.H & "'")
     Else
        Me.H1 = 0
     End If
     
    If Me.I = "ط" Then
        Me.I1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.I & "'")
     Else
        Me.I1 = 0
     End If
            
    If Me.J = "ي" Then
        Me.J1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.J & "'")
     Else
        Me.J1 = 0
     End If
     
    If Me.K = "ك" Then
        Me.K1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.K & "'")
     Else
        Me.K1 = 0
     End If
    
    If Me.L = "ل" Then
        Me.L1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.L & "'")
     Else
        Me.L1 = 0
     End If
     
    If Me.M = "م" Then
        Me.M1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.M & "'")
     Else
        Me.M1 = 0
     End If
    
    If Me.n = "ن" Then
        Me.n1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.n & "'")
     Else
        Me.n1 = 0
     End If
    
    Me.tot.Value = Nz(A1) + Nz(B1) + Nz(C1) + Nz(D1) + Nz(E1) + Nz(F1) + Nz(G1) + Nz(H1) + Nz(I1) + Nz(J1) + Nz(K1) + Nz(L1) + Nz(M1) + Nz(n1)
'    Debug.Print Me.tot

End Sub

Private Sub A_Exit(Cancel As Integer)
    Call XTotal_Exit
End Sub

Private Sub b_Exit(Cancel As Integer)
    Call XTotal_Exit
End Sub

Private Sub c_Exit(Cancel As Integer)
    Call XTotal_Exit
End Sub

Private Sub d_Exit(Cancel As Integer)
    Call XTotal_Exit
End Sub

Private Sub e_Exit(Cancel As Integer)
    Call XTotal_Exit
End Sub

Private Sub f_Exit(Cancel As Integer)
    Call XTotal_Exit
End Sub

Private Sub g_Exit(Cancel As Integer)
    Call XTotal_Exit
End Sub

Private Sub h_Exit(Cancel As Integer)
    Call XTotal_Exit
End Sub

Private Sub i_Exit(Cancel As Integer)
    Call XTotal_Exit
End Sub

Private Sub j_Exit(Cancel As Integer)
    Call XTotal_Exit
End Sub

Private Sub k_Exit(Cancel As Integer)
    Call XTotal_Exit
End Sub

Private Sub l_Exit(Cancel As Integer)
    Call XTotal_Exit
End Sub

Private Sub m_Exit(Cancel As Integer)
    Call XTotal_Exit
End Sub

Private Sub n_Exit(Cancel As Integer)
    Call XTotal_Exit
End Sub

001.rar

تحياتي

[TQTHAMI]

تحيه من القلب للجميع 

واعتذار كل الملفات الي هنا عند التحميل تظهر لي هذي الرساله 

اما بالنسبة لكود الاستاذ ابو عبدالله جاري تطبيقه 

[Hawiii]

42 دقائق مضت, TQTHAMI said:

واعتذار كل الملفات الي هنا عند التحميل تظهر لي هذي الرساله 

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

أبجد_هوز_هاوي.rar

[د.كاف يار]

50 دقائق مضت, TQTHAMI said:

تحيه من القلب للجميع 

واعتذار كل الملفات الي هنا عند التحميل تظهر لي هذي الرساله 

اما بالنسبة لكود الاستاذ ابو عبدالله جاري تطبيقه 

لأن اصدار الوينرار قديم 

حدث الوينرار و راح تفتح معك

[محمد أبوعبدالله]

3 ساعات مضت, Hawiii said:

بو عبدالله استطاع فتح ملفي وعدل على نموذجي وكل حاجة زي الفل

حصل 🙂

 

[Hawiii]

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

في مشاركتي سأذكر التعديلات التي أتذكرها فأنا مصاب بكثرة النسيان.
- تم حذف صناديق تحوي معادلات بعدد الحروف مرتين وتم حذفها منفردة أي صندوقا صندوقا حيث كان بعضها مخفيا خلف صندوق آخر وبعضها تم تصغيره بشكل لا يرى ، فكنت أختارها بالاسم بالتناوب وأكبر حجمها حتى أستطيع رؤيتها ثم حذفها.
- تم تحويل صناديق قوائم إلى صناديق نص بعدد الحروف ، وكذلك منقردة حيث لا يمكن التحويل بشكل جماعي.
- تم عمل فحص الإدخالات بحيث لا تقبل إلا حرفا واحدا وبشرط أن يكون من قائمة الحروف الأبجدية.
- تم تصحيح حرف الألف في الجدول حيث كان بهمزة وقد ضيع علي وقتا ليس بالقليل لأنه الدالة كانت لا ترجع قيمته ولم يكن نظري يساعدني على رؤية الهمزة.
- هذا ما أتذكره الآن غير التعديلات الشكلية حيث بعض الأرقام تظهر على سطرين وبعض التسميات تظهر مقطوعة.

وأنا واثق أن أكثر السائلين لا يتنبهون للتعديلات ثم يسمح لهم بإهداء جهودنا المبذولة لمبرمج آخر وبتقييم عمل المبرمجين/الأساتذة وتحديد "أفضل إجابة" وهو قاصر على فهم أبسط التعامل مع اللغة ، وأنا أنصح الإدارة بحذف هذا الإجراء أو بتبديل التسمية/الحالة إلى "ناسبتني" أو "أخترتها" ، بدلا من "أفضل إجابة".

يقول المثل : بين حانا ومانا ضاعت لحانا.
وشكرا للجميع.

تم تعديل يوليو 29, 2021 بواسطه Hawiii

[TQTHAMI]

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

تحيه للجميع وشكر لكل من ساهم في الرد واخص الاستاذ  Hawiii  والاخ د.كاف يار على تنبيهي على مشكله كثير اعاني منها

وهي ان الجهاز يحتاج تحديث وبالفعل تم فرمتته

وتم انزال المفات وعملت وكانت حلول جدا رائعه  وبالنسبة لي وجدت مثال الاخ Hawiii جدا رائع

والشكر موصول للاخ محمد أبوعبدالله على الكود الجميل

والاخ ناقل صاحب اول رد

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

واسف على التاخر في الرد بسبب فرمتت الجهاز بالكامل

وهذا ناتج التعديل

ابجد1.mdb

[Hawiii]

نسخة منقحة

 

أبجد_هوز_هاوي_2.mdb