dear Pakar Vb,
Saya nak minta tolong nih.
Bagaimana ya coding nya untuk sorting data berdasarkan kriteria.
misalkan agar dalam listview hanya menampilkan data dengan kriteria yang
ada di textbox.
dan coding yang sudah saya bua seperti dibawah. terima kasih sebelumnya.
Private Sub Form_Load()
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\datas.mdb")
Set clmhead2 = lvwProducts.ColumnHeaders.Add(, , "Product ID",
lvwProducts.Width)
End Sub
Private Sub CmdProductView_Click()
Set rs = db.OpenRecordset("Products")
FrmData.lvwProducts.ListItems.Clear
While Not rs.EOF
Set lstmain2 = FrmData.lvwProducts.ListItems.Add(, , rs!ProductID)
rs.MoveNext
Wend
If rs.RecordCount = 0 Then
MsgBox "There are no records on the database"
Else
FrmData.lvwProducts.Enabled = True
End If
End Sub
regards
Narupi
[Non-text portions of this message have been removed]
