DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Plz fix my msflexgrid search codes

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Aug 2008

Posts: 28

Reputation: nor_d83 is an unknown quantity at this point

Solved Threads: 0

nor_d83

Offline

Light Poster

Plz fix my msflexgrid search codes

Mar 19th, 2009

Hello everybody.. I have tried to use these codes that I got from a book. I'm using MSFlexGrid, with the Grd name. It was set to be invisible (false visible). And when i enter the year (tahun) needed in the "txttahun" textbox, it will only show the data that related data.

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
 
Private Sub cmdPapar_Click()
If optall.Value = True Then
Data1.RecordSource = "SELECT Hari, Bulan, Tahun, ID, Kategori, Status, Jumlah_lulus, Nama FROM permohonan"
Data1.Refresh
Grd.Visible = True
End If
If optbyyear.Value = True And txttahun.Text = "2009" Then
Data1.RecordSource = "SELECT Hari, Bulan, Tahun, ID, Kategori, Status, Jumlah_lulus, Nama FROM permohonan where Tahun = " & " '" & txttahun & "'"
Data1.Refresh
Grd.Visible = True
txtAlatulis09.Visible = True
End If
If optbyyear.Value = True And txttahun.Text = "2010" Then
Data1.RecordSource = "SELECT Hari, Bulan, Tahun, ID, Kategori, Status, Jumlah_lulus, Nama FROM permohonan where Tahun = " & " '" & txttahun & "'"
Data1.Refresh
Grd.Visible = True
txtAlatulis10.Visible = True
End If
End Sub
 
Private Sub cmdPapar_Click()
If optall.Value = True Then
Data1.RecordSource = "SELECT Hari, Bulan, Tahun, ID, Kategori, Status, Jumlah_lulus, Nama FROM permohonan"
Data1.Refresh
Grd.Visible = True
End If
If optbyyear.Value = True And txttahun.Text = "2009" Then
Data1.RecordSource = "SELECT Hari, Bulan, Tahun, ID, Kategori, Status, Jumlah_lulus, Nama FROM permohonan where Tahun = " & " '" & txttahun & "'"
Data1.Refresh
Grd.Visible = True
txtAlatulis09.Visible = True
End If
If optbyyear.Value = True And txttahun.Text = "2010" Then
Data1.RecordSource = "SELECT Hari, Bulan, Tahun, ID, Kategori, Status, Jumlah_lulus, Nama FROM permohonan where Tahun = " & " '" & txttahun & "'"
Data1.Refresh
Grd.Visible = True
txtAlatulis10.Visible = True
End If
End Sub

But, my problem is, when i tried to run it, it dispalys "Error run-time 3061, too few parametes, expected 1." and it debugged at "Data1.Refresh" part of codes. Could anybody here plz correct it, or tell me what i need to do.