Terimakasih banyak pak |
From: Sofyan Efendi <sofyanefendi@gmail.com>;
To: <belajar-access@yahoogroups.com>;
Subject: Re: [belajar-access] (unknown) [1 Attachment]
Sent: Thu, May 19, 2011 12:01:18 AM
Dear Mas Fajrie, cukup ditambahkan perintah semisal: Private Sub Command23_Click() Dim db As Database Dim rs As Recordset Dim strSQL As String Set db = CurrentDb() strSQL = "SELECT Tbl_Persamaan.[Kode Barang], Tbl_Persamaan.Persamaan" & _ " FROM Tbl_Persamaan" & _ " WHERE Tbl_Persamaan.[Kode Barang]='" & Me![Kode Barang] & "';" Set rs = db.OpenRecordset(strSQL, dbReadOnly) Do While Not rs.EOF ListBox.AddItem (rs!Persamaan) rs.MoveNext Loop rs.Close Set rs = Nothing db.Close Set db = Nothing End Sub Kemudian, agar setiap pindah record, list box nya dibersihkan, bisa menggunakan procedure: Private Sub Form_Current() [ListBox].RowSource = "" End Sub Sambil belajar, bisa download samplenya, nama form "frmMasFajrie2". Pada 19 Mei 2011 06:27, Fajrie Shine <fajrie_shine@ymail.com> menulis:
|
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar