/* */

Thursday, January 3, 2013

Re: [belajar-access] Re: Path relink antar folder (SOLVED) [1 Attachment]

 
[Attachment(s) from Joshac W included below]


Terima kasih Pak Sofyan dan Pak Aksan....

Telah berhasil dengan kode berikut :

 CurrentProject.path _
 & "\..\folder_BE\BE"

Untuk rekan Access sekalian yang ingin tahu, hasilnya adalah seperti pada 'Path relink antar folder.rar' di attachment ... :)

Ketika mencoba Module GetNewPath :

Public Function GetNewPath()
Dim strOldPath As String
Dim strFolder As String
Dim strNewPath As String
strOldPath = CurrentProject.Path
strFolder = Split(strOldPath, "\")(UBound(Split(strOldPath, "\")))
'disini kita rename nama folder folder_FE menjadi folder_BE
strNewPath = Replace(strOldPath, strFolder, "folder_BE")
GetNewPath = strNewPath
End Function

Dengan Kode relink :
GetNewPath & "\BE"

Belum berhasil...

Sedangkan penggunaan command prompt belum saya coba... :)

Bila attachment tidak bisa terbuka, 'Path relink antar folder.rar' tersebut juga ada di:
http://tech.groups.yahoo.com/group/belajar-access/files/Kreasi_Access/

Salam Access,
Josh

From: Sofyan Efendi <sofyanefendi@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Tuesday, January 1, 2013 9:15 PM
Subject: [belajar-access] Re: Path relink antar folder

 
Karena Bos kita dah maen kode2an, iktan juga ah, he..he...

Buat prosedure sbb:

Public Function GetNewPath()
Dim strOldPath As String
Dim strFolder As String
Dim strNewPath As String
strOldPath = CurrentProject.Path
strFolder = Split(strOldPath, "\")(UBound(Split(strOldPath, "\")))
'disini kita rename nama folder folder_FE menjadi folder_BE
strNewPath = Replace(strOldPath, strFolder, "folder_BE")
GetNewPath = strNewPath
End Function

Trus di kodenya jng pake CurrentProject.path & "\folder_BE\BE", tapi:
GetNewPath & "\BE

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi

--- In belajar-access@yahoogroups.com, aksan kurdin <aksan.kurdin@...> wrote:
>
> coba sekarang bermain dengan command prompt :)
>
> Microsoft Windows [Version 6.1.7601]
> Copyright (c) 2009 Microsoft Corporation. All rights reserved.
>
> C:\Users\aksankurdin>cd c:\temp
>
> c:\temp>dir
> Volume in drive C is S3A9915D003
> Volume Serial Number is 7279-BC03
>
> Directory of c:\temp
>
> 01/02/2013 11:58 AM <DIR> .
> 01/02/2013 11:58 AM <DIR> ..
> 0 File(s) 0 bytes
> 2 Dir(s) 72,595,804,160 bytes free
>
> c:\temp>md be
>
> c:\temp>md fe
>
> c:\temp>dir
> Volume in drive C is S3A9915D003
> Volume Serial Number is 7279-BC03
>
> Directory of c:\temp
>
> 01/02/2013 11:59 AM <DIR> .
> 01/02/2013 11:59 AM <DIR> ..
> 01/02/2013 11:59 AM <DIR> be
> 01/02/2013 11:59 AM <DIR> fe
> 0 File(s) 0 bytes
> 4 Dir(s) 72,595,804,160 bytes free
>
> c:\temp>cd be
>
> c:\temp\be>copy con be.txt
> ini file simulasi
> mencontohkan akses file dari relative posisi file
> ^Z
> 1 file(s) copied.
>
> c:\temp\be>type be.txt
> ini file simulasi
> mencontohkan akses file dari relative posisi file
>
> c:\temp\be>cd ..
>
> c:\temp>dir
> Volume in drive C is S3A9915D003
> Volume Serial Number is 7279-BC03
>
> Directory of c:\temp
>
> 01/02/2013 11:59 AM <DIR> .
> 01/02/2013 11:59 AM <DIR> ..
> 01/02/2013 11:59 AM <DIR> be
> 01/02/2013 11:59 AM <DIR> fe
> 0 File(s) 0 bytes
> 4 Dir(s) 72,595,263,488 bytes free
>
> c:\temp>cd fe
>
> c:\temp\fe>type ..\be\be.txt
> ini file simulasi
> mencontohkan akses file dari relative posisi file
>
> c:\temp\fe>
>
>
>
>
> kesimpulan ?
> gunakan pointer relatif ".." untuk mengakses path satu level di atas
> current directory.
>
> CurrentProject.path _
> & "..\folder_BE\BE"
>
> aksan kurdin
>
>
>
> On 1/2/2013 11:47 AM, Josh wrote:
> >
> > Dear Pak Sofyan dan rekan Access sekalian...
> >
> > Bila dalam satu folder_Aplikasi terdapat FE dan folder_BE, kemudian di
> > folder_BE terdapat BE
> >
> > Maka path_relink FE ke BE dapat seperti ini :
> >
> > CurrentProject.path _
> > & "\folder_BE\BE"
> >
> > Sehingga relink tetap sukses kemanapun folder_Aplikasi di
> > pindah,asalkan dalam folder_Aplikasi tersebut terdapat FE dan
> > folder_BE yang berisi BE.
> >
> > Namun bila dalam satu folder_Aplikasi terdapat folder_FE dan
> > folder_BE, kemudian di folder_FE terdapat FE, sedangkan di folder_BE
> > terdapat BE
> >
> > Bagaimanakah path_relink FE ke BE nya (namun bukan dengan kode 'cari
> > file')...?
> >
> > Sehingga relink tetap sukses kemanapun folder_Aplikasi di
> > pindah,asalkan dalam folder_Aplikasi tersebut terdapat folder_FE yang
> > berisi FE dan folder_BE yang berisi BE.
> >
> > Jadi intinya bagaimanakah penulisan path untuk relink antar folder,
> > yaitu BE dalam folder di luar folder FE tersebut...?
> >
> > Saya sudah coba cari di arsip millis tidak ada, begitu juga dengan
> > search google...
> >
> > Banyak terima kasih sebelum dan sesudahnya...
> >
> > Salam Access,
> > Josh
> >
> >
>



__._,_.___

Attachment(s) from Joshac W

1 of 1 File(s)

Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (5)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

No comments:

Post a Comment