Terima kasih kang untuk masukannya,

Tetapi kalau kita sudah melakukan update link-nya

Jadi misalnya menu0 itu adalah form untuk melakukan relink database dengan
lokasi source yang berbeda.

Nah setelah kita melakukan relink, sedang path yang tersimpan di module
tidak sama dengan lokasi BE yang tersimpan.

Bagaimanakah mengupdate agar lokasi tersebut tersimpan dalam coding?

Apakah path disimpan dalam table? Atau ada coding untuk merubah perintah
dalam coding?

 

From: [email protected] [mailto:[email protected]]
On Behalf Of Muntahar
Sent: 28 April 2009 17:44
To: [email protected]
Subject: Re: [belajar-access] Coding untuk path

 







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
---------------------------------------------



<<image001.gif>>

<<image002.gif>>

Kirim email ke