Popup Form not updating SQL table

[krisrider09]

Hi



I have a problem with one of my clients. They have a cloud network with remote access, and I have a large MS Access DB 2002 with an ODBC connection to an SQL Server 2008 DB.

The issue I am getting now is some of the popup forms are not letting the User update and edit an existing record. You can add data values to the form but it does not update the record in the table. You can add new records without a problem, but not edit existing records.

I have checked the permissions on the Server & the SQL DB but it all looks ok.

Other popup forms in the DB work fine. This error started in one form about a month ago, and now it is two forms at present. I have tried creating new form and copying the controls over to it, but I still get the same error. It happens when you double click on a record in a list-box in the main form and loads the record into a popup form to edit. You can edit the record on the form but it does not update it to the table!

Any help would be greatly appreciated!
Thanks

[ranman256]

What about the form permission property?

[John_G]

What is the On_DoubleClick code in the list box?

What is the record source for the popup form - table or query?

Is there any code in the popup form that might be preventing the updates?

[krisrider09]

What is the On_DoubleClick code in the list box?

What is the record source for the popup form - table or query?

Is there any code in the popup form that might be preventing the updates?

Hi John, thanks for replying to my message.

What is the On_DoubleClick code in the list box?
lngID = CLng(Nz(Me.lstHistRdNot.Column(11), 0))
If lngID > 0 Then
strFrm = "frmSCPurNAC"
DoCmd.OpenForm strFrm, acNormal, , , , , CStr(lngID)
End If


Form_Open
'Set Values
strID = "[OrdID]="
strNHead = "New " & strItem & " Form"
strEHead = "Edit " & strItem & " Form"

'Load User Details
varID = CVar(Nz(Me.OpenArgs, 0))
If IsNumeric(varID) Then
lngID = CLng(varID)
Else
lngID = 0
End If
If lngID = 0 Then
'New Record
DoCmd.GoToRecord , , acNewRec
Me.lblHead.Caption = strNHead
LockSub (2)
Else
'Find User
Set objFrm = Me.Form

With objFrm.RecordsetClone
.FindFirst strID & lngID
If Not .NoMatch Then
'Move to that record.
objFrm.Bookmark = .Bookmark
Me.lblHead.Caption = strEHead

'Load Totals
PurItemACEX

Else
'New Record
DoCmd.GoToRecord , , acNewRec
Me.lblHead.Caption = strNHead

End If
End With

Set objFrm = Nothing
End If

What is the record source for the popup form - table or query?
SQL Table - ODBC Connection - Linked controls

Is there any code in the popup form that might be preventing the updates?
No

This Form has been running and not touched for about 4 years.

Cheers