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
