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
