errornya apa? (Else yg dimaksud ElseIf kan?)
setelah
Data1.Recordset.AddNew!teleponsup = txttelepon.Text
ada ini gak?
Data1.Recordset.Update
cmiiw
mario <[EMAIL PROTECTED]> wrote:
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! Mail
Stay connected, organized, and protected. Take the tour
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
