نوشته اصلی توسط
hassanaliba
درخواست کمک در مورد باتون ویرایش یوزر فرم فایل ارسالی اینجانب
از دوستان عزیز خواهشمند م فایل ارسالی اینجانب دکمه ویرایش ان عمل نمی کند نسبت به ویرایش ان اقدام فرمایید
باتشکر فروان از دوستان انجمن
سلام،
برای اینکار نیاز به دو باتن دارید، به این صورت که باتن اول، اطلاعات ردیف انتخابی در لیست باکس رو داخل تکس باکس ها قرار میده سپس بوسیله باتن دوم تغیرات
اعمال بشه.
مثال زیر رو ببینید :
کد:
Private Sub cmdEdit_Click()
If ListBox1.ListIndex <> -1 Then
With ListBox1
TextBox6.Value = .List(.ListIndex, 0)
TextBox7.Value = .List(.ListIndex, 2)
End With
End If
End Sub
Private Sub cmdUpdate_Click()
lr = Cells(Rows.Count, 2).End(3).Row
For i = 3 To lr
If TextBox6.Text = Cells(i, 2) Then
Cells(i, 4) = TextBox7.Value
End If
Next i
End Sub
علاقه مندی ها (Bookmarks)