فصل الرقم القومى من مربع نص واحد الى كل رقم فى مربع منفصل فى التقرير

[Lotfy14]

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

 

الساده اعضاء الجروب الكرام

عندى فرم يوجد به بيانات الموظفين
ويوجد مربع نص لادخال الرقم القومى المكون من اربعه عشر رقم

المطلوب

فى استماره2س

وهى عبارة عن استمارة التأمين الاجتماعى للدولة

يعنى الرقم القومى بيتم ادخاله فى مربع نص واحد اريد ان كل رقم من الرقم القومى

يطلع معايا فى التقرير كل رقم فى مربع نص لوحده

 

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

ويارب اكون قدرت اوصف المطلوب

مرفق صورة للتوضيح

 

[Moosak]

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

حبذا لو ترفق ملفك للتطبيق عليه مباشرة ..

[أحمد العيسى]

سبق وأن طبقت حالة مشابهة فى تقرير لإظهار استمارة 1_سري للمدرسين

بهذه الدالة

=Mid([National_Nr];14;1)

=Mid([National_Nr];13;1)

.

.

حيث National_Nr هو حقل الرقم القومى

الأرقام 14 ، 13 ، ... ، 1  هى ترتيب كل رقم داخل هذا الحقل من اليمين لليسار

بينما رقم 1  المكرر فى كل دالة معناه اختيار عدد واحد فقط من 14 رقم

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

[Lotfy14]

ساقوم بعمل نموذج مصغر من طلبى
ورفعه باذن لله للتطبيق عليه

 

شكرا للاخ " احمد العيسى " على الفكرة

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

[AlwaZeeR]

Public Sub SplitNumbersIntoTextBoxes(inputText As String, ParamArray textBoxes() As Variant)
   
    Dim i As Integer
    Dim numLength As Integer

    numLength = Len(inputText)

    For i = 1 To numLength
        If i <= UBound(textBoxes) + 1 Then
            If TypeName(textBoxes(i - 1)) = "TextBox" Or TypeName(textBoxes(i - 1)) = "Control" Then
                textBoxes(i - 1).Value = Mid(inputText, i, 1)
            End If
        End If
    Next i

    Exit Sub
 
End Sub

ضع الكود السابق في وحدة نمطية 
قم باستدعائه هكذا:

 

Call SplitNumbersIntoTextBoxes([هنا حقل الرقم الوطني], Me.txtBox1, Me.txtBox2)

قم بتغيير الاسماء في الاستدعاء حسب مربعات النص التي تريد تقسيم الرقم فيها
يمكنك اضافة العدد الذي تريد من المربعات حسب حاجتك
 

[ابو جودي]

ايه ده
مش ممكن نفكر بمرونه شويه يا ناس ؟ افضل انا اكتب اسماء ال 14 مربع نص

فاضى انا بقه صح

طبعا امزح مع استاذى و معلمى الاستاذ القدير @AlwaZeeR 

[Foksh]

هذه محاولتي البسيطة

Test ID.accdb

[ابو جودي]

دى فكرتى
فى وحدة نمطيه عامة نضع الكود التالى 
 

Public Sub SplitNationalID(formOrReport As Object, nationalID As String)
    Dim i As Integer
    Dim ctrl As Control
    
    ' التأكد من أن الرقم القومي يحتوي على 14 رقمًا
    If Len(nationalID) <> 14 Then
        MsgBox "الرقم القومي يجب أن يتكون من 14 رقمًا!", vbExclamation
        Exit Sub
    End If
    
    ' فصل الرقم القومي إلى أرقام فردية وتعيينها إلى مربعات النص
    For Each ctrl In formOrReport.Controls
        If TypeName(ctrl) = "TextBox" And Left(ctrl.Name, 3) = "txt" Then
            i = Val(Mid(ctrl.Name, 4)) ' استخراج الرقم من اسم مربع النص (مثل txt1, txt2, إلخ)
            If i >= 1 And i <= 14 Then
                ctrl.Value = Mid(nationalID, i, 1)
            End If
        End If
    Next ctrl
End Sub

على ان يكون فى النموذج عدد 15 مربع النص
مربع النص الاول يكون باسم : txtNationalID
والباقى تكون اسمائهم txt1 الى txt14

وزر امر عند الضغط عليه يتم استدعاء الدالة بالشكل التالى 
 

SplitNationalID Me, Me.txtNationalID.Value

ونفس الموضوع للتقرير على ان يتم الاستدعاء عند الفتح 

 

4 دقائق مضت, Foksh said:

هذه محاولتي البسيطة

وانا اكتب انت تضع المرفق 

لا وبتفكر زى افكار 

بس انا فكرتى اكثر مرونه منك 😛😄

[Foksh]

9 دقائق مضت, ابو جودي said:

لا وبتفكر زى افكار 

 

عشان تعرف بس معزتك قد ايه 

[AbuuAhmed]

ربما بهذه الحلقة تكفي:
 

    For i = 1 To 14
        formOrReport.Controls("txt" & i) = Mid(nationalID, i, 1)
    Next i

 

[kkhalifa1960]

مشاركة مع اساتذتنا تفضل استاذ @Lotfy14 نموذج كان لدي طورته حسب طلبك بالجزء الأول يمكن يفيدك .

DDTempTest 2312025.accdb

[Lotfy14]

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

بشكر كل اخ فكر فى الموضوع وحاول يلاقى حل لطلبى

kkhalifa1960

Foksh

ابو جودي

AlwaZeeR

AbuuAhmed

lotfy@14.rar
ابهرتونى اقسم بالله ،، دا طبعا غير انى جربت فكرة الاخ ( احمد عيسى )
ولاقتها حلوه بس مش بتتطبق على التاريخ وفيها بعض اللغبطة فى الترتيب عن فتح التقرير

 

مرفق للساده الافاضل نموذج مصغير ويوجد به تصميم التقرير للاستمارة 2س

 

المفروض ان فى عدد ( 2 ) جدول _ موظفين وبيانات المنشأة

عاوز اعمل استعلام يربط بين الجدولين بالبيانات المطلوبة فى تقرير الاستمارة

على ان يكون

1- رقم البطاقة كل رقم منفصل فى خانة لوحده

2- التاريخ ايضا كل حاجة فى مربعها سواء من ( يوم - شهر - سنة )

3- خانة الاجر الشامل والاجر التأمين يوجد ارقام فى خانه المبلغ ويوجد خانة للقرش محتاج فصلهم برضة

ملحوظة

هيتم عمل فرم يوجد فيه البيانات الموجود فى جدول الموظفين اريد انا اختار طباعة ويتم الطباعه

لانى لاحظت بعض الاخوه مرفقين نماذج انى اكتب الرقم القومى وبدوسة على زر يتم تقسيمها فى المربعات

ولا طبعا صعب اعمل فى كل مرة لكل موظف لوحده

lotfy@14.rar

[kkhalifa1960]

تفضل استاذ @Lotfy14 مرفقك بعد التعديل . راجعه ووافني بالرد .

lotfy@14-112.rar

[Lotfy14]

43 دقائق مضت, kkhalifa1960 said:

تفضل استاذ @Lotfy14 مرفقك بعد التعديل . راجعه ووافني بالرد .

 

اخى الفاضل [ kkhalifa1960 ]
 

لك منى كل احترام وتقدير على مجهودك " بارك الله فيك "
تم عمل اللازم واكتر مما توقعت والنموذج المرفق سهل عليه حاجات كتير جدا بعد كدا فى البرنامج
( وفيت واستوفيت )