Oke...makasih mas haer. saya akan coba dulu. Buku kupas tuntas access securitynya belum punya mas..:D
----- Original Message ---- From: Haer Talib <[EMAIL PROTECTED]> To: [email protected] Sent: Friday, August 15, 2008 16:05:24 Subject: Re: [belajar-access] Restore Windows button plus syntax error. 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 <herr_haikal@ yahoo.com> 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] com> To: belajar-access@ yahoogroups. com 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> 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> To: belajar-access@ yahoogroups. com 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> 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 -- [Haer Talib] MVP Office Access Meet me at 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 => Send instant messages to your online friends http://uk.messenger .yahoo.com -- [Haer Talib] MVP Office Access Meet me at www.RumahAccess. com => Send instant messages to your online friends http://uk.messenger.yahoo.com
