[belajar-access] Commond prompt dgn access

----- Original Message -----
From: "Belajar Office" <belajaroffice@ymail.com>
To: <belajar-access@yahoogroups.com>
Sent: Sunday, January 17, 2010 10:45 AM
Subject: Re: [belajar-access] Commond prompt dgn access

Bpk bisa menggunakan procedure utk membuka file bat :

Private Sub OpenBat_Click()
Dim DataBat As String
Open "C:\NamaFolder\NamaFileBat.bat" For Input As #1
Me!NamaTextBox = Null
Do While Not EOF(1)
Line Input #1, DataBat
Me!NamaTextBox = IIf(IsNull(Me!NamaTextBox), Me!NamaTextBox & DataBat,
Me!NamaTextBox & Chr(13) & Chr(10) & DataBat)
Loop
Close #1
End Sub

Utk Save file Bat:

Private Sub SaveBat_Click()
Open "C:\NamaFolder\NamaFileBat.bat" For Output As #1
Print #1, Me!NamaTextBox
Close #1
End Sub
Thank's..

________________________________
From: luqman <luqman@naturalpermata.com>
To: belajar-access@yahoogroups.com
Sent: Sat, January 16, 2010 10:41:48 AM
Subject: [belajar-access] Commond prompt dgn access

Dear All,

saya punya masalah berikut ini
saya punya file dgn ext bat (command prompt) misal smsd.bat yang berada di
drive C

yang ingin saya tanyakan bagaimana ya caranya untuk membuka file tsb
kemudian mengisikan perintah di dalam nya dengan menggunakan form yang ada
di access.

Mohon bantuannya dan maaf jika kurang jelas
Luqman

[belajar-access] umpankan nilai

----- Original Message -----
From: "CGSATU" <cgsatu@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Saturday, January 16, 2010 1:42 PM
Subject: Re: [belajar-access] umpankan nilai

Pak Aksan.....

Terimakasih!

Saya sudah terapkan dan berjalan sempurna.

Memang lebih enak kalau main OOP deh.

Saya akan selalu berusaha lebih OOP lagi dimasa depan.....:)

cgsatu

--- On Thu, 1/14/10, Aksan Kurdin <aksan.kurdin@gmail.com> wrote:

From: Aksan Kurdin <aksan.kurdin@gmail.com>
Subject: Re: [belajar-access] umpankan nilai
To: belajar-access@yahoogroups.com
Date: Thursday, January 14, 2010, 3:30 PM

Baik,
mudah-mudahan penjelasan berikut bisa ditangkap:

modul periode saya ubah sebagai berikut:

Option Compare Database

Public Awal As Date
Public akhir As Date

'Sub periode()
' Dim Awal As Date
' Dim akhir As Date
' Awal = Forms!periode! Awal
' akhir = Forms!periode! akhir
'End Sub

Sub BukaPeriode( )
DoCmd.OpenForm "Periode", , , , , acDialog
Awal = Forms("Periode" )!Awal
akhir = Forms("Periode" )!akhir
DoCmd.Close acForm, "Periode"
End Sub

Perhatikan saya telah mendeklarasikan variabel awal dan akhir menjadi
public, artinya dari modul lain bisa mengambil nilai variabel tersebut
dengan cara seperti:

dim a as date
a = periode.awal

variabel a kita isi variabel awal dari module periode. sampai sini paham kan
?

Trik berikutnya adalah sub BukaPeriode.
Procedure ini dimaksudkan untuk membuka form periode, menunggu masukan, klik
ok, maka form menutup dan variabel awal dan akhir terisi dengan nilai sesuai
form.

[belajar-access] Ganti isi message box bila ada Write conflict di multi user

----- Original Message -----
From: "Belajar Office" <belajaroffice@ymail.com>
To: <belajar-access@yahoogroups.com>
Sent: Friday, January 15, 2010 8:28 AM
Subject: Re: [belajar-access] Ganti isi message box bila ada Write conflict
di multi user

Bpk menggunakan link table ke SQL Server ya? Dalam aplikasi multi user
sebaiknya tidak perlu ada peringatan Write Conflict. Bila muncul peringatan
tsb, maka ada yg belum diset dengan pas di properties tablenya. Bapak coba
tambahkan field "timestamp" dengan data type "Binary" di table yg digunakan
sebagai record source form tsb, namun sebelum form ini di jalankan, harap di
refesh dulu Link Table nya.

Atau bisa juga Bpk tambahkan code di event save record sbb:
If Me.Dirty Then Me.Dirty = False

Masih ada cara2 lainnya, Bpk coba jalankan dulu saja salah satu cara diatas.
Thank's.

________________________________
From: "tio.adjie@ptssb.co.id" <tio.adjie@ptssb.co.id>
To: belajar-access@yahoogroups.com
Sent: Fri, January 15, 2010 7:52:03 AM
Subject: [belajar-access] Ganti isi message box bila ada Write conflict di
multi user

Dear Para Pakar Access,

Adakah dari rekan milis yang ada pencerahan untuk pertanyaan saya ini ?

Terima kasih banyak sebelumnya.
Tio

(Untuk update table dari table lain, saya masih dalam progress karena
kebijakan kantor tidak bisa mengirim attachment, kecuali menerima . Mohon
maklum)

----- Forwarded by Tio Adi Bayu Adjie/SSB/PTTU on 01/15/2010 07:52 AM -----

tio.adjie@ptssb. co.id
Sent by: belajar-access@ yahoogroups. com
01/14/2010 07:54 AM
Please respond to belajar-access

To: belajar-access@ yahoogroups. com
cc:
Subject: [belajar-access] Ganti isi message box bila ada Write conflict di
multi user

Dear Para Pakar Access,

Bagaimana cara mengganti isi message box bila terjadi Write Conflict untuk
multi user ? ini diperlukan supaya isi message box itu di pahami user.
Yaitu message yang ada pilihan "Save changes", "Abandon" , "Drop changes"
Trims,
Tio

[belajar-access] Re: Form dengan Recorsource dari Database lain

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, January 12, 2010 2:31 PM
Subject: Re: [belajar-access] Re: Form dengan Recorsource dari Database lain

> belum saya coba, tetapi kita bisa bikin query langsung narik dari
> database A melalui satu query:
>
> SELECT * FROM [C:\DATABASE\DATA\A.MDB].Table1
>
> Jadi di event form, langsung boundkan recordsource form ke string sql
> tersebut.
> Monggo di coba, dan saya tunggu konfirmasi bisa tidaknya ya ... :)
>
>
> Aksan Kurdin
>
>

[belajar-access] Refresh Interval di perkecil

----- Original Message -----
From: "Muntahar" <eyoung24@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Friday, January 08, 2010 3:32 PM
Subject: Re: [belajar-access] Refresh Interval di perkecil

cobain :

Sub CustomRefrehInternal(ndetik As Integer)
With Application
.SetOption "Refresh Interval (sec)", ndetik
End With
End Sub