4therecord
Programmer
I am getting error 3420 Object invalid or no longer set on an IBM T30. I can't duplicate this error on a workstation. Both laptop and workstation are running Access 9.0.6926 SP-3. I also copied the dll's from the workstation to the laptop.
example:
Set db = CurrentDb
Set rs = db.OpenRecordset("tblSR_ShipTo", dbOpenDynaset, dbSeeChanges)
' Establish the Ship-To number:
If DCount("intRequestNo", "qrySR_ShipTo_Max_ST"
< 1 Then
NewSR_ShipTo_No = 1
Else
NewSR_ShipTo_No = DMax("ShipToNo", "qrySR_ShipTo_Max_ST"
+ 1
End If
'Make a new record in tblSR_ShipTo:
rs.AddNew
rs!intRequestNo = Forms!frmSampleReqTracker!intRequestNo
rs!ShipToNo = NewSR_ShipTo_No
rs.Update
rs.Close
Me!txtSR_ShipTo_Primary = NewSR_ShipTo_No
Me!cboCustShipTo.Visible = False ' Don't turn on until Acct. Mgr actgually selects a Ship-To
Me!cmdAddNewShipTo.ForeColor = 1
Me!cmdAddNewShipTo.FontBold = False
Call TabCtl206_Change
***Me.Requery
Me.Repaint
***** indicates where error occurs
example:
Set db = CurrentDb
Set rs = db.OpenRecordset("tblSR_ShipTo", dbOpenDynaset, dbSeeChanges)
' Establish the Ship-To number:
If DCount("intRequestNo", "qrySR_ShipTo_Max_ST"
NewSR_ShipTo_No = 1
Else
NewSR_ShipTo_No = DMax("ShipToNo", "qrySR_ShipTo_Max_ST"
End If
'Make a new record in tblSR_ShipTo:
rs.AddNew
rs!intRequestNo = Forms!frmSampleReqTracker!intRequestNo
rs!ShipToNo = NewSR_ShipTo_No
rs.Update
rs.Close
Me!txtSR_ShipTo_Primary = NewSR_ShipTo_No
Me!cboCustShipTo.Visible = False ' Don't turn on until Acct. Mgr actgually selects a Ship-To
Me!cmdAddNewShipTo.ForeColor = 1
Me!cmdAddNewShipTo.FontBold = False
Call TabCtl206_Change
***Me.Requery
Me.Repaint
***** indicates where error occurs