untuk menon-aktifkan alt-F4 coba trik ini :
'=================================
Option Compare Database
Dim bolehtutup As Integer
Private Sub Form_Load()
bolehtutup = 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
If bolehtutup <> 1 Then Cancel = 1
End Sub
Private Sub Command10_Click()
If MsgBox("anda yakin mau keluar ?", vbOKCancel, "konfirmasi") = vbOK Then
bolehtutup = 1
DoCmd.Close
End Sub
dimana command10 adl tombol khusus untuk konfirmasi keluar .....
--
---------------------------------------------
grapyak-semanak-cluthak
http://djmumun.wordpress.com
---------------------------------------------
