Private Sub Form_Load()
Cancel = mbol_CanClose '<--- cancel adalah parameter form_unload,
bukan variable global
mbol_CanClose = True '<--- seharusnya diset false, untuk mencegah
penutupan form dari tombol silang, ctrl/alt f4
mbol_Select = False
Me.Visible = False '<-- jika tidak ada keperluan khusus, form
kenapa harus disembunyikan ?
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = Not mbol_CanClose
End Sub
parameter cancel di atas jika di set true akan mencegah proses unloading
form, jadi nilainya sangat bergantung pada variable mbol_canclose.
jika pada saat design anda terhalang untuk menutup form ini, masuk saja
ke immediate window (ctrl-g), lalu ketikkan perintah:
mbol_canclose = true
maka sekarang anda sudah bisa menutup form tersebut secara normal, atau
berpindah ke mode design.
demikian trik-nya selama develop aplikasi.
aksan kurdin
On 2/17/2010 2:19 PM, Ahmad Qomaruddin wrote:
Tetap tidak bisa pak, tapi form2 yang lain masih bisa didesign, tetapi
form yang saya beri script dibawah ini :
Private Sub Form_Load()
Cancel = mbol_CanClose
mbol_CanClose = True
mbol_Select = False
Me.Visible = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = Not mbol_CanClose
End Sub
Formnya tidak bisa diapa-apakan, ataukah mungkin script saya yang salah ?
Di modul saya beri script sbb :
Option Compare Database
Option Explicit
Private mbol_Select As Boolean
Private mbol_CanClose As Boolean
Property Get SelectOk() As Boolean
SelectOk = mbol_Select
End Property
Property Let SelectOk(vData As Boolean)
mbol_Select = vData
mbol_CanClose = True
If mbol_Select Then
Me.Visible = False
End If
End Property
Terima Kasih
2010/2/17 Sumiyanto - <[email protected] <mailto:[email protected]>>
Kalo dari Form klik kanan tidak bisa, bisa jadi shortcut nya di
non akfitkan. Coba Bpk, dari Menu bar View>Design View,
jika menu bar tidak muncul karena telah dibuat menu bar by design
coba tekan CTRL+F11 dahulu. Trims
Sumiyanto
------------------------------------------------------------------------
*From:* Ahmad Qomaruddin <[email protected] <mailto:[email protected]>>
*To:* [email protected]
<mailto:[email protected]>
*Sent:* Tue, February 16, 2010 9:41:36 PM
*Subject:* Re: [belajar-access] Tanya:Mencegah Penggunaan Tombol
Silang (X)/close untuk keluar aplikasi
Makasih pak, saya sudah coba dan berhasil, tombol silang tidak jalan
tp form-nya juga tidak bisa diapa2kan lagi, adakah solusi biar formnya
bisa didesign lagi setelah script dijalankan?
Terima kasih
Pada tanggal 15/02/10, Aksan Kurdin <aksan.kurdin@ gmail.com
<mailto:aksan.kurdin%40gmail.com>> menulis:
> coba pelajari penggunaan variable bolCanClose yang saya jelaskan
pada
> message: http://tech. groups.yahoo. com/group/ belajar-access/
message/25006
<http://tech.groups.yahoo.com/group/belajar-access/message/25006>
> masih seger kok ......
>
>
> aksan kurdin
>
>
> On 2/15/2010 8:40 AM, Ahmad wrote:
>>
>> Buat teman2 belajar-access, tanya dong
>> Gimana caranya mencegah penggunaan tombol silang(X)/close untuk
keluar
>> dari aplikasi?
>> Kalo keluar form kan cukup property close button di buat No
tapi kalo
>> keluar aplikasi gimana?
>> Hal ini sebetulnya hanya untuk membuat supaya setiap keluar dari
>> aplikasi harus dengan mengklik command yang telah dibuat,
karena sudah
>> ada prosedur di dalamnya, kalo langsung klik silang(X) maka
prosedur
>> yang dibuat pada command kan jadi tidak jalan.
>> mohon bantuan dan terima kasih
>>
>>
>
>
--
Dikirim dari perangkat seluler saya
Ahmad Qomaruddin
Sulang Rembang
email : ud1...@gmail. com <mailto:ud13en%40gmail.com>
blog : ud13en.blogspot. com
--
Ahmad Qomaruddin
Sulang Rembang
email : [email protected] <mailto:[email protected]>
blog : ud13en.blogspot.com <http://ud13en.blogspot.com>
