Nadine
March 26th, 1999, 09:18 AM
Ok, here it is. I am working with VB6, within the data environment, and I am trying to create a report by passing it multiple parameters. I am succesfull in passing one parameter from a textbox to the report...(as long as it is not a string...another problem) and generating the report. But I can not pass in multiple parameters! If some one has the code or can explain how to do it I would be quite happy.
This is the code on the form for my sucessful report which passes one parameter:
Private Sub cmd_custnum_Click()
If IsNumeric(txt_custnum.Text) = True Then
DataEnvironment1.Custnum CInt(txt_custnum.Text)'passes what is in the txt to the paramter in my select statement
DataReport1.Show
Else
MsgBox "Please enter a valid Customer ID"
End If
And here is the code for my unsucessful attempt:
If IsDate(txt_invoicedate.Text) = True Then
If txt_vestype.Text "" Then
DataEnvironment1.Invoiced_date (txt_invoicedate.Text) & (txt_vestype.Text)
Invoiced_rpt.Show
Else
MsgBox "Please enter a valid invoice type"
End If
Else
MsgBox "Please enter a valid date"
End Sub
What about the value tab...I don't use it...should I ?
Lets face it I am lost!
This is the code on the form for my sucessful report which passes one parameter:
Private Sub cmd_custnum_Click()
If IsNumeric(txt_custnum.Text) = True Then
DataEnvironment1.Custnum CInt(txt_custnum.Text)'passes what is in the txt to the paramter in my select statement
DataReport1.Show
Else
MsgBox "Please enter a valid Customer ID"
End If
And here is the code for my unsucessful attempt:
If IsDate(txt_invoicedate.Text) = True Then
If txt_vestype.Text "" Then
DataEnvironment1.Invoiced_date (txt_invoicedate.Text) & (txt_vestype.Text)
Invoiced_rpt.Show
Else
MsgBox "Please enter a valid invoice type"
End If
Else
MsgBox "Please enter a valid date"
End Sub
What about the value tab...I don't use it...should I ?
Lets face it I am lost!