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

[إبراهيم ابوليله]

الاخوه الكرام
عند البحث فى اليوزر فورم واظهار النتائج فى الليست بوكس
ثم اظهار الصف المحدد من الليست بوكس فى تيكست بوكسات
المشكله هى انه عند التعديل يتم التعديل على البيانات الموجوده فى اول صف فى الليست بوكس
بمعنى اننى لو قمت بالبحث عن الرقم 4 سوف تظهر فى الليست كل البيانات التى تحتوى على الرقم اربعه
مثل رقم 41 و42 و43 الى اخره
ولكن عند تحديد مثلا الرقم 41 ومحاولة تعديل البيانات الخاصه به
سنجد ان التعديل يتم على الرقم 4 وليس على بيانات الرفم 41

الليست بوكس.rar

[احمد عبد الناصر]

السلام عليكم

 

استبدله بهذا 

 

Private Sub CommandButton1_Click()
Application.ScreenUpdating = True
YesNoCancel = MsgBox("ãåáÇ   åá ÞãÊ ÈÇÏÎÇá ÊÇÑíÎ ÊÞÏíã ÇáÇÓÊãÇÑå Ýì ÔíÊ ÇáÈíÇäÇÊ  . ¿", vbYesNoCancel + vbCritical, "ÇÈÑÇåíã ãÍãÏ ----------------------------------   ãä ÝÖáß   ...   ÇäÊÈå  ")
Select Case YesNoCancel
Case vbYes
If TextBox1.Text = "" Then
MsgBox "íÌÈ Úáíß ÇÎÊíÇÑ ÇáÑÞã ÃæáÇ ", vbInformation, "ÎØÃ"
TextBox1.SetFocus
Exit Sub
Else
Dim x, R As Variant
x = TextBox02.Value * 1
R = WorksheetFunction.Match(x, Range("NO"), 0) + 7
Sheet1.Cells(R, "B").Value = TextBox3.Value
Sheet1.Cells(R, "C").Value = TextBox4.Value
'Sheet1.Cells(R, "E").Value = TextBox7.Value
'Sheet1.Cells(R, "E").Value = CDate(Me.TextBox7)
Sheet1.Cells(R, "D").Value = TextBox5.Value
Sheet1.Cells(R, "E").Value = TextBox6.Value
Sheet1.Cells(R, "F").Value = TextBox7.Value
Sheet1.Cells(R, "G").Value = TextBox8.Value
Sheet1.Cells(R, "H").Value = TextBox9.Value
Sheet1.Cells(R, "I").Value = TextBox10.Value
Sheet1.Cells(R, "J").Value = TextBox11.Value
Sheet1.Cells(R, "K").Value = TextBox12.Value
Sheet1.Cells(R, "L").Value = TextBox13.Value
Sheet1.Cells(R, "M").Value = TextBox14.Value
Sheet1.Cells(R, "N").Value = TextBox15.Value
Sheet1.Cells(R, "O").Value = TextBox16.Value
Sheet1.Cells(R, "P").Value = TextBox17.Value
Sheet1.Cells(R, "Q").Value = TextBox18.Value
Sheet1.Cells(R, "R").Value = TextBox19.Value
Sheet1.Cells(R, "S").Value = TextBox20.Value
Sheet1.Cells(R, "T").Value = TextBox21.Value
Sheet1.Cells(R, "U").Value = TextBox22.Value
Sheet1.Cells(R, "V").Value = TextBox23.Value
Sheet1.Cells(R, "AC").Value = TextBox24.Value
'Sheet1.Cells(R, "AC").Value = CDate(Me.TextBox24)
'Call CODE
'Call NUMBERD
MsgBox "Êã ÇÏÎÇá ÇáÈíÇäÇÊ ÈäÌÇÍ"
End If
    Case vbNo
Exit Sub
Case vbCancel
Exit Sub
End Select

Application.ScreenUpdating = False
Me.Hide
End Sub

الفكرة كلها في هذا السطر  فقط  x = TextBox02.Value * 1

تحياتي

[أبو چيداء]

وما معنى هذا السطر اخى احمد

[احمد عبد الناصر]

السلام عليكم

 

ان كنت تقصد  *1 , اعتقد انها تستخدم لتحويل النص الي رقم لكن لا اظن ان لها فائدة هنا لكني احببت عدم التعديل علي الكود فكاتبه ادرى به , و الله اعلم

 

عامتا هذا السطر يعطي المتغير x قيمة التكست بوكس المسمى textbox02  ليقوم باقي الكود بالبحث عنه و تعديل باقي السطر بدلالته .

 

المشكلة انها كانت مكتوبة  textbox1 وهو التكست بوكس الخاص بالبحث اما textbox02  فيحتوي علي القيمة للسطر المختار .

 

تحياتي

[MAHMOUD ALI YOUSSEF]

السلام عليكم

 

حاول تخلي الرقم المراد التعديل علية هو المكتوب في مربع البحث فقط

 

فاذا  اردت ان تكتب 4 وظهر لك 4 و 41 و42و43  

 

فاذا ارد ان تعدل مثلا  42 

فقم بكتابة 42 في مربع البحث

ثم قم بالتعديل  واحفظ سوف يتم التعديل 

 

واتمني ان اكون قربتلك الفكرة