Menambahkan MsgBox pada Sintax Simpan Edit Hapus dan Keluar

Menambahkan MsgBox pada Sintax Simpan Edit Hapus dan Keluar. Tutorial sebelumnya kita sudah membahas tentang bagaimana menampilkan Data Bound Grid di visual basic. Sebelum kita lanjut alangkah lebih baiknya kita ketahui dulu fungsi MsgBox pada pemrograman visual basic.

Pemrograman visual basic sudah gak asing lagi di telinga seorang programmer, banyak sekali fungsi-fungsi dan sintax-sintax pemrograman visual basic yang masih belum banyak kita ketahui, salah contoh fungsi dari "MsgBox". Bagi yang pengalaman dan lama bergelut di bahasa pemrograman visual basic sudah tidak asing lagi mendengar fungsi dari msgbox itu apa, tapi bagi yang masih awam mungkin masih bingung dan tidak tahu apa itu MsgBox. Untuk itu perhatikan artikel ini dan baca secepat dan sesingkat mungkin, biar anda tahu dan pahami apa saja fungsi MsgBox.

Fungsi Msgbox adalah membuat sebuah jendela dialog dengan pesan agar seorang pengguna memberikan tanggapan dengan mengklik salah satu tombol yang di buat.

Contohnya anda bisa lihat desain yang sudah kita buat pada tutorial sebelumnya.

Menambahkan MsgBox pada Sintax Simpan Edit Hapus dan Keluar

Gambar setelah di jalankan dan di isi Pesan MsgBox
Sintaxnya cukup anda menambah Msgbox"Apakah Data And Sudah Disimpan" pada tombol simpan, tapi seandainya kita ingin menambah sebuah konfirmasi atau sebuah pesan yang berbunyi pada msgbox.
Caranya cukup anda tambahkan saja Sintaxnya seperti ini.

Private Sub cmdsimpan_Click()
On Error Resume Next
Data1.Recordset.AddNew
Data1.Recordset!nama = txtnama.Text
Data1.Recordset!alamat = txtalamat.Text
Data1.Recordset!ttl = txtTtl.Text
Data1.Recordset!nohp = txtnohp.Text
Data1.Recordset.Update
MsgBox "Data Anda Sudah Disimpan", vbInformation, "Konfirmasi"
End Sub

Untuk editnya nya

Private Sub cmdedit_Click()
On Error Resume Next
Data1.Recordset.Edit
Data1.Recordset!nama = txtnama.Text
Data1.Recordset!alamat = txtalamat.Text
Data1.Recordset!ttl = txtTtl.Text
Data1.Recordset!nohp = txtnohp.Text
Data1.Recordset.Update
MsgBox "Data Anda Berhasil di Ubah", vbInformation, "Konfirmasi"
End Sub

msgbox sudah selesai sekarang kita akan lanjut untuk menambahkan If Else pada msgboxnya...perhatikan dengan baik dan seksama, Supaya gak ngambang nantinya.

Lihat Sintax di bawah ini..

'Sintax untuk Simpan
On Error Resume Next
Dim pesan As String
pesan = MsgBox("Apakah data ini mau disimpan", vbInformation + vbYesNo)
If pesan = vbYes Then
Data1.Recordset.AddNew
Data1.Recordset!nama = txtnama.Text
Data1.Recordset!alamat = txtalamat.Text
Data1.Recordset!ttl = txtTtl.Text
Data1.Recordset!nohp = txtnohp.Text
Data1.Recordset.Update
Else
MsgBox "Data tidak jadi di simpan ", vbInformation, "Konfirmasi"
End If

'Sintax untuk Edit

Private Sub cmdedit_Click()
On Error Resume Next
Dim pesan As String
pesan = MsgBox("Apakah data ini mau Edit", vbInformation + vbYesNo)
If pesan = vbYes Then
Data1.Recordset.Edit
Data1.Recordset!nama = txtnama.Text
Data1.Recordset!alamat = txtalamat.Text
Data1.Recordset!ttl = txtTtl.Text
Data1.Recordset!nohp = txtnohp.Text
Data1.Recordset.Update
Else
MsgBox "Data tidak jadi di ubah ", vbInformation, "Konfirmasi"
End If
End Sub

'Sintax untuk hapus
Private Sub cmdhapus_Click()
On Error Resume Next
Dim pesan As String
pesan = MsgBox("Apakah data ini mau hapus", vbInformation + vbYesNo)
If pesan = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
Else
MsgBox "Data tidak jadi di hapus ", vbInformation, "Konfirmasi"
End If
End Sub

'Sintax untuk keluar
Private Sub cmdkeluar_Click()
On Error Resume Next
Dim pesan As String
pesan = MsgBox("Apakah Anda Yakin Mau Keluar", vbInformation + vbYesNo)
If pesan = vbYes Then
End
Else
Form1.Show
End If
End Sub

Selesai tutorial kali ini, untuk tutorial selanjutnya silahkan di tunggu ya?