Setelah saya coba-coba ternyata Tombol close(x) tidak bisa saya jalankan
ketika saya tambahkan script berikut pada event Form Unload :
Private Sub Form_Unload(Cancel As Integer)
Cancel = Not mbol_CanClose
End Sub
Script ini saya ambil dari http://tech. groups.yahoo. com/group/
belajar-access/
message/25006<http://tech.groups.yahoo.com/group/belajar-access/message/25006>
mungkin ada yang salah dengan pemahaman saya, karena disana sebenarnya bukan
membahas masalah tombol close (x)
2010/2/18 Aksan Kurdin <[email protected]>
>
>
> 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]>
>
>>
>> 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]>
>>
>> *To:* [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<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 <ud13en%40gmail.com>
>> blog : ud13en.blogspot. com
>>
>>
>
>
> --
> Ahmad Qomaruddin
> Sulang Rembang
> email : [email protected]
> blog : ud13en.blogspot.com
>
>
>
>
--
Ahmad Qomaruddin
Sulang Rembang
email : [email protected]
blog : ud13en.blogspot.com
