مساعده (في زر حفظ التعديل في فوورم )

[الجموعي]

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

محتاج مساعده في ها الكود وهو مرتبط بزر حفظ التعديل

الكود الرئيسي يعمل بنجاح في حالة البحث عن طريق ComboBox2

عند حفظ التعديل يتم حفظ البيانات عند البحث عن طريق الكمبوكسComboBox2

أما عند البحث عن طريق TextBox1 أو TextBox

عند حفظ التعديل لا يتم ترحيل البيانات

ملاحظه

ComboBox2= البحث برقم التسجيل

TextBox1=البحث عن بتاريخ الميلاد

TextBox= البحث بالإسم الكامل

الكود الرئيسي

Option Explicit

Dim id As Integer, i As Integer, j As Integer, flag As Boolean


Sub EditAdd()

Dim emptyRow As Long

If UserForm1.ComboBox2.Value <> "" Then
'يتم إضافة الكود الأول هنا
    flag = False
    i = 0
    id = UserForm1.ComboBox2.Value
'هنا يتم إضافة الكود الثاني
    emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
    
    Do While Cells(i + 1, 1).Value <> ""
    
        If Cells(i + 1, 1).Value = id Then
            flag = True
            For j = 2 To 7
                Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
            Next j
        End If
        
        i = i + 1
        
    Loop
    
    If flag = False Then
        For j = 1 To 7
            Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value
        Next j
    End If
    
End If

End Sub

أريد إضافة الأكواد التالية

'الكود الأول
ElseIf UserForm1.TextBox.Value <> "" Then
ElseIf UserForm1.TextBox1.Value <> "" Then 

'الكود الثاني
id = UserForm1.TextBox.Value
id =serF Uorm1.TextBox1.Value

أنا حاولت ولم يفلح معي الأمر

البحث.rar

[عبدالله باقشير]

السلام عليكم

 انت عامل شرط لتنفيذ الكود وهو

If UserForm1.ComboBox2.Value <> "" Then

وايضا ياخذ قيمة البحث من ComboBox2

id = UserForm1.ComboBox2.Value

عند البحث عن طريق TextBox1 أو TextBox

مافيش قيمة في ComboBox2

 

جرب التالي:

الغي الشرط

واسند القيمة الى التاكست الذي فيه رقم التسجيل

لان البحث يتم في هذا العمود حسب السطر التالي

If Cells(i + 1, 1).Value = id Then

تحياتي

[الجموعي]

السلام عليكم

 انت عامل شرط لتنفيذ الكود وهو

If UserForm1.ComboBox2.Value <> "" Then

وايضا ياخذ قيمة البحث من ComboBox2

id = UserForm1.ComboBox2.Value

عند البحث عن طريق TextBox1 أو TextBox

مافيش قيمة في ComboBox2

 

جرب التالي:

الغي الشرط

واسند القيمة الى التاكست الذي فيه رقم التسجيل

لان البحث يتم في هذا العمود حسب السطر التالي

If Cells(i + 1, 1).Value = id Then

تحياتي

شكرا أستاذي

ألغيت الشرط ووضعت الكود ولم تضبط معي

الملف مرفق في المشاركة 1 حاول التجريب عليه

Sub EditAdd()

Dim emptyRow As Long

If Cells(i + 1, 1).Value = id Then

    flag = False
    i = 0
    
   
    emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
    
    Do While Cells(i + 1, 1).Value <> ""
    
        If Cells(i + 1, 1).Value = id Then
            flag = True
            For j = 2 To 7
                Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
            Next j
        End If
        
        i = i + 1
        
    Loop
    
    If flag = False Then
        For j = 1 To 7
            Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value
        Next j
    End If
    
End If

End Sub

[عبدالله باقشير]

السلام عليكم

 

ما قمت به خطأ ولم تنفذ شي مما قلته

 

لم تلغي الشرط بل استبدلته بشرط خطأ

وحذفت اسناد القيمة للمتغير id  والمفروض ان تغير اسنادها لتاكست رقم التسجيل

 

======================================

هذا ما قصدته

Sub EditAdd()

Dim emptyRow As Long


    flag = False
    i = 0
    id = UserForm1.TextBox8.Value
   
    emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
    
    Do While Cells(i + 1, 1).Value <> ""
    
        If Cells(i + 1, 1).Value = id Then
            flag = True
            For j = 2 To 7
                Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
            Next j
        End If
        
        i = i + 1
        
    Loop
    
    If flag = False Then
        For j = 1 To 7
            Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value
        Next j
    End If
    

End Sub

جرب

[الجموعي]

