I have a single record table/multi field table which I'm trying to load into text boxes for the user to edit. Any way to get this code to work? I know that it works the other way around, but wasn't sure how to load fields into a form.
Private Sub Form_Load()
Dim MyDB As DAO.Database
Dim MySet1 As DAO.Recordset
Dim strSQl As String
Set MyDB = CurrentDb
Set MySet1 = MyDB.OpenRecordset("tblAdams")
DoCmd.SetWarnings False
Me.TraNamFld = !TradeName
Me.ComNamFld = !CompleteCoName
Me.StrFld = !AddressStreet
Me.CitFld = !AddressCity
Me.StaFld = !AddressState
Me.ZipFld = !AddressZip
Me.TelFld = !Telephone
Me.FaxFld = !Facsimile
Me.ResFld = !ResaleTaxNo
Me.DbdFld = !DBDunsNo
Me.EidFld = !EIDNo
MySet1.Close
Set MySet1 = Nothing
DoCmd.SetWarnings True
End Sub
Private Sub Form_Load()
Dim MyDB As DAO.Database
Dim MySet1 As DAO.Recordset
Dim strSQl As String
Set MyDB = CurrentDb
Set MySet1 = MyDB.OpenRecordset("tblAdams")
DoCmd.SetWarnings False
Me.TraNamFld = !TradeName
Me.ComNamFld = !CompleteCoName
Me.StrFld = !AddressStreet
Me.CitFld = !AddressCity
Me.StaFld = !AddressState
Me.ZipFld = !AddressZip
Me.TelFld = !Telephone
Me.FaxFld = !Facsimile
Me.ResFld = !ResaleTaxNo
Me.DbdFld = !DBDunsNo
Me.EidFld = !EIDNo
MySet1.Close
Set MySet1 = Nothing
DoCmd.SetWarnings True
End Sub