-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
printing records in access
- Thread starter buggy2
- Start date
Joe4
MrExcel MVP, Junior Admin
- Joined
- Aug 1, 2002
- Messages
- 74,072
- Office Version
- 365
- Platform
- Windows
Create a query where you select the records you want to print. If it is all right to show the records in a "spreadsheet" looking format, you can print out this query directly. If you want it to look a bit nicer and have more control over the format of the printed output, then create a report based on this query, and print that.
Upvote
0
Joe4
MrExcel MVP, Junior Admin
- Joined
- Aug 1, 2002
- Messages
- 74,072
- Office Version
- 365
- Platform
- Windows
Your posts are lacking in detail. Do we can see exactly what it is you are trying to do, please explain, in detail, an example. Also, provide any code (you mention a Sub) that you have already written.
Upvote
0
In my datbase I have a number of tables one of which is called "mytable". The table "mytable" contains 10 fields one of which is called "conn_name". I need a sub that prints out all the entries in the "conn_name" field.
e.g.
| conn_name|
| bob |
| jane |
.
.
.
i need a sub that will print out bob in a messagebox, then when you click ok, it out jane in a messagebox and so on for all the entries in the conn name field.
e.g.
| conn_name|
| bob |
| jane |
.
.
.
i need a sub that will print out bob in a messagebox, then when you click ok, it out jane in a messagebox and so on for all the entries in the conn name field.
Upvote
0
Joe4
MrExcel MVP, Junior Admin
- Joined
- Aug 1, 2002
- Messages
- 74,072
- Office Version
- 365
- Platform
- Windows
The following code requires that you have the DAO reference selected. Here is how you do this:
In the VB Editor, go to Tools | References and select the option named Microsoft DAO X.X Object Library (in my version of Access, x.x. is 3.6, but it may be something different in yours).
Now, the following macro should do what you want:
In the VB Editor, go to Tools | References and select the option named Microsoft DAO X.X Object Library (in my version of Access, x.x. is 3.6, but it may be something different in yours).
Now, the following macro should do what you want:
Code:
Sub ListNames()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("mytable", dbOpenTable)
rst.MoveFirst
Do While Not rst.EOF
With rst
MsgBox .Fields("conn_name")
.MoveNext
End With
Loop
End Sub
Upvote
0
Joe4
MrExcel MVP, Junior Admin
- Joined
- Aug 1, 2002
- Messages
- 74,072
- Office Version
- 365
- Platform
- Windows
I didn't close the recordset in my original VB code above when I was finished with it. It is considered "good form" to do so. Simply add one line:
Code:
Sub ListNames()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("mytable", dbOpenTable)
rst.MoveFirst
Do While Not rst.EOF
With rst
MsgBox .Fields("conn_name")
.MoveNext
End With
Loop
rst.Close
End Sub
Upvote
0
Similar threads
- Solved
- Solved
