Where expression not reading Inputbox?

[believeinblue44]

I'm new to VB and attempting something (seemingly very very basic by normal standards) and I can not seem to get my Where expression to read values from my inputbox. This is what i have and i am recieving an error sayings "The Microsoft Jet Database engine does not recognize 'x' as a valid field name or expression"

Dim x As Integer
Dim y As Integer

strFirstvalue = InputBox("Enter Starting Value", "Starting Value", "0")
strSecondvalue = InputBox("Enter Ending Value", "Ending Value", "100")

x = strFirstvalue
y = strSecondvalue

DoCmd.OpenReport "MTBF", acViewPreview, , "[Serial Number] Between x and y", acWindowNormal, " "


any simple fixes?

[Dököll]

I'm new to VB and attempting something (seemingly very very basic by normal standards) and I can not seem to get my Where expression to read values from my inputbox. This is what i have and i am recieving an error sayings "The Microsoft Jet Database engine does not recognize 'x' as a valid field name or expression"

Dim x As Integer
Dim y As Integer

strFirstvalue = InputBox("Enter Starting Value", "Starting Value", "0")
strSecondvalue = InputBox("Enter Ending Value", "Ending Value", "100")

x = strFirstvalue
y = strSecondvalue

DoCmd.OpenReport "MTBF", acViewPreview, , "[Serial Number] Between x and y", acWindowNormal, " "


any simple fixes?

Greetings, believeinblue44!

It looks like you need to also dimension strFirstvalue and strSecondvalue, I would say as String. Give that a go, see what you have...

[debasisdas]

try this

Dim x As Integer
Dim y As Integer
 
x = InputBox("Enter Starting Value", "Starting Value", 0)
y = InputBox("Enter Ending Value", "Ending Value", 100)

[believeinblue44]

Sorry for a slow response but i just returned from a short trip to Mexico and finally catching back up with other tasks. But...I'm still recieving an error stating
"Run-Time Error 3070"
"The Microsoft Jet Database Engine does not recognize 'x' as a valid field name or expression".

Perhaps with it linking to access, access does not read variables as values but rather i need to put x,y into a table of it's own?

[danp129]

Assume x=1 and y=10

"[Serial Number] Between x and y"
would be equivalant to: [Serial Number] Between x and y

"[Serial Number] Between 'x' and 'y'"
would be equivalant to: [Serial Number] Between 'x' and 'y'

"[Serial Number] Between '" & x & "' and '" & y & "'"
would be equivalant to: [Serial Number] Between '1' and '10'

"[Serial Number] Between " & x & " and " & y
would be equivalant to: [Serial Number] Between 1 and 10

[believeinblue44]

Thank you, that removed my 3070 error. Now i'm recieving errors on my report but...i think that may be related to the filter itself.