set column widths after doing a CreateQueryDef and a doCmd.OpenQuery

  • Thread starter Thread starter Ferd Berfel
  • Start date Start date
F

Ferd Berfel

that's about it... I want to create a query on the fly, e.g.
sqlStr = "select first,last,other,whatever from myTable"
then do a

Set qdf = db.CreateQueryDef("ShowTheData", sqlStr )
DoCmd.OpenQuery "ShowTheData", acViewNormal, acEdit


and then
set column 1 to (e.g) 50
column 2 to 100
column 3 to ....


is this possible?

tia!
f
 
Ferd Berfel said:
that's about it... I want to create a query on the fly, e.g.
sqlStr = "select first,last,other,whatever from myTable"
then do a

Set qdf = db.CreateQueryDef("ShowTheData", sqlStr )
DoCmd.OpenQuery "ShowTheData", acViewNormal, acEdit


and then
set column 1 to (e.g) 50
column 2 to 100
column 3 to ....


is this possible?
Click to expand...

You can probably do something like this:

Dim db As DAO.Database
Dim qdf As DAO.QueryDef

Set db = CurrentDb
Set qdf = db.CreateQueryDef("ShowTheData", "SELECT * FROM Table1")
Set qdf = Nothing
Set db = Nothing

DoCmd.OpenQuery "ShowTheData"

With Screen.ActiveDatasheet.Controls
.Item(0).ColumnWidth = 1440 ' 1 inch
.Item(1).ColumnWidth = 2880 ' 2 inches
.Item(2).ColumnWidth = 4320 ' 3 inches
End With

Note that the query now created will remain in the database until you
delete it.
 
one more question....

is there a way to avoid the "Do you want to save changes to the layout
of query 'xyz'? " message?

for example, a way to force a save (even though it will be deleted
upon next run)

or another trick?


thanks again,
f
 
Ferd Berfel said:
one more question....

is there a way to avoid the "Do you want to save changes to the layout
of query 'xyz'? " message?

for example, a way to force a save (even though it will be deleted
upon next run)

or another trick?
Click to expand...

After opening the query and resizing the columns, execute the statement

DoCmd.Save acQuery, "ShowTheData"

That ought to do it.
 
oops, a little plunking around and I got it... thanks again...

doCmd.Save

does the trick when trying to avoid the "do you want to save the layout" messages.

Thanx again!

f
 
Back
Top