Query is updated on closing a form to a different record id

[AAAndy]

Query is updated on closing a form to a different record id.

I have the below form. There are some more textboxes there that are not shown that I also update. I update the form and after updating I click on the form to close it as shown with the mouse in the picture. Another record is then updated which is not wanted. It is updated under intReportID 31 but varReportTitle is changed to the first one in the list, (they are in order alphabetically on the form only). How do I make sure that the form is not saved under a different varReportTitle on exit? How do I make sure its not saved at all? Or if its saved that its saved under the same id, intReportID, and varReportTitle?

[AAAndy]

could it be something in this code

Private Sub cbointReportID_AfterUpdate()
    Dim iVal As Integer
    iVal = Nz(Me.cbointReportID.Value, 0)
    
   
    Dim S As String
    S = "SELECT varReportTitle from dbo_tbl_Custom_Subscription_Subscriptions where intReportID like " & iVal & ""


    Me.cbovarReportTitle.RowSource = S
    Me.cbovarReportTitle.Requery
    
End Sub

[John_G]

Do you have any other code in the form - perhaps in the On Close event?

Assuming all the form controls have a query field as the control source, I don't see anything that would update any record other than the one currently in the form.

[AAAndy]

Do you have any other code in the form - perhaps in the On Close event?

Assuming all the form controls have a query field as the control source, I don't see anything that would update any record other than the one currently in the form.

I have nothing in the on close event

I disabled all my update queries, only select queries are left, and it is still doing it. How do I disable this?

[AAAndy]

I added the below code which cancels the automatic update and fixed the issue

Dim SaveFlag As Boolean


Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.Dirty = True And SaveFlag = False Then
        Me.Undo
    End If
End Sub


Private Sub cmdSave_Click()
    SaveFlag = True
    Me.Dirty = False
    SaveFlag = False
End Sub

I also tried below which works but gives error

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Me.Undo
    Cancel = True
End Sub