สวัสดีครับ ขอสอบถามเรื่อง Code VBA ครับ
กำลังทำเรื่อง Form Login อยู่ ซึ่งจะต้องมีเรื่องการเปลี่ยน Password ด้วย ซึ่งผมต้องการทำให้หลังจากกดปุ่ม “เปลี่ยนรหัสผ่าน” แล้ว มีการแจ้งเตือน พร้อมส่ง Password ใหม่ไปที่ E-Mail ของแต่ละ User ครับ ผมลองหาวิธีการในยูทูปเพื่อที่จะประยุกต์แล้ว แต่ก็ไม่สามารถทำได้ ยังไงรบกวนช่วยดู Code ให้หน่อยนะครับ
Code ที่แนบมานี้เป็น Code การเปลี่ยน Password ล้วนๆครับ(Click ที่ปุ่ม “เปลี่ยนรหัสผ่าน”(cmdChange)) ไม่แน่ใจว่าจะต้องเขียนต่อจากนี้อย่างไร ผมเขียนๆลบๆอยู่นานเลย ไม่สำเร็จเสียที
รบกวนทุกท่านด้วยนะครับ
ขอบคุณล่วงหน้าครับ
Private Sub cmdChange_Click()
If DLookup("Password", "tblUser", "UserLogin='" & Me.txtUserLogin & "'") = Me.txtOldPassword Then
If Me.txtNewPassword & "" <> "" And Me.txtNewPassword <> Me.txtOldPassword Then
nEmployee = DLookup("UserID", "tblUser", "UserLogin='" & Me.txtUserLogin & "'")
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("tblUser", dbOpenDynaset)
rs.FindFirst "[UserID]=" & nEmployee
rs.Edit
rs!Password = Me.txtNewPassword
rs.Update
rs.Close: Set rs = Nothing
Me.txtUserLogin = ""
Me.txtOldPassword = ""
Me.txtNewPassword = ""
MsgBox “เปลี่ยนรหัสผ่านเรียบร้อยแล้ว กรุณาใส่รหัสผ่านใหม่เมื่อ Login", , “เปลี่ยนรหัสผ่านแล้ว"
Else
MsgBox "กรุณาใส่รหัสผ่านใหม่ในช่องเปลี่ยนรหัสผ่าน", , “รหัสผิดพลาด"
End If
Else
MsgBox “คุณอาจไม่ได้กรอก UserLogin, OldPassword, NewPassword หรือกรอกอย่างใดอย่างหนึ่งผิด โปรดตรวจสอบอีกครั้ง", , “เปลี่ยนรหัสผ่านไม่สำเร็จ"
End If
End sub
