Hlo mw nanya nih misal saya punya button dgn caption = "New"
Kemudian klo di klik caption dia akan berubah menjadi "Simpan"
Gimana caranya ya?
------start of code
Private Sub cmdsimpan_Click()
If cmdsimpan.Caption = "New" Then
ready
blankform
txtkode.SetFocus
cmdsimpan.Caption = "Simpan"
else cmdsimpan.Caption = "Simpan" Then
Data1.Recordset.AddNew
Data1.Recordset.AddNew!kodesup = txtkode.Text
Data1.Recordset.AddNew!namasup = txtnama.Text
Data1.Recordset.AddNew!alamatsup = txtalamat.Text
Data1.Recordset.AddNew!kotasup = txtkota.Text
Data1.Recordset.AddNew!teleponsup = txttelepon.Text
txtkode.Text = ""
blankform
cmdsimpan.Caption = "New"
End If
End Sub
----------end of code
Masalahnya coding yang saya buat itu error... kayaknya sih begitu caption
nya berubah jadi "Simpan" maka data akan tersimpan.
Yang saya ingin, begitu captionnya berubah menjadi "Simpan", kita harus
meng-klik lagi tombol tsb untuk menyimpan data ... dan merubah captionnya
menjadi "New" lagi.
Dulu pernah diajarin sih, cuman catatannya ilang...
Please help ya master...
Send instant messages to your online friends http://asia.messenger.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Get Bzzzy! (real tools to help you find a job). Welcome to the Sweet Life.
http://us.click.yahoo.com/A77XvD/vlQLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-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/
