gunakan fungsi File exist yang telah disimpan pd module :
Function IsFileExist(ByVal theFilePath As Variant) As Boolean
On Error GoTo IsFileExist_Err
IsFileExist = (Dir$(theFilePath) <> "")
IsFileExist_End:
Exit Function
IsFileExist_Err:
MsgBox "Error!!", vbCritical
Resume IsFileExist_End
End Function
kira2 penggunaannya begini :
If IsFileExist("nama_file_BE") then
Docmd.openform “Menu1” 'jalankan bila file BE ada
Else
Docmd.openform “menu0” ' jalankan bila file BE tidak ada
end if
Pada 28 April 2009 17:04, Blue Cools <[email protected]> menulis:
>
>
> Selamat sore suhu-shu access,
>
>
>
> Maaf mungkin ini pertanyaan ulangan, Saya sudah memisahkan Back End dengan
> Front End.
>
> Yang jadi kendala adalah bagaimana bila back end kita pindahkan pada folder
> yang berbeda,
>
> Apakah Front End dapat diberikan coding pada startup form sehingga apabila
> path untuk lokasi back end tidak ditemukan maka front end akan melakukan
> suatu logika pemilihan tindakan misalnya
>
>
>
> If “path tidak ditemukan” then
>
> Docmd.openform “Menu1”
>
> Else
>
> Docmd.openform “menu0”
>
>
>
> Thanks.
>
>
>
> Blue is cools
>
>
>
>
>
>
--
---------------------------------------------
grapyak-semanak-cluthak
http://djmumun.wordpress.com
---------------------------------------------
