تعديل لشروط حالة الأب وحالة الأم في الفورم

[kinguter1]

ارجو المساعدة فى تعديل الكود المرفق حسب المطلوب فى شيت1

 وكل عام وانتم بخير

Book1.rar

[ياسر خليل أبو البراء]

أخي الكريم

يرجى تغيير اسم الظهور للغة العربية

 

جرب التعديل التالي عله يكون المطلوب

Private Sub ComboBox6_Change()
    If ComboBox5.Value = "موجود" Then
        TextBox18.Value = TextBox6.Value & " " & TextBox7.Value & " " & TextBox8.Value
    ElseIf ComboBox5.Value <> "غير موجود" And ComboBox6.Value = "موجودة" Then
        TextBox18.Value = TextBox17.Value
    ElseIf ComboBox5.Value <> "غير موجود" And ComboBox6.Value = "غير موجودة" Then
        TextBox18.Value = ""
    Else
        TextBox18.Value = ""
    End If
End Sub

تقبل تحياتي

 

[kinguter1]

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

عند الخروج من textbox الرقم القومى يتم كتابة تاريخ الميلاد و المحافظة و النوع والديانة فى أماكنها فى الفورم

وكل عام و حضرتك بخير

[ياسر خليل أبو البراء]

أخي الكريم ضع الكود التالي في حدث الفورم

Private Sub ComboBox6_Change()
    If ComboBox5.Value = "موجود" Then
        TextBox18.Value = TextBox6.Value & " " & TextBox7.Value & " " & TextBox8.Value
    ElseIf ComboBox5.Value <> "غير موجود" And ComboBox6.Value = "موجودة" Then
        TextBox18.Value = TextBox17.Value
    ElseIf ComboBox5.Value <> "غير موجود" And ComboBox6.Value = "غير موجودة" Then
        TextBox18.Value = ""
    Else
        TextBox18.Value = ""
    End If
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox19.Value = Kh_Date_Gender_Province(TextBox3.Value, 1)
    TextBox20.Value = Kh_Date_Gender_Province(TextBox3.Value, 2)
    TextBox12.Value = Kh_Date_Gender_Province(TextBox3.Value, 3)
End Sub

وضع الكود التالي في موديول عادي (وهي عبارة عن دالة معرفة تقوم بالمطلوب)

Function Kh_Date_Gender_Province(MyNumber As Variant, MyTest As Byte)
    Dim MyProvinces As Variant
    Dim R As Long
    Dim YY As String
    Dim TY As String * 1
    Dim D As String * 2, M As String * 2, Y As String * 2, X As String * 2, XX As String * 2
    
    MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "12/الدقهلية", "13/الشرقية", "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة", "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "24/المنيا", "25/أسيوط", "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح", "23/الفيوم", "88/خارج الجمهورية", "11/دمياط", "04/السويس", "03/بورسعيد", "34/شمال سيناء", "35/جنوب سيناء", "32/الوادي الجديد", "31/البحر الأحمر")
    
    D = Mid(MyNumber, 6, 2)
    M = Mid(MyNumber, 4, 2)
    Y = Mid(MyNumber, 2, 2)
    TY = Left(MyNumber, 1)
    
    Select Case TY
        Case "2": YY = "19" & Y
        Case "3": YY = "20" & Y
        Case Else
    End Select

    Kh_Date_Gender_Province = ""
    On Error GoTo 1
   
    If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Or Len(Trim(MyNumber)) = 0 _
    Or Val(M) < 1 Or Val(M) > 12 Or (Val(TY) <> 2 And Val(TY) <> 3) Or Month(DateSerial(YY, M, D)) <> Val(M) Then
            Kh_Date_Gender_Province = ""
            GoTo 1
    End If
    
    If MyTest = 1 Then
        If YY <> "" Then Kh_Date_Gender_Province = DateSerial(YY, M, D)
    ElseIf MyTest = 2 Then
        If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then YY = "ذكر" Else YY = "أنثى"
        Kh_Date_Gender_Province = YY
    ElseIf MyTest = 3 Then
        X = Mid(MyNumber, 8, 2)
        For R = LBound(MyProvinces) To UBound(MyProvinces)
            XX = MyProvinces(R)
            If X = XX Then
                Kh_Date_Gender_Province = Right(MyProvinces(R), Len(MyProvinces(R)) - 3)
                Exit For
            End If
        Next
    End If
1: End Function

أما فيما يخص الديانة فليس لي علم أن الرقم القومي به أرقام تدل على الديانة

تقبل تحياتي

[kinguter1]

الف الف شكر يا استاذ ياسر

زادك الله علماً ونفع بك وجعله فى ميزان حسناتك .

وبالنسبة لتغيير اسم الظهور أنا حاولت لكن مش عارف الخطوات

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير أخي الكريم

قم بقراءة التوجيهات في الموضوع التالي لتعرف كيفية التعامل مع المنتدى بشكل أفضل ، وستجد الإجابة على تساؤلك

من هنا