Nhờ sửa Code thay thế dữ liệu (1 người xem)

[quoc nhat]

Nhờ các anh chị sửa giúp em code trên form để thay thế dữ liệu cụ thể ở đây là thay thế tên đăng nhập và mật khẩu
Em đang làm form thay đổi tên đăng nhập và mật khẩu đăng nhập trên form nhưng code không chạy được
file đây ạ
http://www.mediafire.com/download/4af19s9uugd7v7b/Book1.xls

 

[giaiphap]

Bạn sửa code trong Form như sau.

Private Sub cmdThaydoi_Click()
If txtUser = "" Or txtPassword = "" Then Exit Sub
Dim rng As Range, sRng As Range, i As Long
Set sRng = [a2:a100].Find(txtUser.Value, , xlValues, xlWhole)
If Not sRng Is Nothing Then
    If sRng.Offset(, 1) = txtPassword.Text Then
        sRng = txtUserNew.Text
        sRng.Offset(, 1) = txtPasswordNew.Text
        MsgBox "Da thay doi xong"
        End
    End If
End If
MsgBox "Khong tim thay tai khoan " & txtUser.Text
End Sub

 

[quoc nhat]

Bạn sửa code trong Form như sau.

Private Sub cmdThaydoi_Click()
If txtUser = "" Or txtPassword = "" Then Exit Sub
Dim rng As Range, sRng As Range, i As Long
Set sRng = [a2:a100].Find(txtUser.Value, , xlValues, xlWhole)
If Not sRng Is Nothing Then
    If sRng.Offset(, 1) = txtPassword.Text Then
        sRng = txtUserNew.Text
        sRng.Offset(, 1) = txtPasswordNew.Text
        MsgBox "Da thay doi xong"
        End
    End If
End If
MsgBox "Khong tim thay tai khoan " & txtUser.Text
End Sub

Cảm ơn bạn đã giúp đỡ
để mình kiểm tra lại xem đã ok chưa.