Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Me.Requery error on one laptop but not workstations

Status
Not open for further replies.

4therecord

Programmer
Sep 16, 2003
2
FI
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(&quot;intRequestNo&quot;, &quot;qrySR_ShipTo_Max_ST&quot;) < 1 Then
NewSR_ShipTo_No = 1
Else
NewSR_ShipTo_No = DMax(&quot;ShipToNo&quot;, &quot;qrySR_ShipTo_Max_ST&quot;) + 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
 
Hi guys!
1)Have you only copied the dlls or also registered them?
2)Have you checked your references? (especially on those marked &quot;Not Available&quot; on your laptops) If there are any, this will prevent the db from running correctly...

MakeItSo

Andreas Galambos
EDP / Technical Support Specialist
Bowne Global Solutions Wuppertal, Germany
(andreas.galambos@bowneglobal.de)
HP:
 
Here's what finally worked. When we purchased the IBM laptops, they were pre-loaded (per our specifications). We wiped out the image completely on a test laptop and recreated it. Testing the vba code every step of the way to try and pin down the problem. We never could. Our solution? Put that image on all of our new laptops.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top