Rabu, 18 Mei 2011

Re: [belajar-access] (unknown) [1 Attachment]

 
[Attachment(s) from Sofyan Efendi included below]

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".
 
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/
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)

Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar