473,327 Members | 2,118 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,327 software developers and data experts.

Query in VBA

I am attempting to implement a fault logging database in Access.
My idea is to have a form with lots of buttons on it. Each button will
represent a computer in a certain room. When i click on the button I
want the fault history of this computer displayed as a form. So
basically i would want a query based on my table to search for a
computer, say workstation "H7-11" to be activated from an 'on click'
property.

My tbl is tblproblem. And the field i want to seach from is
StationName. The database i am working on is project.mdb.

I dont understand all this stuff about QueryDef and RunSQL (pardon my
ignorance but Microsoft Access help isnt my best friend!!) :)

Could somebody in the know please try and give me some code to work
on?

Many Thanks.
Nov 12 '05 #1
3 1369
If I understand correctly, QueryDefs are not necessary and the RunSQL
method/action only uses action queries. You wnat a SELECT query applied to a
forms recordsource. I find it helpfull (sometimes faster) to build the query
in design view, then switch to SQLview and then copy and paste the string to
the module I'm working in. Then I mdify the string to suit, adding variables
and other critertia. You usage way look something like this. (You'll
probably have to change a few things to do everything you want it to do)

Dim sqlStr As String
Dim strStation As String

sqlStr = "SELECT tblproblem.StationName, << other fields >> FROM tblproblem
sqlStr = sqlStr & "WHERE (tblproblem.StationName = '" & strStation & "');"
'note the single quotes before and after the double quotes
'assign strStationName with the computer being clicked on prior to this
section

DoCmd.OpenForm "<<frmName>>"
Forms("<<frmName>>").RecordSource = sqlStr
Forms("<<frmName>>").Refresh

This could also be accomplished using a filter on the opening form, but I
personally don't like using them.

Mike Storr
www.veraccess.com

"Simon Bailey" <go*********@hotmail.com> wrote in message
news:1c**************************@posting.google.c om...
I am attempting to implement a fault logging database in Access.
My idea is to have a form with lots of buttons on it. Each button will
represent a computer in a certain room. When i click on the button I
want the fault history of this computer displayed as a form. So
basically i would want a query based on my table to search for a
computer, say workstation "H7-11" to be activated from an 'on click'
property.

My tbl is tblproblem. And the field i want to seach from is
StationName. The database i am working on is project.mdb.

I dont understand all this stuff about QueryDef and RunSQL (pardon my
ignorance but Microsoft Access help isnt my best friend!!) :)

Could somebody in the know please try and give me some code to work
on?

Many Thanks.

Nov 12 '05 #2
"Mike Storr" <st******@sympatico.ca> wrote in message news:<gj*******************@news20.bellglobal.com> ...
If I understand correctly, QueryDefs are not necessary and the RunSQL
method/action only uses action queries. You wnat a SELECT query applied to a
forms recordsource. I find it helpfull (sometimes faster) to build the query
in design view, then switch to SQLview and then copy and paste the string to
the module I'm working in. Then I mdify the string to suit, adding variables
and other critertia. You usage way look something like this. (You'll
probably have to change a few things to do everything you want it to do)

Dim sqlStr As String
Dim strStation As String

sqlStr = "SELECT tblproblem.StationName, << other fields >> FROM tblproblem
sqlStr = sqlStr & "WHERE (tblproblem.StationName = '" & strStation & "');"
'note the single quotes before and after the double quotes
'assign strStationName with the computer being clicked on prior to this
section

DoCmd.OpenForm "<<frmName>>"
Forms("<<frmName>>").RecordSource = sqlStr
Forms("<<frmName>>").Refresh

This could also be accomplished using a filter on the opening form, but I
personally don't like using them.

Mike Storr
www.veraccess.com

"Simon Bailey" <go*********@hotmail.com> wrote in message
news:1c**************************@posting.google.c om...
I am attempting to implement a fault logging database in Access.
My idea is to have a form with lots of buttons on it. Each button will
represent a computer in a certain room. When i click on the button I
want the fault history of this computer displayed as a form. So
basically i would want a query based on my table to search for a
computer, say workstation "H7-11" to be activated from an 'on click'
property.

My tbl is tblproblem. And the field i want to seach from is
StationName. The database i am working on is project.mdb.

I dont understand all this stuff about QueryDef and RunSQL (pardon my
ignorance but Microsoft Access help isnt my best friend!!) :)

Could somebody in the know please try and give me some code to work
on?

