Rumus DataBase Pada Keluar (Command Button)
Jika anda tidak merubah name dari CommandButton anda maka sesuaiakanlah dengan name yang asli yang ada. Disini saya menggunakan name yang saya rubah sesuai dengan fungsi Tombol Tersebut.
contoh penulisan rumus:
Private
Sub Keluar_Click()
PESAN
= MsgBox("YAKIN INGIN PERGI", vbYesNo, "PERINGATAN")
If
PESAN = vbYes Then
End
End
If
End Sub
Pelangi hanya fariabel anda bebas menggantinya.
untu lebih praktis sebenarnya anda cukup.
Private Sub Keluar_Click()
End
End Sub
Tidak ada komentar:
Posting Komentar