Hi all,
Can anyone help me with my following code?? the run-time error '2465' is produced on the 'strcombo = Record_Set1([Asset #])' line. Any help is much appreciated.
Private Sub Custodian_History_Form_Enter()
Me.[Custodian History form].Nodes.Add Text:="Custodian History", Key:="Custodian History"
Me.[Custodian History form].Nodes.Add relationship:=tvwChild, Relative:="Custodian History", Text:="Asset #"
Me.[Custodian History form].Nodes.Add relationship:=tvwChild, Relative:="Custodian History", Text:="Custodian ID"
Me.[Custodian History form].Nodes.Add relationship:=tvwChild, Relative:="Custodian History", Text:="On Date"
Me.[Custodian History form].Nodes.Add relationship:=tvwChild, Relative:="Custodian History", Text:="Off Date"
Me.[Custodian History form].Nodes.Add relationship:=tvwChild, Relative:="Custodian History", Text:="Changes in Asset"
Dim Data_Base1 As DAO.Database
Dim Record_Set1 As DAO.Recordset
Dim Query_Def1 As QueryDef
Dim strcombo As String
Set Data_Base1 = CurrentDb()
Set Query_Def1 = Data_Base1.CreateQueryDef("")
Query_Def1.SQL = "SELECT [Asset #] FROM [Asset Master];"
Set Record_Set1 = Query_Def1.OpenRecordset()
With Record_Set1
Do While Not .EOF
strcombo = Record_Set1([Asset #])
[Asset #].AddItem strcombo
Me.[Custodian History form].Nodes2.Add relationship:=tvwsibling, Relative:="Changes in asset", Text:="strcombo"
.MoveNext
Loop
.Close
End With
Set rs1 = Nothing
db.Close
End Sub
Can anyone help me with my following code?? the run-time error '2465' is produced on the 'strcombo = Record_Set1([Asset #])' line. Any help is much appreciated.
Private Sub Custodian_History_Form_Enter()
Me.[Custodian History form].Nodes.Add Text:="Custodian History", Key:="Custodian History"
Me.[Custodian History form].Nodes.Add relationship:=tvwChild, Relative:="Custodian History", Text:="Asset #"
Me.[Custodian History form].Nodes.Add relationship:=tvwChild, Relative:="Custodian History", Text:="Custodian ID"
Me.[Custodian History form].Nodes.Add relationship:=tvwChild, Relative:="Custodian History", Text:="On Date"
Me.[Custodian History form].Nodes.Add relationship:=tvwChild, Relative:="Custodian History", Text:="Off Date"
Me.[Custodian History form].Nodes.Add relationship:=tvwChild, Relative:="Custodian History", Text:="Changes in Asset"
Dim Data_Base1 As DAO.Database
Dim Record_Set1 As DAO.Recordset
Dim Query_Def1 As QueryDef
Dim strcombo As String
Set Data_Base1 = CurrentDb()
Set Query_Def1 = Data_Base1.CreateQueryDef("")
Query_Def1.SQL = "SELECT [Asset #] FROM [Asset Master];"
Set Record_Set1 = Query_Def1.OpenRecordset()
With Record_Set1
Do While Not .EOF
strcombo = Record_Set1([Asset #])
[Asset #].AddItem strcombo
Me.[Custodian History form].Nodes2.Add relationship:=tvwsibling, Relative:="Changes in asset", Text:="strcombo"
.MoveNext
Loop
.Close
End With
Set rs1 = Nothing
db.Close
End Sub