Many Thanks.


Thankyou, Mike for your help. I have got the guery to work now after
tweaking you innitial code. Thankyou for your time on this matter it
is very much appreciated.
Nov 12 '05 #3
No problem, although I'm impressed you could read the crap I wrote. I was
either drunk or decided that grammer and spelling were not required either.
"Simon Bailey" <go*********@hotmail.com> wrote in message
news:1c*************************@posting.google.co m...
"Mike Storr" <st******@sympatico.ca> wrote in message

news:<gj*******************@news20.bellglobal.com> ...
If I understand correctly, QueryDefs are not necessary and the RunSQL
method/action only uses action queries. You wnat a SELECT query applied to a forms recordsource. I find it helpfull (sometimes faster) to build the query in design view, then switch to SQLview and then copy and paste the string to the module I'm working in. Then I mdify the string to suit, adding variables and other critertia. You usage way look something like this. (You'll
probably have to change a few things to do everything you want it to do)

Dim sqlStr As String
Dim strStation As String

sqlStr = "SELECT tblproblem.StationName, << other fields >> FROM tblproblem sqlStr = sqlStr & "WHERE (tblproblem.StationName = '" & strStation & "');" 'note the single quotes before and after the double quotes
'assign strStationName with the computer being clicked on prior to this section

DoCmd.OpenForm "<<frmName>>"
Forms("<<frmName>>").RecordSource = sqlStr
Forms("<<frmName>>").Refresh

This could also be accomplished using a filter on the opening form, but I personally don't like using them.

Mike Storr
www.veraccess.com

"Simon Bailey" <go*********@hotmail.com> wrote in message
news:1c**************************@posting.google.c om...
I am attempting to implement a fault logging database in Access.
My idea is to have a form with lots of buttons on it. Each button will
represent a computer in a certain room. When i click on the button I
want the fault history of this computer displayed as a form. So
basically i would want a query based on my table to search for a
computer, say workstation "H7-11" to be activated from an 'on click'
property.

My tbl is tblproblem. And the field i want to seach from is
StationName. The database i am working on is project.mdb.

I dont understand all this stuff about QueryDef and RunSQL (pardon my
ignorance but Microsoft Access help isnt my best friend!!) :)

Could somebody in the know please try and give me some code to work
on?

Many Thanks.


Thankyou, Mike for your help. I have got the guery to work now after
tweaking you innitial code. Thankyou for your time on this matter it
is very much appreciated.

Nov 12 '05 #4

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

2
by: jaysonsch | last post by:
Hello! I am having some problems with a database query that I am trying to do. I am trying to develop a way to search a database for an entry and then edit the existing values. Upon submit, the...
29
by: shank | last post by:
1) I'm getting this error: Syntax error (missing operator) in query expression on the below statement. Can I get some advice. 2) I searched ASPFAQ and came up blank. Where can find the "rules"...
9
by: netpurpose | last post by:
I need to extract data from this table to find the lowest prices of each product as of today. The product will be listed/grouped by the name only, discarding the product code - I use...
3
by: Harvey | last post by:
Hi, I try to write an asp query form that lets client search any text-string and display all pages in my web server that contain the text. I have IIS 6.0 on a server 2003. The MSDN site says...
4
by: Diamondback | last post by:
I have two tables, WIDGETS and VERSIONS. The WIDGETS table has descriptive information about the widgets while the VERSIONS table contains IDs relating to different iterations of those widgets...
14
by: Dave Thomas | last post by:
If I have a table set up like this: Name | VARCHAR Email | VARCHAR Age | TINYINT | NULL (Default: NULL) And I want the user to enter his or her name, email, and age - but AGE is optional. ...
0
by: starace | last post by:
I have designed a form that has 5 different list boxes where the selections within each are used as criteria in building a dynamic query. Some boxes are set for multiple selections but these list...
6
by: jjturon | last post by:
Can anyone help me?? I am trying to pass a Select Query variable to a table using Dlookup and return the value to same select query but to another field. Ex. SalesManID ...
4
by: Stan | last post by:
I am using MS Office Access 2003 (11.5614). My basic question is can I run a query of a query datasheet. I want to use more that one criteria and can not get that query to work. I thought I...
6
by: jsacrey | last post by:
Hey everybody, got a secnario for ya that I need a bit of help with. Access 97 using linked tables from an SQL Server 2000 machine. I've created a simple query using two tables joined by one...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
1
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.