Form Filter Data Export to Excel
untuk export ke excel : project -->references -->microsoft excel 12
Dim baris As Integer
Dim rssql As New ADODB.Recordset
Private Sub cmbtabel_Click()
Me.cmbkriteria.Clear
Select Case Me.cmbtabel.Text
Case Is = "Barang"
Me.cmbkriteria.AddItem "Jenis"
Me.cmbkriteria.AddItem "Nama Barang"
Case Is = "Operator"
Me.cmbkriteria.AddItem "Kode"
Me.cmbkriteria.AddItem "Nama"
Me.cmbkriteria.AddItem "Kota"
Case Is = "Supplier"
Me.cmbkriteria.AddItem "Kode"
Me.cmbkriteria.AddItem "Nama"
End Select
End Sub