Sore semuanya
Mohon bantuannya, saya lagi bikin form buat ganti password
Dimana password yg baru dibatasi minimal 6digit
Saya udah coba:
Private Sub cmdOK_Click()
If LCase(txtOld.Text) <> Sheet1.Range("b2").Value Then
MsgBox "Isi password lama dengan benar"
txtOld.Text = ""
txtOld.SetFocus
'disini saya sudah coba sisipkan untuk membatasi minimal 6digit
'tapi error, salah
ElseIf LCase(txtNew.Text) < 6digit Then
txtNew.Text = ""
txtConfirm.Text = ""
txtNew.SetFocus
ElseIf LCase(txtNew.Text) <> LCase(txtConfirm.Text) Then
MsgBox "Password baru tidak sesuai"
txtNew.Text = ""
txtConfirm.Text = ""
txtNew.SetFocus
Else
Sheet1.Range("b2").Value = LCase(txtNew.Text)
Unload Me
MsgBox "Berhasil...!!!"
End If
End Sub
Mohon bantuannya bahasa minimal 6digit yg bener seperti apa?
Trimakasih sebelumnya
Wassalam
Lapendosol
