|
-
Jan 30th, 2001, 09:29 AM
#1
Thread Starter
Lively Member
Private Sub Command2_Click()
Dim strSQL As String
Dim strSQL2 As String
Dim strSQL3 As String
Dim strSQL4 As String
Dim strSQL5 As String
With ActiveReport1
strSQL = "select * from projectinfo where requesttitle ='" & Combo2.Text & "';"
strSQL2 = "select * from projectinfo where requestor ='" & Combo3.Text & "';"
strSQL3 = "select * from projectinfo where Priority ='" & Combo4.Text & "';"
strSQL4 = "select * from projectinfo where Status ='" & Combo5.Text & "';"
strSQL5 = "select * from projectinfo where requesttype ='" & Combo6.Text & "';"
'sSQL = "select * from projectinfo where requesttitle like 'Bond Analizer'"
myclass.GetMyData strSQL
myclass.GetMyData strSQL2
myclass.GetMyData strSQL3
myclass.GetMyData strSQL4
myclass.GetMyData strSQL5
Set .dbReport.Recordset = myclass.rsMyData
.txtapplication.DataField = "requesttitle"
.Field5.DataField = "requestor"
.Field1.DataField = "Priority"
.Field2.DataField = "Status"
.Field3.DataField = "RequestType"
.Field7.DataField = "Completed"
.Field6.DataField = "devname"
.Run False
.Show
End With
End Sub
when I try to retrieve a different selection on my dropdown combo box I get a blank report..it worked for one field but the oother's won't come up..
Is it possible I need a refresh command to re-execute a SQL statement?
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|