Re: [Programmer-VB] perubahan caption sebuah button

Fri, 02 Sep 2005 20:07:38 -0700

Dear Mario,
 
Try this code ...
 
'/ ******************* code here ***************************/
Private Sub cmdsimpan_Click()
 
If cmdsimpan.Caption = "&New" Then
    cmdsimpan.Caption="&Save"
    ready
    blankform
    txtkode.SetFocus
 ElseIf cmdsimpan.Caption = "&Save" 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
     Data1.Recodset.Update
     txtkode.Text = ""
     blankform
  cmdsimpan.Caption = "New"
End If
 
End Sub
Best regard,
 
Riyan Sugara 

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 for Mobile
Take Yahoo! Mail with you! Check email on your mobile phone.

Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]


YAHOO! GROUPS LINKS



Kirim email ke