السلام عليكم

 

ما قمت به خطأ ولم تنفذ شي مما قلته

 

لم تلغي الشرط بل استبدلته بشرط خطأ

وحذفت اسناد القيمة للمتغير id  والمفروض ان تغير اسنادها لتاكست رقم التسجيل

 

======================================

هذا ما قصدته

Sub EditAdd()

Dim emptyRow As Long


    flag = False
    i = 0
    id = UserForm1.TextBox8.Value
   
    emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
    
    Do While Cells(i + 1, 1).Value <> ""
    
        If Cells(i + 1, 1).Value = id Then
            flag = True
            For j = 2 To 7
                Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
            Next j
        End If
        
        i = i + 1
        
    Loop
    
    If flag = False Then
        For j = 1 To 7
            Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value
        Next j
    End If
    

End Sub

جرب

أستاذي الفاضل /عبد الله باقشير

معذرة عن عدم فهمي ما قصدته

يعجز القلب و اللسان عن شكرك

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

أنت نعم السند بارك الله فيك

ربي يجزيك الجنة

[عبدالله باقشير]

جزاك الله خير

لكن لم ننتهي بعد

 

ما غرضك من هذه الجزئية

If flag = False Then
        For j = 1 To 7
            Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value
        Next j
    End If

[الجموعي]

 

جزاك الله خير

لكن لم ننتهي بعد

 

ما غرضك من هذه الجزئية

If flag = False Then
        For j = 1 To 7
            Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value
        Next j
    End If

أستاذي الكريم

هذا الكود وجدته في ملف من منتدى أجنبي

قمت بنسخه وإستبدال ما يجب تغييره

صراحة لا أعرف ما الغرض منة

ربما عنده علاقه بالازرار في الملف الأصلي

هاهو الكود كاملا من الملف الأصلي

Option Explicit

Dim id As Integer, i As Integer, j As Integer, flag As Boolean

Sub GetData()

If IsNumeric(UserForm1.TextBox1.Value) Then
    flag = False
    i = 0
    id = UserForm1.TextBox1.Value
    
    Do While Cells(i + 1, 1).Value <> ""
    
        If Cells(i + 1, 1).Value = id Then
            flag = True
            For j = 2 To 3
                UserForm1.Controls("TextBox" & j).Value = Cells(i + 1, j).Value
            Next j
        End If
        
        i = i + 1
        
    Loop
    
    If flag = False Then
        For j = 2 To 3
            UserForm1.Controls("TextBox" & j).Value = ""
        Next j
    End If
    
Else
    ClearForm
End If

End Sub

Sub ClearForm()

For j = 1 To 3
    UserForm1.Controls("TextBox" & j).Value = ""
Next j

End Sub

Sub EditAdd()

Dim emptyRow As Long

If UserForm1.TextBox1.Value <> "" Then
    flag = False
    i = 0
    id = UserForm1.TextBox1.Value
    emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
    
    Do While Cells(i + 1, 1).Value <> ""
    
        If Cells(i + 1, 1).Value = id Then
            flag = True
            For j = 2 To 3
                Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
            Next j
        End If
        
        i = i + 1
        
    Loop
    
    If flag = False Then
        For j = 1 To 3
            Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value
        Next j
    End If
    
End If

End Sub

[عبدالله باقشير]

السلام عليكم

اذا تريد التعديل فقط

يكفي هذا

Sub EditAdd()
Dim m
Dim id As Integer, j As Integer

id = Val(UserForm1.TextBox8)
m = Application.Match(id, Range("A:A"), 0)
If Not IsError(m) Then
    For j = 2 To 7
        Cells(m, j).Value = UserForm1.Controls("TextBox" & j).Value
    Next j
End If
End Sub

تحياتي

[الجموعي]

السلام عليكم

اذا تريد التعديل فقط

يكفي هذا

Sub EditAdd()
Dim m
Dim id As Integer, j As Integer

id = Val(UserForm1.TextBox8)
m = Application.Match(id, Range("A:A"), 0)
If Not IsError(m) Then
    For j = 2 To 7
        Cells(m, j).Value = UserForm1.Controls("TextBox" & j).Value
    Next j
End If
End Sub

تحياتي

شكرا أستاذي على الكود المختصر

بارك الله فيك

ياريت شرح وجيز للكود الكامل البحث والحذف والتعديل

أستاذي عند مشكلة عند تعديل رقم التسجبل لا يتم تعديل الرقم أما البيانات الأخرى كلها تعدل

[الجموعي]

للرفع في إنتظار ردك أستاذي القدير عبد الله باقشير