Duplicated Records in Unbound Textboxes

**Rabbit** · May 7 '14, 07:15 PM

As a rule of thumb, I do not download attachments from people I don't know. Instead, please post the relevant code.

**Justair07** · May 7 '14, 07:23 PM

Here is the code used in a standard module in access.

Code:

Public Sub LoadMyForm(frm As Access.Form)
On Error GoTo Error_Handler
'    Dim db              As DAO.Database
    Dim rs              As DAO.Recordset
    Dim x               As Integer

'    Set db = CurrentDb()
    Set rs = db.OpenRecordset("qryPDMonitor", dbOpenSnapshot)

    For x = 1 To 16
        If rs.EOF Then Exit For
        With frm
        frm.Controls("qn" & x) = rs!QuoteLogNumber
        frm.Controls("cust" & x) = rs!Customer
        frm.Controls("sales" & x) = rs![Sales COOrd]
        frm.Controls("prod" & x) = rs!ProductDesignInitials
        frm.Controls("submit" & x) = rs!dtmTimeSubmitted
        frm.Controls("total" & x) = rs!Expr1
        frm.Controls("c" & x) = rs!PartsCompleted
        frm.Controls("e" & x) = rs!ynExpedite
        End With
        rs.MoveNext
    Next

Error_Handler_Exit:
    On Error Resume Next
    rs.Close
    Set rs = Nothing
'    Set db = Nothing
    Exit Sub

Error_Handler:
    MsgBox "The following error has occured." & vbCrLf & vbCrLf & _
            "Error Number: " & Err.Number & vbCrLf & _
            "Error Source: LoadMyForm" & vbCrLf & _
            "Error Description: " & Err.Description, _
            vbCritical, "An Error has Occured!"
    Resume Error_Handler_Exit
End Sub

This populates the unbound text boxes based on my query. It is ran from a Timer Event set on my frmPDMonitor

**Rabbit** · May 7 '14, 08:47 PM

Where's the code for the save changes button?

**Justair07** · May 7 '14, 10:39 PM

Hello Rabbit,

Sorry for the late reply.

Here is the code for my save changes button

Code:

Private Sub cmdSaveChanges_Click()
    
    On Error Resume Next
    
    If Me.Dirty Then Me.Dirty = False 'Force a save of the active record
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
    End If
    If CurrentProject.AllForms("frmPDMonitor").IsLoaded Then Forms![frmPDMonitor].Form.Requery
End Sub

**Rabbit** · May 8 '14, 01:35 AM

Is there any code that runs when you click the checkbox? If so, please post that as well. When does the LoadMyForm function get called?

**Justair07** · May 8 '14, 01:45 AM

Once my form is opened I use the onload event for the form to trigger a timer every second that calls the function. That's it for the code. Thank you by the way for your help with this.

Duplicated Records in Unbound Textboxes

Duplicated Records in Unbound Textboxes

Comment

Comment

Comment

Comment

Comment

Comment