[Attachment(s) from Sofyan Efendi included below]
Sambil belajar, bisa download samplenya, nama form "frmMasFajrie2".
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
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
[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:
[Attachment(s) from Fajrie Shine included below]
Assallamu'alaikum
Maaf pak,,,,
sy minta tlong lg,,,
gimana cara buat table n query yg nanti formnya jadi seperti ini,,,
Makasih atas bantuannya,,,
__._,_.___
Attachment(s) from Sofyan Efendi
1 of 1 File(s)
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar