save button

[azhar2006]

Hi all
Can I add a save button to the code

Private Sub Form_Load()
On Error Resume Next


    Dim strOpenArgs As String
    Dim strTableName As String
    Dim strSQL As String
    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim j As Integer
    
    strTableName = Split(Me.OpenArgs, "|")(0)
    strSQL = Split(Me.OpenArgs, "|")(1)
    
    Me.txtTableName = strTableName
    
    Set rs = CurrentDb.OpenRecordset(strSQL)
    If Not rs.BOF Then
        For i = 1 To 11
            If i <= rs.Fields.Count Then
                j = i - 1
                Me("Label" & i).Caption = rs.Fields(j).Name
                Me("Label" & i).Visible = True
                Me("Text" & i) = rs.Fields(j).Value
                Me("Text" & i).Visible = True
            End If
        Next i
    End If
    rs.Close
    Set rs = Nothing
End Sub

[June7]

A save button would be a command button on form and the button has its own code.

Maybe this procedure can have a line with command to save record. Never tried that in Load event.

[Missinglinq]

What, in plain language, are you trying to accomplish, here?

What are you trying to 'save?'

Linq ;0)>

[azhar2006]

Thank you
An organization based on fields of multiple tables. How do I save changes

[June7]

Don't understand the issue.

Record is committed to table when:

1. close table/query/form

2. move to another record

3. run code

You have code opening a recordset and populating controls. Are these bound controls?