buat indikatornya mbak, dimana valuenya berubah saat form load, click new dan
click save. indikator itu bisa macam2 teserah selera programernya, misal berupa
disable/enable textbox, warna pada sebuah control, variable, dll...
contoh berikut sy deklarasikan 1 buah variable sebagai variable indikator
bahwa tombol NEW sudah di klik atau belum.
dim NewClicked as boolean
sub FormEntry_load
'saat petama kali form tampil, tombol New belum diklik, maka:
NewClicked = false
end sub
sub ButtonNEW_Click
'karena tombol New sudah diklik, maka:
NewClicked = true
end sub
sub ButtonSAVE_Clik
if NewClicked then
'.... lakukan coding simpan data di sini,
'....
'setelah itu :
NewClicked = false
else
'kalo New blum diklik, maka:
msgbox "Maaf data tdk dpt disimpan, tombol NEW belum anda klik !"
end if
end sub
demikian, smoga membantu.
.carin
Maya Agnelia <[EMAIL PROTECTED]> wrote:
makasih Aa Toni yg ganteng, dan makasih juga mas mul
dan mas lain atas responya.
kasusnya gini, saya mau spy pd saat form entry tampil
sekalipun tidak di disable objek textBoxnya namun user
hrs mengclick button NEW terlebih dulu shg apabila
user langsung mengisi entrian data nanti pd saat
diclick button SAVE maka akan ada pesan bahwa user blm
mengclick button NEW. jadi pertanyaanya adalah gmn
cara mendetek bahwa button NEW ini udah diklik
thanks
maya
--- Toni Rahayu wrote:
>
>
> Halo maya.............
> Ya.. kasih warna saja tuh control setelah di click,
> contoh :
>
> Private Sub Command1_Click()
> Command1.BackColor = vbRed
> End Sub
>
> Tapi saya yakin maksud pertanyaan maya bukan itu
> ??!!
>
> Rgds
>
>
> Maya Agnelia on 23/08/2006
> 03:38:03 PM
>
> Please respond to [email protected]
>
> To: [email protected]
> cc: (bcc: Toni Rahayu/IT/domino_srv)
>
> Subject: [indoprog-vb] mendetek click
>
> hi guys,
> numpang nanya nih,
> gmn sih caranya kita mendetek kalo control itu sudah
> diclick. contohnya commandButton, label, textbox
> dll.
>
> thanks all
> maya
---------------------------------
Stay in the know. Pulse on the new Yahoo.com. Check it out.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
