Nhấn nút sửa tren Fr chỉ sửa được 1 ô. Các bạn xem Fr và giải thích dùm

[manhhung12]

Tôi gửi kèm File trên đó có 1 fr. Trên fr có 1 nút edit, khi tôi nhấn edit thì ct chỉ cập nhật (sửa được 1 fiel tức là 1 ô của bảng tính) mặc dù trên fr tôi có sửa đến các ô khác.
Mong các bạn tìm và chỉ ra lỗi cũng như cách khắc phục

 

[sealand]

Bạn thêm 1 chút trong sự kiện sau nhé

Private Sub ListBox1_Change()
If FLAG = "" Then
Me.TextBox1.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
Me.TextBox2.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
Me.TextBox3.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 3)
Me.TextBox4.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 4)
Me.TextBox5.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 5)
End If
End Sub
Nếu không bạn mới sửa 1 ô Listbox thay đổi nó sẽ nạp lại các Textbox và xóa mất nọi dung đã sửa

 

[manhhung12]

Bạn thêm 1 chút trong sự kiện sau nhé

Private Sub ListBox1_Change()
If FLAG = "" Then
Me.TextBox1.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
Me.TextBox2.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
Me.TextBox3.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 3)
Me.TextBox4.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 4)
Me.TextBox5.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 5)
End If
End Sub
Nếu không bạn mới sửa 1 ô Listbox thay đổi nó sẽ nạp lại các Textbox và xóa mất nọi dung đã sửa

ồ vậy mà tôi kg nghĩ ra.
Tks