Make table from code?

[Geir Baardsen]

Hi!
A form load with the following code (3 listboxes):

With Me!lstOnr
.RowSource = ""
.ColumnCount = 6
.ColumnHeads = True
.ColumnWidths = "0cm;1,501cm;1, 752cm;0cm;0cm;1 ,501cm"
.BoundColumn = 1
.RowSource = "SELECT tblOrdrer.Ordre ID, tblOrdrer.Ordre nr,
tblOrdrer.Dato, tblOrdrer.Kunde ID, tblOrdrer.Ansat tID,
tblAnsatte. Initialer, tblOrdrer.Retur nr " _
& "FROM tblAnsatte
INNER JOIN tblOrdrer ON tblAnsatte.Ansa ttID = tblOrdrer.Ansat tID " _
& "WHERE (((tblOrdrer.Or dreNr) = Forms!frmOrdrer !OrdreNr));"
End With

With Me!lstPersOppl
.RowSource = ""
.ColumnCount = 7
.ColumnHeads = True
.ColumnWidths = "0cm;1,251cm;4c m;4cm;0cm;1,255 cm;4cm"
.BoundColumn = 1
.RowSource = "SELECT tblKunder.Kunde ID, tblKunder.Kunde nr, tblKunder.Navn,
tblKunder.Adres se, tblKunder.Postn rID, tblPostnr.Postn r, tblPostnr.Sted " _
& "FROM tblPostnr
INNER JOIN tblKunder ON tblPostnr.Postn rID = tblKunder.Postn rID " _
& "WHERE (((KundeID) = Forms!frmOrdrer !KundeID));"
End With

With Me!lstVareInfo
.RowSource = ""
.ColumnCount = 9
.ColumnHeads = True
.ColumnWidths = "0cm;2cm;0cm;4c m;4cm;1,251cm;1 ,251cm;1,251cm; 1,251cm"
.BoundColumn = 1
.RowSource = "SELECT tblDelordrer.Or dreID, tblDelordrer.De lordreID,
tblDelordrer.Va reID, tblVarer.Varena vn, tblVarer.VareDi mensjon,
tblDelordrer.Pr is, tblDelordrer.Me ngde, tblDelordrer.Ra batt,
tblDelordrer.Mi ljoavg " _
& "FROM tblVarer
INNER JOIN tblDelordrer ON tblVarer.VareID = tblDelordrer.Va reID " _
& "WHERE (((tblDelordrer .OrdreID) = Forms!frmOrdrer !OrdreID));"
End With

Now...

Can I make a table, say tblMyTemp, filled with these data in code?

The purpose is to fill a table with data that I want to send to a report.

Any suggestions?

Me.Name

[Tanis]

Geir Baardsen wrote:

Hi!
A form load with the following code (3 listboxes):

With Me!lstOnr
.RowSource = ""
.ColumnCount = 6
.ColumnHeads = True
.ColumnWidths = "0cm;1,501cm;1, 752cm;0cm;0cm;1 ,501cm"
.BoundColumn = 1
.RowSource = "SELECT tblOrdrer.Ordre ID, tblOrdrer.Ordre nr,
tblOrdrer.Dato, tblOrdrer.Kunde ID, tblOrdrer.Ansat tID,
tblAnsatte. Initialer, tblOrdrer.Retur nr " _
& "FROM tblAnsatte
INNER JOIN tblOrdrer ON tblAnsatte.Ansa ttID = tblOrdrer.Ansat tID " _ & "WHERE (((tblOrdrer.Or dreNr) = Forms!frmOrdrer !OrdreNr));"
End With

With Me!lstPersOppl
.RowSource = ""
.ColumnCount = 7
.ColumnHeads = True
.ColumnWidths = "0cm;1,251cm;4c m;4cm;0cm;1,255 cm;4cm"
.BoundColumn = 1
.RowSource = "SELECT tblKunder.Kunde ID, tblKunder.Kunde nr, tblKunder.Navn, tblKunder.Adres se, tblKunder.Postn rID, tblPostnr.Postn r, tblPostnr.Sted " _ & "FROM tblPostnr
INNER JOIN tblKunder ON tblPostnr.Postn rID = tblKunder.Postn rID " _ & "WHERE (((KundeID) = Forms!frmOrdrer !KundeID));"
End With

