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" <[email protected]>
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
>
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
>
>
