Access VBA

Populate Unbound Form from Recordset

They we needed the flip side; to populate the Unbound fields with the current data.

Private Sub Combo54_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs          As Object
    Dim myTable     As DAO.Recordset
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[EmployeeID] = '" & Me![Combo54] & "'"
'    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

    '=======================
    Set myTable = CurrentDb.OpenRecordset("SELECT * from tbl_Employees WHERE " _
        & " [EmployeeID] = '" & Me.Combo54.Value & "'")
            
             Me.EmployeeID = myTable![EmployeeID] ' Table items
             Me.FName = myTable![FName]
             Me.LName = myTable![LName]
             If myTable![Active] = False Then
                Me.Active = 0
            Else
                Me.Active = -1
            End If
             If myTable![sex] = 2 Then
                Me.Frame70.Value = False
            Else
                Me.Frame70.Value = True
            End If
            
            Me.DeptLocation = myTable![DeptLocation]
            Me.JobTitle.Value = myTable![JobTitle]
            Me.MainAddress = UCase(myTable![MainAddress])
            Me.MainCity = UCase(myTable![MainCity])
            Me.MainState = UCase(myTable![MainState])
            Me.MainZip = myTable![MainZip]
            Me.MainCounty.Value = myTable![MainCounty]
            Me.PhHome = myTable![PhHome]
            Me.PhMobile = myTable![PhMobile]
            Me.PhOther = myTable![PhOther]
            Me.SSN = myTable![SSN]
            Me.PreTraining = myTable![PreTraining]
            Me.BirthDate = myTable![BirthDate]
            Me.DateHired = myTable![DateHired]
            Me.DateLeft = myTable![DateLeft]
            Me.Reason = UCase(myTable![Reason])
            Me.Frame70.Value = myTable![sex]
            Me.EmgContact = UCase(myTable![EmgContact])
            Me.EmgRelation.Value = myTable![EmgRelation]
            Me.EmgPhone = myTable![EmgPhone]
            Me.EmgMobile = myTable![EmgMobile]
            Me.EmgOther = myTable![EmgOther]

        myTable.Close       ' Close to release memory
   Set myTable = Nothing
   Set rs = Nothing
    
    '============================
End Sub