[belajar-access] look up 2 combo box

----- Original Message -----
From: "aksan kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, November 24, 2009 8:42 AM
Subject: Re: [belajar-access] look up 2 combo box

Sangat mudah,
ubah rowsource combo2 menjadi:
SELECT Table2.JENIS, Table2.PETUGAS FROM Table2 WHERE
(((Table2.KAMAR)=[Forms]![Form1]![Combo0]));

lalu di event after update combo0, requery combo2:

Private Sub Combo0_AfterUpdate()
Me.Combo2.Requery
End Sub

dan control source text4 ubah menjadi:
=[Combo2].[column](1)

aksan kurdin

[belajar-access] paramater data tahun pada crosstab query

----- Original Message -----
From: "Sumiyanto -" <sumiyanto@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Monday, November 23, 2009 6:02 PM
Subject: Re: [belajar-access] paramater data tahun pada crosstab query

@ Muhibudin Fahmi, Terima kasih mas....Problem Solved.

Sumiyanto Soerabaia

--- On Mon, 11/23/09, Muhibudin Fahmi <muhibudin@gmail.com> wrote:

From: Muhibudin Fahmi <muhibudin@gmail.com>
Subject: Re: [belajar-access] paramater data tahun pada crosstab query
To: belajar-access@yahoogroups.com
Date: Monday, November 23, 2009, 1:02 PM

sekedar share mas, tolong dibenerin kalo salah..
yang pernah saya coba untuk parameter pada crosstab query harus ditentukan
type datanya, yang ada di menu query parameters. (pada design view) ato
kalo disql sebelum transform tambahin parameters
untuk mas sumiyanto coba pada design view ditambahin
field Format([Tanggal Terima],"yyyy") (asumsi kalo ini ada tahunnya)
terus dikasih criteria misalnya between [tahun1] and [tahun2]trus ke menu
query parameters.. . ditambahin parameter | data type
tahun1 | texttahun2 | text
sqlnya kira2 kayak gini....
PARAMETERS tahun1 Text ( 255 ), tahun2 Text ( 255 );
TRANSFORM Sum([Bank Receive qr].[Pokok Angsuran (Rp)]) AS [SumOfPokok
Angsuran (Rp)1]
SELECT [Bank Receive qr].[Nama Kolektor], Sum([Bank Receive qr].[Pokok
Angsuran (Rp)]) AS [SumOfPokok Angsuran (Rp)], Count([Bank Receive qr].ID)
AS [Total Of ID]

FROM [Bank Receive qr]
WHERE (((Format([tgllhr] ,"yyyy")) Between [tahun1] And [tahun2]))GROUP BY
[Bank Receive qr].[Nama Kolektor], Format([tgllhr] ,"yyyy")

PIVOT Format([Tanggal Terima],"mmm") In
("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");

salam jabat erat

[belajar-access] Login yang mudah..?

----- Original Message -----
From: "exz@nt" <exzantmilis@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, October 01, 2009 11:42 PM
Subject: Re: [belajar-access] Login yang mudah..?

Waktu akan membuka form lain, berikan opsi pada OpenArg
spt ini :
DoCmd.OpenForm "Form1", , , , , , Me.txt_userLogin.Value

Sedangkan pada form yang akan dibuka, berikan code spt ini :
Private Sub Form_Load()
'mengubah isi Text0 menjadi txt_userLogin.value
Me.Text0.Value = Me.OpenArgs
End Sub

jd data nama dikirim dari frm_login ke Form1melalui fasilitas OpenArg

semoga membantu.

Salam,

exz@nt

2009/10/1 nadhif_fakhri <

[belajar-access] menu help

----- Original Message -----
From: "privat access" <les.access@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, October 01, 2009 12:18 PM
Subject: Re: [belajar-access] menu help

> untuk membuat user guide, bisa melalui word, pdf, html atau pun chm
> semuanya terserah si pembuat..
>
> runapp pd macro memang bs kita gunakan untuk memanggil aplikasi lain dan
> kayaknya sifatnya statis. Pemanggilan aplikasi harus sesuai path yg
> disetting. berbeda dg menggunakan vba. pada vba, anda bisa mendeklarasikan
> variabel untuk menentukan path dinamis.
>
> jadi, semuanya tetap dpt digunakan sesuai fungsinya
>

[belajar-access] mesin pencari

----- Original Message -----
From: "exz@nt" <exzantmilis@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, September 16, 2009 1:58 PM
Subject: Re: [belajar-access] mesin pencari

sy biasanya pake combo
yg sourcenya dimodif ditambahin kriteria where like
contoh sbg berikut :

Private Sub cmbCari_AfterUpdate()
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[BARCODE] =" & Chr(34) & Me.cmbCari.Value & Chr(34)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.cmbCari.Value = ""

End Sub

Private Sub cmbCari_NotInList(NewData As String, Response As Integer)
Me.cmbCari.RowSource = "SELECT * FROM [Produk] WHERE produk.NM_BRG Like
" & Chr(34) & "*" & NewData & "*" & Chr(34) & ";"
Response = acDataErrContinue
End Sub

maksud kode diatas : jika kode yg diketikkan pada combo tidak terdaftar,
maka dilakukan seleksi sourcedata berdasarkan Nama Barang.

smg membantu.

salam,
exz@nt

2009/9/14 Masyruchi Se <