With Me!lstVareInfo
.RowSource = ""
.ColumnCount = 9
.ColumnHeads = True
.ColumnWidths = "0cm;2cm;0cm;4c m;4cm;1,251cm;1 ,251cm;1,251cm; 1,251cm" .BoundColumn = 1
.RowSource = "SELECT tblDelordrer.Or dreID, tblDelordrer.De lordreID, tblDelordrer.Va reID, tblVarer.Varena vn, tblVarer.VareDi mensjon,
tblDelordrer.Pr is, tblDelordrer.Me ngde, tblDelordrer.Ra batt,
tblDelordrer.Mi ljoavg " _
& "FROM tblVarer
INNER JOIN tblDelordrer ON tblVarer.VareID = tblDelordrer.Va reID " _ & "WHERE (((tblDelordrer .OrdreID) = Forms!frmOrdrer !OrdreID));"
End With

Now...

Can I make a table, say tblMyTemp, filled with these data in code?

The purpose is to fill a table with data that I want to send to a report.
Any suggestions?

Me.Name

Am I missing something here? Why not use a query to gather the data
required, then use the query as the Record Source of the Report?

[Darryl Kerkeslager]

"Geir Baardsen" <ge***********@ hotmail.com> wrote

A form load with the following code (3 listboxes):

With Me!lstOnr
.RowSource = ""
.ColumnCount = 6
.ColumnHeads = True
.ColumnWidths = "0cm;1,501cm;1, 752cm;0cm;0cm;1 ,501cm"
.BoundColumn = 1
.RowSource = "SELECT tblOrdrer.Ordre ID, tblOrdrer.Ordre nr,
tblOrdrer.Dato, tblOrdrer.Kunde ID, tblOrdrer.Ansat tID,
tblAnsatte. Initialer, tblOrdrer.Retur nr " _
& "FROM tblAnsatte
INNER JOIN tblOrdrer ON tblAnsatte.Ansa ttID = tblOrdrer.Ansat tID " _
& "WHERE (((tblOrdrer.Or dreNr) = Forms!frmOrdrer !OrdreNr));"
End With

With Me!lstPersOppl
.RowSource = ""
.ColumnCount = 7
.ColumnHeads = True
.ColumnWidths = "0cm;1,251cm;4c m;4cm;0cm;1,255 cm;4cm"
.BoundColumn = 1
.RowSource = "SELECT tblKunder.Kunde ID, tblKunder.Kunde nr, tblKunder.Navn, tblKunder.Adres se, tblKunder.Postn rID, tblPostnr.Postn r, tblPostnr.Sted " _ & "FROM tblPostnr
INNER JOIN tblKunder ON tblPostnr.Postn rID = tblKunder.Postn rID " _
& "WHERE (((KundeID) = Forms!frmOrdrer !KundeID));"
End With

With Me!lstVareInfo
.RowSource = ""
.RowSource = "SELECT tblDelordrer.Or dreID, tblDelordrer.De lordreID,
tblDelordrer.Va reID, tblVarer.Varena vn, tblVarer.VareDi mensjon,
tblDelordrer.Pr is, tblDelordrer.Me ngde, tblDelordrer.Ra batt,
tblDelordrer.Mi ljoavg " _
& "FROM tblVarer
INNER JOIN tblDelordrer ON tblVarer.VareID = tblDelordrer.Va reID " _
& "WHERE (((tblDelordrer .OrdreID) = Forms!frmOrdrer !OrdreID));"
End With
I will reply to the code-table-query issue in another email. But what
needs to be pointed out here is that you are needlessly setting all these
properties in the onOpen event. Set the properties of the listboxes at
design time, in design view.

Certainly these:
.ColumnCount = 9
.ColumnHeads = True
.ColumnWidths = "0cm;2cm;0cm;4c m;4cm;1,251cm;1 ,251cm;1,251cm; 1,251cm"
.BoundColumn = 1

Should rarely be set in code, unless you are for some reason using the same
listbox for multiple queries of very different type.

Setting the RowSource to a blank string is useless if you turn around and
set it to a SQL query just a few lines later.

Why not just have the rowsource already part of the listbox? Why do this on
open at all??
Darryl Kerkeslager