Perhatikan gambar disamping recordsource text34 diisi dengan =nama2barang()
Koding nama2barang di module :
Public Function Nama2Barang()
strsql = "SELECT Qry_Detail_Penjualan.NamaBarang " & _
"FROM Qry_Detail_Penjualan WHERE Qry_Detail_Penjualan.NoFak ='" & [Forms]![Form Penjualan].[NoFak] & "'"
Dim rst As dao.Recordset
Set rst = CurrentDb.OpenRecordset(Name:=strsql, Type:=dbOpenSnapshot)
namaku = ""
If rst.EOF Then GoTo labelexit
While Not rst.EOF
namaku = namaku & "," & rst.Fields("NamaBarang")
rst.MoveNext
Wend
namaku = Mid(namaku, 2)
labelexit:
Nama2Barang = namaku
End Function
Selamat berkarya….
From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of sudarsono
Sent: Tuesday, July 12, 2011 7:34 PM
To: belajar-access@yahoogroups.com
Subject: [belajar-access] Re: Uraian Detail Form di Master Form
Karena bersifat unbound , maka sebaiknya hal spt ini tak diperlukan.
Sebaiknya olah di laporan saja. Jadi tak memperlambat data entri.
Ini Pendapat saya ...
--- In belajar-access@yahoogroups.com, Sudarsono Suhenk <jkssbma@...>
wrote:
>
>
> maksdunya text34 ya ? yang datanya di isi dari
=Frm_Detail_Penjualan.Form!NamaBarang ?
> To: belajar-access@yahoogroups.com
> From: rachmandiksi@...
> Date: Tue, 12 Jul 2011 15:33:42 +0700
> Subject: [belajar-access] Uraian Detail Form di Master Form [1
Attachment]
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> [Attachment(s) from rachmandiksi included below]
>
>
>
>
>
> Assalamu'alaikum Wr. Wb
> Salam hangat dari saya para Master :)
>
> Para Master,
> saya ingin menampilkan seluruh
> "Nama Barang" yang diambil dari detail belanja
> Misalnya :
>
> Pada Sub Form Terdiri dari Beberapa Barang yaitu
> :
> a. Indomie Kari Ayam
> b. Saus ABC
> c. Kecap ABC
>
> nantinya pada Form Penjualan menjadi :
>
> Indomie Kari Ayam; Saus ABC; Kecap ABC
>
>
> mohon Bantuan para master yaaach.... :)
> sekalian
> saya kirim file Accessnya
> Sekali lagi Terima Kasih
>
> Wassalamu'alaikum Wr.
> Wb
>
Tidak ada komentar:
Posting Komentar