MeilaniZamora
asked on
User input - Bucket number continuation
additional question to the previous question. I want to be able to show all of the bucket numbers if the user doesn't input any number
Ah, sorry, you went for the inputbox method...
strAnswer = InputBox("please enter a number",,"all")
if strAnswer = "" Then Exit Sub ' user pressed [Cancel]
if strAnswer = "all" Then ' user pressed [OK]
DoCmd.OpenReport "rptName", acViewPreview
elseif isnumeric(strAnswer) then
DoCmd.openReport "rptName", acVeiwPreview, WhereCondition="BucketNumb er=" & stranswer
else
msgbox "huh?"
end if
That sort of things?
(°v°)
strAnswer = InputBox("please enter a number",,"all")
if strAnswer = "" Then Exit Sub ' user pressed [Cancel]
if strAnswer = "all" Then ' user pressed [OK]
DoCmd.OpenReport "rptName", acViewPreview
elseif isnumeric(strAnswer) then
DoCmd.openReport "rptName", acVeiwPreview, WhereCondition="BucketNumb
else
msgbox "huh?"
end if
That sort of things?
(°v°)
Harfang's idea is to use a default value of All. Ensure then that the user understands that, change the prompt.
If u want to check for no bucket numbers entered then do this
Dim sWhere as String
sWhere = ""
If IsNull(txtBucketNumber) = False Then sWhere = "BucketNumber = " & txtBucketNumber.Value
DoCmd.OpenReport "rpt_Consignment_PET_Slabs ", , , sWhere
Basically we set the where clause for the report based on what the user enters only
If nothing specified then we run for all bucket numbers
If u want to check for no bucket numbers entered then do this
Dim sWhere as String
sWhere = ""
If IsNull(txtBucketNumber) = False Then sWhere = "BucketNumber = " & txtBucketNumber.Value
DoCmd.OpenReport "rpt_Consignment_PET_Slabs
Basically we set the where clause for the report based on what the user enters only
If nothing specified then we run for all bucket numbers
ASKER
Am I putting in all of the above instructions "Dim sWhere as String" before
sbucketnumber = Nz(InputBox("Please enter Bucket Number"), "")
If sbucketnumber <> "" Then
DoCmd.OpenReport "rpt_Consignment_PET_Slabs ", acPreview, , "BucketNumber = " & sbucketnumber
sbucketnumber = Nz(InputBox("Please enter Bucket Number"), "")
If sbucketnumber <> "" Then
DoCmd.OpenReport "rpt_Consignment_PET_Slabs
sWhere is the definition so u put that at the start of your procedure
when is this code being run?, is it OpenSlabs?
Private Sub OpenSlabsRPT_Click()
Dim sWhere as String
Dim sBucketNumber as String
sWhere = ""
sBucketNumber = Nz(InputBox("Please enter Bucket Number"), "")
If sBucketNumber = "" Then sWhere = "BucketNumber = " & sBucketNumber
DoCmd.OpenReport "rpt_Consignment_PET_Slabs ", , , sWhere
End Sub
when is this code being run?, is it OpenSlabs?
Private Sub OpenSlabsRPT_Click()
Dim sWhere as String
Dim sBucketNumber as String
sWhere = ""
sBucketNumber = Nz(InputBox("Please enter Bucket Number"), "")
If sBucketNumber = "" Then sWhere = "BucketNumber = " & sBucketNumber
DoCmd.OpenReport "rpt_Consignment_PET_Slabs
End Sub
ASKER
I have the following
Private Sub OpenSlabsRPT_Click()
Dim sWhere As String
sWhere = ""
sBucketNumber = Nz(InputBox("Please enter Bucket Number"), "")
If IsNull(sBucketNumber) = False Then sWhere = "BucketNumber = " & sBucketNumber
DoCmd.OpenReport "rpt_Consignment_PET_Slabs ", acPreview, , sWhere
End Sub
When I click on the button and type in a bucket number it's fine but once I just enter as if I'm selecting all of the buckets to be previewed in the form I get the following error
Run-time error '3075'
Extra ) in query expression '(BucketNumber = )'
Help?
Private Sub OpenSlabsRPT_Click()
Dim sWhere As String
sWhere = ""
sBucketNumber = Nz(InputBox("Please enter Bucket Number"), "")
If IsNull(sBucketNumber) = False Then sWhere = "BucketNumber = " & sBucketNumber
DoCmd.OpenReport "rpt_Consignment_PET_Slabs
End Sub
When I click on the button and type in a bucket number it's fine but once I just enter as if I'm selecting all of the buckets to be previewed in the form I get the following error
Run-time error '3075'
Extra ) in query expression '(BucketNumber = )'
Help?
ASKER
Private Sub OpenSlabsRPT_Click()
Dim sBucketNumber As String
strAnswer = InputBox("please enter a number", , "all")
If strAnswer = "" Then Exit Sub 'user pressed [Cancel]
If strAnswer = "all" Then 'user pressed [Ok]
DoCmd.OpenReport "rpt_Consignment_PET_Slabs ", acViewPreview
ElseIf IsNumeric(strAnswer) Then
DoCmd.OpenReport "rpt_Consignment_PET_Slabs ", acViewPreview, wherecondition = "BucketNumber=" & strAnswer
Else
MsgBox "pardon?"
End If
End Sub
I tried the following code and it shows all of the bucket numbers fine when the input is 'all' but when I enter a number like 1 or 2 it still shows all of the bucket numbers rather than just showing the bucket numbers I had typed in. Any help would be greatly appreciated - I need to get this thing done before the end of the day. Thank you.
Dim sBucketNumber As String
strAnswer = InputBox("please enter a number", , "all")
If strAnswer = "" Then Exit Sub 'user pressed [Cancel]
If strAnswer = "all" Then 'user pressed [Ok]
DoCmd.OpenReport "rpt_Consignment_PET_Slabs
ElseIf IsNumeric(strAnswer) Then
DoCmd.OpenReport "rpt_Consignment_PET_Slabs
Else
MsgBox "pardon?"
End If
End Sub
I tried the following code and it shows all of the bucket numbers fine when the input is 'all' but when I enter a number like 1 or 2 it still shows all of the bucket numbers rather than just showing the bucket numbers I had typed in. Any help would be greatly appreciated - I need to get this thing done before the end of the day. Thank you.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
that is PERFECT!!!! Thank you SO MUCH!!!!
I just realised, because I used NZ to wrap, u do not need to check for IsNull
it's better of saying
If sBucketNumber <> "" then
instead of
If IsNull(sBucketNumber) = False Then
it's better of saying
If sBucketNumber <> "" then
instead of
If IsNull(sBucketNumber) = False Then
ASKER
great!!! I've changed it as instructed
MeilaniZamora
I'm glad you have a working solution, and I apologize for the slight error in my first post. I used this:
.... WhereCondition="BucketNumb er=" & stranswer
Instead of
.... WhereCondition:="BucketNum ber=" & stranswer
Doesn't look like much, but it entirely changes the meaning of the expression...
Anyway, good luck with your project!
(°v°)
I'm glad you have a working solution, and I apologize for the slight error in my first post. I used this:
.... WhereCondition="BucketNumb
Instead of
.... WhereCondition:="BucketNum
Doesn't look like much, but it entirely changes the meaning of the expression...
Anyway, good luck with your project!
(°v°)
Use this as criteria in your query:
Field: BucketNumber
Criteria: [Enter bucket number:] Or [Enter bucken number:] Is Null
Good luck!
(°v°)