Terima kasih atas responnya.. 1. FE & BE nya deket2an aja kog masih dalam satu atap/kantor, kog tetep berat ya?, anehnya cuman proses login itu aja yg berat, untuk menu2 lainnya tidak ada masalah.
mungkin ada rekan2 mempunyai koding/sampel user login yang lebih praktis dan loadingnya cepet. saya lebih suka menggunakan textbox daripada combo box untuk user login, dgn pertimbangan supaya user lain tidak "kreatif" coba2 login dengan user list yg ada di combo box , apakah itu berpengaruh terhadap proses loadingnya ? 2. terus terang saya belum konek untuk item 2, apakah bisa dikasi sampelnya? untuk dijadikan inspirasi...;) terima kasih atas semua masukannya salut buat belajar-access --- In [email protected], "Murid Belajar Access" <murid.belajaracc...@...> wrote: > > 1. FE dan BE lokasinya deket2-an gak? kalau yang dulu saya punya. FE di JKT > dan BE di KALTIM, pas JKT buka sendiri cepet, pas KALTIM dan JKT buka bareng > langsung ngos-ngosan. > tapi ya cuma pas loading form awal doang, habis itu eksekusinya > lancar-lancar saja. > Mesti dilihat lebih jauh, apakah cuma sekedar optimasi coding atau perlu > relokasi tabel / query --> mana yang mesti di local fe, mana yang bisa di > be. > > 2. udah pasti bisa. > intinya: 1. tentukan default path > 2. gunakan file dialog file picker dari object office > library / api untuk mengambil path filenya. > 3. copy file ke default path > 4. simpan path tsb di database untuk digunakan lebih lanjut. > 5. jika ingin buka bisa pake shell command atau API. > > salam, > murid access - NRN CL BEW > > > ----- Original Message ----- > From: "soeasy_goin" <soeasy_g...@...> > To: <[email protected]> > Sent: Thursday, May 14, 2009 14:02 > Subject: [belajar-access] login access loadingnya lambat+aplikasi .... > > > > saya ada membuat aplikasi access sederhana untuk pekerjaan sehari-hari, > > dengan metode backend sharing folder & FE dimasing-masing client, > > permasalahannya sbb: > > > > 1.ketika proses login (kondisi user yang lain sudah login), prosesnya > > terasa sangaaaat lambat, +- 1 menit baru main screen terbuka, tapi jika > > kondisinya tidak ada user lain yang login, prosesnya normal. > > terlampir VBA nya (KOPI PASTEdari belajar access juga), mohon koreksi dan > > masukannya dari rekan2 sekalian. > > > > 2. apakah bisa dibuat didalam access aplikasi seperti attach dan detach > > file (sekalian dengan merecord path linknya), misalnya satu file pdf > > dipilih, secara otomatis file tsb akan tercopy kedalam default pathnya, > > pokoke kaya upload file ke default path. > > mohon maaf agak membingungkan,saya jg bingung istilahnya apa..:D,harap > > maklum berhubung masih dalam tahap belajar > > > > lampiran item 1: > > > > '=======================start > > > > Private Sub Command4_Click() > > On Error GoTo err_command4 > > > > inputlogin = UCase(Nz(Text0, "")) > > > > If Len(Trim(inputlogin)) < 1 Then MsgBox "Masukkan User Name !", > > vbCritical:: text0.SetFocus:: Exit Sub > > > > inputpass = UCase(Nz(Text2, "")) > > loginkriteria = "(UCASE([UserLogin])= '" & inputlogin & "')" > > getpass = UCase(DLookup("[userpasw]", "TAdmin", loginkriteria)) > > > > If IsNull(getpass) Then MsgBox "User Name Tidak terdaftar", vbCritical:: > > Text0.SetFocus:: Exit Sub > > If (Trim(getpass) <> Trim(inputpass)) Then > > MsgBox "User Name dan Password tidak cocok", vbCritical:: > > Text2.SetFocus:: Exit Sub > > Else > > V_loginName = Text0 > > V_loginLevel = DLookup("[accesslevel]", "TAdmin", loginkriteria) > > > > txtUsername = UCase(DLookup("[username]", "TAdmin", loginkriteria)) > > txtDept = UCase(DLookup("[DEPT]", "TAdmin", loginkriteria)) > > levelDesc > > Form_FRMPASSWORD.Visible = False > > DoCmd.openform "SPLASH" > > > > End If > > > > exit_command4_click: > > Exit Sub > > > > err_command4: > > MsgBox "database tidak ditemukan!!", vbOKOnly, "Warning!!" > > DoCmd.openform "linkdatabase_user" > > end sub > > '==========================finish
