M
Mark J Kubicki
I would think that this should be simple, and I'm sure it is.... and that I
MUST be missing "SOMETHING OBVIOUS" (any suggestions).
LINE 7 fails because of "too few arguments"
the project does contain the tables: FixtureTypesNoProject, with fields;
[type], [Manufacturer]..., and table ProjectnInfo with fields: [ProjectName]
;
(plz ignore the blatant typos, in the names, I inherited them -UGH!) ;
the code is entered behind a report with a field [type] in its detail
section ; [type] is reporting correctly.
1 Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
2 Dim dbs As Database
3 Dim rst As DAO.Recordset
4 Dim rst1 As DAO.Recordset
5 Dim strSQL As String
strSQL = "select * from " _
& "FixtureTypesNoProject where type = " _
& Me!Type
6 Set dbs = CurrentDb
7 Set rst = dbs.OpenRecordset(strSQL, dbOpenSnapshot) 'THIS IS THE LINE
THAT FAILS
8 Set rst1 = dbs.OpenRecordset("ProjectnInfo", dbOpenTable)
9 Me.Text54 = "test: " & Me.Type & " " & rst!Manufacturer & " " '&
rst1!ProjectName
10 End Sub
as always,
thanks in advance
mark
MUST be missing "SOMETHING OBVIOUS" (any suggestions).
LINE 7 fails because of "too few arguments"
the project does contain the tables: FixtureTypesNoProject, with fields;
[type], [Manufacturer]..., and table ProjectnInfo with fields: [ProjectName]
;
(plz ignore the blatant typos, in the names, I inherited them -UGH!) ;
the code is entered behind a report with a field [type] in its detail
section ; [type] is reporting correctly.
1 Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
2 Dim dbs As Database
3 Dim rst As DAO.Recordset
4 Dim rst1 As DAO.Recordset
5 Dim strSQL As String
strSQL = "select * from " _
& "FixtureTypesNoProject where type = " _
& Me!Type
6 Set dbs = CurrentDb
7 Set rst = dbs.OpenRecordset(strSQL, dbOpenSnapshot) 'THIS IS THE LINE
THAT FAILS
8 Set rst1 = dbs.OpenRecordset("ProjectnInfo", dbOpenTable)
9 Me.Text54 = "test: " & Me.Type & " " & rst!Manufacturer & " " '&
rst1!ProjectName
10 End Sub
as always,
thanks in advance
mark