Tecnologia, programação e muito Visual FoxPro.

quinta-feira, 20 de outubro de 2011

Re: ]] XL-mania [[ Membuat menu ganti password

sebagai alternatip lain; validasi mengenai  "sudah terisi/belum" - nya 4 textbox;
kita dapat mengatur perilaku si Tombol / CommandButton (yg akan dipakai
untuk menjalankan proses)

si Tombol akan dibuat DISABLED (ndak bisa digunakan) jika 4 textboxes yg ada
belum terisi semua, Jika semua telah terisi, barulah si Tombol di set = ENABLED

Artinya: YuSer baru akan dapat melanjutkan proses (=mengklik si Tombol) jika 
sudah mengisi semua textbox..



berhubung si tombol dan para textboxes itu ada di sheet1, maka prosedur events
ditulis di module sheet1 juga.

Private Sub txtNama_Change()
   UrusanButton
End Sub

Private Sub txtPassBaru_Change()
   UrusanButton
End Sub

Private Sub txtPassBaru2_Change()
   UrusanButton
End Sub

Private Sub txtPassLama_Change()
   UrusanButton
End Sub

Private Sub UrusanButton()
   Dim IsAllBoxFill As Boolean
   IsAllBoxFill = _
   (txtNama <> "") And (txtPassLama <> "") And _
   (txtPassBaru <> "") And (txtPassBaru2 <> "")
   
   If IsAllBoxFill Then
      ButtonGantipass.Enabled = True
   Else
      ButtonGantipass.Enabled = False
   End If
End Sub


'-------
lupa kiboard-short-cut di excel???  
daftarnya ada di sini:. http://www.box.net/shared/h0k1ds7gg3frypr67t1h



2011/10/20 STDEV(i) <setiyowati.devi@gmail.com>
Asumsi-asumsi
Tabel dianggap ditulis mulai di A1 di sheet2)
pada saat tombok di klik, semua textbox SUDAH terisi
(dimakronya belum ada validasi mengenai isi/kosong nya para textbod ini)

Sub GantiPass_Ya_GantiPass_tapi_jangan_tergesa_gesa()
   
' hapsari & siti Vi / 20 oct 2011
   '
dituis berdua karena belum selesai sudah kena ganti shift

End Sub

mudah-mudahan tidak terlalu banyak yg salah....


2011/10/19 iskandar wagimin harjo prawiro <nomor_pribadi@yahoo.co.id>
>
> Saya tengah membuat aplikasi yang digunakan oleh beberapa user. Setiap user diharuskan untuk login dengan memasukan username dan password. Untuk menunjang aplikasi agar lebih user friendly maka saya ingin menambahkan menu ganti password, namun saya terkendala dalam membuat menu tersebut. Saya mencoba dengan menggunakan cara find kemudian di offset baru diganti passwornnya, namun script saya masih belum benar maklum masih belajar.
>
> Private Sub gantipass_Click()
>     Dim seleksicari As Range
>     Dim cari As String
>     cari = Sheets("Sheet1").nama.Text
>     Set seleksicari = wspass.Range("A2:A65536")
>     seleksicari.Find(What:=cari, After:=ActiveCell, LookIn:=xlValues, _
>         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
>         MatchCase:=False, SearchFormat:=False).Activate
>   
  'sampai bagian ini belum berhasil, jd penulisan scriptnya belum dilanjutkan...
> End Sub
>
> Mohon bantuan para suhu untuk memberikan pencerahan bagaimana membuat menu ganti password tersebut.
>
> Terima Kasih.

Nenhum comentário:

Arquivo do blog