MS ACCESS MAILING LIST: Re: [belajar-access] Re: Ambil data (date/time) dari komputer lain

Dear Mas Dika,

Public Function OpenFile(FullPathFileName As String) As Integer
OpenFile = Shell(Environ("WINDIR") & "\system32\cmd.exe /c start " &
FullPathFileName)
End Function

Untuk menjalankan yg Mas Dika punya, di prosedur on klik:
if not OpenFile("c:\SesuaikanWaktuServer.bat")
msgbox "waktu diserver ngga bisa disesuaikan"
end if

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com | http://trendmuslim.com
----- Original Message -----
From: "dika_susanto84" <dwi_pusdika@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Monday, September 10, 2012 11:45 AM
Subject: [belajar-access] Re: Ambil data (date/time) dari komputer lain

> Alhamdulillah.., pengambilan data dengan NET TIME via DOS sudah berhasil,
> saya menggunakan code aplikasi *.BAT sbb :
>
> @echo off
> net time \\namaserver /set /yes
> cls
>
> Dari aplikasi *.BAT diatas saya dapat menyesuaikan date/time user dengan
> server, jadi setelah sinkron, jika kita pakai format date NOW() di local
> computer maka otomatis sudah sama dengan setting date/ time pada server.
> Mungkin asumsi ini sama dengan asumsi bang harry tapi pakai cara bang
> sofyan ya?
>
> Untuk cara yang sama persis dari bang sofyan saya belum mencoba, karena
> saya belum bisa melihat attachments JPG dari bang sofyan.
> sekali lagi kalau berkenan mohon bang sofyan kirimkan lagi JPG, di arsip
> milis (by download) karena browser tidak bisa membuka secara langsung.
>
> Nah disini saya minta bantuan lagi, untuk menaruh/ menjalanakan code
> aplikasi *.BAT di atas di form VBA bagaimana caranya ya?
> Karena code di atas kan dijalankan dengan aplikasi *.BAT langsung, bukan
> melalui access.
>
> @ bang Narupi : saran dari bang narupi sudah saya coba, tapi kayaknya
> format NOW() tetap mengacu pada computer local ya?, karna setelah saya
> jalankan, data date/ time tetap sama dengan computer local ( di sini saya
> setting jam di computer user dan server saya buat beda), mungkin ada yang
> bisa menjelaskan/ menambahkan?
>
> Sekali lagi terima-kasih atas perhatian rekan2 access semua,,
>
> Dika
>
>
> --- In belajar-access@yahoogroups.com, <Narupi@...> wrote:
>>
>> Bang Dika,
>>
>> Bagaimana kalau yang di MDB servernya pada field nya di kasih default
>> value now()
>> Jadi ketika ada entry date maka akan otomatis tanggal server.
>>
>> Thanks and regards
>>
>> Narupi
>> IFBT OP ATP PO DSO IEP SS
>>
>> From: belajar-access@yahoogroups.com
>> [mailto:belajar-access@yahoogroups.com] On Behalf Of CGSATU
>> Sent: Saturday, September 08, 2012 12:54 AM
>> To: belajar-access@yahoogroups.com
>> Cc: Airlangga Bhumintara Amitaba
>> Subject: Re: [belajar-access] Ambil data (date/time) dari komputer lain
>>
>> Cak Sofyan, ini menarik sekali.
>>
>> mengambil beberapa karakter bisa dengan manipulasi string , yang saya
>> bingung, bagaimana itu diterapkan pada DOS seperti gambar yang dikirim ?
>>
>> cgsatu (Elang)
>>
>> From: Sofyan Efendi <sofyanefendi@...<mailto:sofyanefendi@...>>
>> To: belajar-access@yahoogroups.com<mailto:belajar-access@yahoogroups.com>
>> Sent: Friday, September 7, 2012 3:43 PM
>> Subject: Re: [belajar-access] Ambil data (date/time) dari komputer lain
>>
>>
>> Cukup rumit, tapi untuk mengakali kondisi ini, kita bisa manfaatkan Net
>> time
>> di dos, misal spt gambar berikut:
>>
>> Kemudian diaplikasikan di Ms Access spt gambar berikut:
>>
>> Ambil beberapa karakter saja dari arah kanan, kolaborasikan dengan fungsi
>> ISDATE, ISNUMBER dsb. Insya Allah bisa diwujudkan.
>>
>> Memang di SQL Server ada fungsi GETDATE() untuk ambil current date di
>> server. Tapi sepertinya P Dika tidak menggunakan SQL Server, tapi file
>> MDB
>> yg dishare ya.
>>
>> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
>> Sofyan Efendi
>> http://imopi.wordpress.com | http://trendmuslim.com
>> ----- Original Message -----
>> From: "dika_susanto84" <mailto:dwi_pusdika%40yahoo.co.id>
>> To: <mailto:belajar-access%40yahoogroups.com>
>> Sent: Friday, September 07, 2012 11:11 AM
>> Subject: [belajar-access] Ambil data (date/time) dari komputer lain
>>
>> > Dear All,,
>> >
>> > Kira-kira ada gak ya VBA/ code untuk ambil data tanggal dan waktu dari
>> > komputer lain kayak format date "NOW()" pada komputer local.
>> >
>> > di kasus ini ada aplikasi access dengan BE dan FE.
>> > BE ditempatkan di salah satu komputer (dianggap sebagai server), dan FE
>> > di
>> > beberapa komputer User melaui link table.
>> >
>> > Jadi saya ingin ketika di komputer user menyimpan data transaksi yang
>> > berupa tanggal/ jam, maka tanggal/ jam tersebut di ambil dari komputer
>> > server agar semua user mempunyai standar waktu yang sama.
>> >
>> > Terima kasih atas batuan senior dan rekan access semua,,
>> >
>> >
>> > Dika
>> >
>> >
>> >
>> > ------------------------------------
>> >
>> > SPAM IS PROHIBITEDYahoo! Groups Links
>> >
>> >
>> >
>> [cid:image001.jpg@...][cid:image002.jpg@...]
>>
>
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
>
>