Trimakasih banyak mas Kid, Sudah berhasil ElseIf Len(txtNew.Text) < 6 Then bla..bla..bla.. End If
________________________________ From: Mr. Kid <[email protected]> To: [email protected] Sent: Wednesday, December 12, 2012 6:20 PM Subject: Re: [belajar-excel] Form Ganti Password Hai Opik, Kata 6digit (atau 6 char) artinya ada karakter sebanyak 6 bijik. Untuk menghitung jumlah karakter suatu data adalah dengan fungsi Len Membandingkan jumlah karakter bisa dilakukan sepeti : Len("ABC")>Len("XYZ") akan menghasilkan FALSE Wassalam, Kid. 2012/12/12 lapendosol opik <[email protected]> > >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 >
