1. Tools > StartUp Uncheck di Show Database Window
Uncheck di Allow Special Keys Uncheck di Allow Full Menus dll (bukannya udh punya buku Kupas Tuntas Access Security?) 2. Coba lihat Tools > Preferences (di VBA), pastikan ADO dipilih. Haer 2008/8/15 buday uhuy <[EMAIL PROTECTED]> > Cara nge-hide Database window dan matiin special key bagaimana mas ? > > Untuk code saya itu, memang untuk project ADP, tapi saya belum tau letak > kesalahannya ? mungkin ada yang bisa mengkoreksi ? > > ----- Original Message ---- > From: Haer Talib <[EMAIL PROTECTED]> > To: [email protected] > Sent: Friday, August 15, 2008 13:22:36 > Subject: Re: [belajar-access] Restore Windows button plus syntax error. > > Database window kan bisa di hide di Startup, lalu special key dimatikan, > dan don't allow full menus (menu windows dibuang/dimodify supaya tdk bisa > unhide), jadi user tdk bisa access ke database window. > jangan lupa juga menyembunyikan object2, lumayan utk menyulitkan :) > > klo dilihat dari code nya, berarti pakai ADO, digunakan di ADP. > Klo MDB perlu modifikasi spy bisa pakai DAO aja. > > Haer > > > > 2008/8/15 buday uhuy <herr_haikal@ yahoo.com <[EMAIL PROTECTED]>> > >> Iya..emang bener ngeselin tuch mas haer. Saya udah tidak mengaktifkan >> max min button dan saya pake command untuk memaximizedkan form, tapi tetep >> aja ada button restore windows itu. Jadi user bisa lihat database yg ada di >> belakang form. Gimana cara user supaya ga bisa menyentuh database yang ada >> di belakang form ? >> >> Trs, saya mo ngerepotin lagi nih teman2. Saya ambil sintak dari bukunya >> mas haer, saya rubah dikit supaya text box menampilkan kodepart secara >> otomatis (P00000001, P00000002, P00000003,.. ....dst). Tapi ada error : "sub >> or function not defined", salahnya dimana ya ? Ada teman2 yang bisa membantu >> ? >> >> aw = "P" >> tSQL = "SELECT MAX(kodepart) FROM TBLPart" >> Dim rs As ADODB.Recordset >> Set rs = New ADODB.Recordset >> rs.CursorType = adOpenStatic >> rs.CursorLocation = adUseClient >> rs.Source = tSQL >> rs.ActiveConnection = CurrentProject. AccessConnection >> rs.Open >> If Not rs.EOF Then >> If Not IsNull(rs!kodepart) Then >> kodepart = rs!kodepart >> aw = Left(kodepart, besar(Len(kodepart) ) - 8, 0) >> Else >> kodepart = aw & "00000000" >> End If >> Else >> kodepart = aw & "00000000" >> End If >> >> rs.Close >> nobaru = Val(Right(kodepart, 8)) + 1 >> kdbaru = Right(Str(nobaru + 100000000), 8) >> Me.kodepart = aw + kdbaru >> >> Sebelumnya terima kasih buat bantuan teman2. >> >> Wassalamu'alaikum. wr. wb. >> ----- Original Message ---- >> From: Haer Talib <[EMAIL PROTECTED] com <[EMAIL PROTECTED]>> >> To: belajar-access@ yahoogroups. com <[email protected]> >> Sent: Friday, August 15, 2008 10:02:08 >> Subject: Re: [belajar-access] Restore Windows button >> >> Kalau mengaktifkan max button, maka restore otomatis ikut. >> kalau mau, max min buttons tdk diaktifkan saja, maximize lewat vba. >> tapi ada sedikit keanehan pada access, kadang2 muncul button restore di >> baris menu/toolbar. ngeselin emang :) >> solusi apa boleh buatnya memanfaatkan OnClick pada form/detail, atau pada >> form activate, yang otomatis memaximizekan form kembali :) >> >> Haer >> >> >> 2008/8/13 buday uhuy <herr_haikal@ yahoo.com <[EMAIL PROTECTED]>> >> >>> Assalamu'alaikum teman2 accesser, >>> >>> Langsung aja, project .adp saya sudah jadi, tapi masih ada hal yang >>> mengganggu: >>> bagaimana cara menghilangkan button restore windows yang ada di sebelah >>> kanan atas form? soalnya saya membuat semua form menjadi maximized, tapi >>> kenapa masih ada juga button restore windows ? >>> >>> Mungkin teman2 ada yang bisa membantu ? Sebelumnya terima kasih u/ >>> bantuan dari teman2 semua. >>> >>> Wassalamu'alaikum. >>> >>> Budi >>> >>> Send instant messages to your online friends http://uk.messenger >>> .yahoo.com <http://uk.messenger.yahoo.com> >>> >> >> >> >> -- >> [Haer Talib] >> MVP Office Access >> Meet me at www.RumahAccess. com <http://www.RumahAccess.com> >> >> => >> >> >> Send instant messages to your online friends http://uk.messenger >> .yahoo.com <http://uk.messenger.yahoo.com> >> > > > > -- > [Haer Talib] > MVP Office Access > Meet me at www.RumahAccess. com <http://www.RumahAccess.com> > > => > > > Send instant messages to your online friends http://uk.messenger.yahoo.com > > -- [Haer Talib] MVP Office Access Meet me at www.RumahAccess.com =>
