CODING TAMBAH & SIMPAN
source code
Menulis Coding Program
- Double Klik pada Command Tambah kemudian isikan coding untuk menambahkan data, seperti berikut ini:
If Command1.Caption = "Tambah" Then
Command1.Caption = "Simpan"
Command2.Enabled = False
Command3.Enabled = False
DataGrid1.Enabled = False
Adodc1.Recordset.AddNew
Text1.SetFocus
Text2.SetFocus
Else
Command1.Caption = "Tambah"
Command2.Enabled = True
Command3.Enabled = True
DataGrid1.Enabled = True
Adodc1.Recordset.Update
DataGrid1.Refresh
End If
Note :
perhatikan / sesuaikan "Command" jika coding tidak
berjalan !
berjalan !
SELAMAT MENCOBA
salam,
SELAMAT MENCOBA
