environ adalah fungsi di vba, pak dar.
comspec juga saya cek masih bisa di 7
jadi kesimpulannya, cara sebelumnya bisa jalan di 7.
aksan kurdin
On 11/5/2010 10:36 AM, sudarsono wrote:
Maaf Pak Aksan saya pakai windows 7 , perintah Environ itu yang tak ada baik Internal maupun Ekternal di windows XP/Vista/7
kalau saya lihat di help Accss 2007 ada function tsb
'--------- di kutip dari Help , key 'Environ
Dim EnvString, Indx, Msg, PathLen ' Declare variables.
Indx = 1 ' Initialize index to 1.
Do
' Get environment variable.
EnvString = Environ(Indx)
' Check PATH entry.
If Left(EnvString, 5) = "PATH=" Then
' Get length.
PathLen = Len(Environ("PATH"))
Msg = "PATH entry = " & Indx & " and length = " _
& PathLen
Exit Do
Else
' Not PATH entry, so increment.
Indx = Indx + 1
End If
Loop Until EnvString = ""
If PathLen > 0 Then
' Display message.
MsgBox Msg
Else
MsgBox "No PATH environment variable exists."
End If
'=======
perintah SET akan menampilkan semua Variabel Environment dari Windows , misal dari DOS Prompt
C:>SET >a.txt
C:>edit a.txt
maka dapat di lihat deh.
Salam Sejahtera
'================
--- In belajar-access@yahoogroups.com, "aksankurdin" <aksan.kurdin@...> wrote:
>
> laptop saya masih xp.
> nyari vista / 7 dulu ya ... :)
> atau mungkin member yang sudah pake 7, monggo dicoba dan diberitakan kemari ...., ya ... tolong dong :)
>
> aksan kurdin
>
>
> --- In belajar-access@yahoogroups.com, easy goin <soeasy_goin@> wrote:
> >
> > pak Aksan,
> > terima kasih pak atas penjelasannya, saya sudah coba & bisa pak,
> > saya coba lewat windows Xp professional, & menurut pengalaman pak Aksan apakah ada bug didalam perintah ini (terutama jika diaplikasikan under OS vista/seven)
> >
> > terima kasih atas bantuan & masukannya
> >
> >
> > Rgds,
> > deden
> >
> > ------------------------------
> > Aksan Kurdin <aksan.kurdin@>
> > Sent by: belajar-access@yahoogroups.com
> > 11/04/2010 07:07 PM
> > Please respond to belajar-access
> > To: belajar-access@yahoogroups.com
> > cc:
> > Subject: Re: [belajar-access] "net use" via VBA access
> >
> >
> >
> > perintah net use adalah internal command dari cmd.exe, jadi cmd.exe lah yang seharusnya dipanggil:
> >
> > C:\WINDOWS\system32\cmd.exe /c net use ......
> >
> > coba anda buka command prompt, lalu ketik set dan hit enter. Maka semua variabel environtment windows tampil, dan bisa anda lihat, letak cmd.exe ada di environt comspec.
> > Nilai environtment windows dapat diperoleh dari fungsi environ("nama variable"), contoh:
> >
> > Environ("ComSpec")
> >
> > akan memberikan C:\WINDOWS\system32\cmd.exe di laptop saya.
> >
> > menjalankan executable file dari access bisa dengan perintah shell, jadi maksud anda bisa di capai dengan sebaris perintah berikut:
> >
> > shell (Environ ("comspec") & " /c net use \\besource /u:<usernetworklogin> <networkpassword> /persistent:yes")
> >
> > aksan kurdin
> >
> > On 11/4/2010 5:17 PM, easy goin wrote:
> >
> > dear pakar access,
> > ada yg pernah access command "net use" via vba access?
> >
> > pengennya :
> > sebelum mengakses BE (startup FE), terlebih dahulu menjalankan perintah
> > "net use \\server /u:<userlogin> <password>" untuk masuk ke folder share yg dikasi password, berhubung blon ketemu caranya, terpaksa sementara menggunakan file konek.cmd yg isinya perintah terlampir, mungkin perintah tsb bisa dijalankan langsung via vba access.
> >
> > terima kasih atas bantuan rekan-rekan sekalian
> >
> > konek.cmd >>
> > net use \\besource /u:<usernetworklogin> <networkpassword> /persistent:yes
> > start "my App" "C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE" /runtime "C:\Program Files\myapp\myapp.accde"
> >
> >
> >
> > Reply to sender | Reply to group | Reply via web post | Start a New Topic
> > Messages in this topic (2)
> > Recent Activity:
> > New Members 23
> > New Files 6
> > Visit Your Group
> > SPAM IS PROHIBITED
> > MARKETPLACE
> > Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.
> >
> >
>
__._,_.___
No comments:
Post a Comment