تصحيح كود تعديل البيانات

[2saad]

اخواني اعضاء المنتدي الكرام  بعد سلام الله عليكم ورحمة الله وبركاته

الملف المرفق به فورم 

عندما اختار اوبشن بوتن محمد مثلا واعمل بحث عن شخص معين تظهر البيانات

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

ما الحل ؟مني 3.xlsm

[محمد هشام.]

 

الحل انك تقوم بتعديل اسماء التكست بوكس 35 و 36

انت لما بتعدل بتنسخ قيمة تيكست بوكس البحث  حاول تغيير اسمها لاسم اخر واعادة تسمية التيكست بوكس 36 الا 35 بدون ما تنسى تغيير الاسماء داخل الاكواد

 

[2saad]

شكرا جزيلا وبارك الله فيك

[محمد هشام.]

تم تصحيح كود التعديل فقط  بعد تعديل اسماء التكست بوكس على ما اظن ان النسخة الاحدث منى 4 قد تم تعديل وتصحيح الاكواد بها 

.استغرب لما تقوم بحدف التعديلات دائما واعادة رفع نفس الملفات 

Dim SH As Worksheet: Set SH = ActiveSheet
Dim X As Long
Application.ScreenUpdating = False
If Me.TextBox1.Value = Empty Then: Exit Sub
    X = Application.Match(Val(TextBox1.Value), SH.Columns("C"), 0)
    If Not IsError(X) Then
        For i = 1 To 35
            SH.Cells(X, i + 2).Value = Controls("TextBox" & i).Value
            
             SH.Cells(X, i + 2).Value = SH.Cells(X, i + 2).Value
                    Next i
        End If
        For R = 1 To 35
    Me("Textbox" & R) = ""
  Next R
  Me.Recherche = ""
SH.Range("C11").Value = 1
SH.Range("C11:C" & Range("E" & Rows.Count).End(xlUp).row).DataSeries , xlDataSeriesLinear

 

مني 3.xlsm