Access 2000 Upgrade W2000 to WXP (1 Viewer)

[amerfeld]

***Update: Service Packs had not been installed on the computer. Problem Solved.





Hi all:
Have a problem now that one of my users has been upgraded to WXP from W2000. (DB was developed in Access 2000.) When using a recordset to copy current fields to new record in form, instead of copying the current data, the fields are set to null or 0. This is a part of the code I am referring to:
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim F As Form
Dim NewID As Integer


Set dbs = CurrentDb
Set rst = Me.RecordsetClone


On Error GoTo Err_cmdCopyQuote_Click

'set form tag value to be used by append queries
Me.tag = Me!QuoteID

'Add new record to end of recordset. Set new quote field values.
With rst
.AddNew
!QuoteID = (DMax("quoteid", "tblquotemst") + 1)
!CustNme = Me.CustNme
!CustID = Me.CustID
!BilltoID = Me.BilltoID
!ShiptoID = Me.ShiptoID
!PartNo = Me.PartNo
!PartDesc = Me.PartDesc
!SalesID = Me.SalesID
!QuoteDate = Date
!QuoteFromID = Me.QuoteFromID
!CustTypeID = Me.CustTypeID
!Approved = Empty
!DteApproved = Empty
!CertOfComp = Me.CertOfComp
!BarCodes = Me.BarCodes
!FinalInsCert = Me.FinalInsCert
!PrintInHouse = Me.PrintInHouse
!Requoted = False
!QuoteAttnFirst = Me.QuoteAttnFirst
!QuoteAttnLast = Me.QuoteAttnLast
!OrigQuoteNo = Me.QuoteID
!QuoteType = 1
!EnterGrndTtlPrice = Me.Check1
!CostThreeDec = Me.CostThreeDec
If Me.CostThreeDec.Value = -1 Then
!OrigQuotePrice = Me.sfrmGrndTtlSum!txtThreeDec
Else
!OrigQuotePrice = Me.sfrmGrndTtlSum!txtTwoDec
End If
!SendQuoteVia = Me.SendQuoteVia
!Liquid = Me.Liquid
!Powder = Me.Powder
!EN = Me.EN
!Assembly = Me.Assembly
!WashOnly = Me.WashOnly
!SilkScreenOnly = Me.SilkScreenOnly
!PreFinish = Me.PreFinish
!Steel = Me.Steel
!Aluminum = Me.Aluminum
!Plastic = Me.Plastic
!Casting = Me.Casting
!Wood = Me.Wood
!Glass = Me.Glass
!Other = Me.Other
.Update
.MoveLast
End With
'move to new requote record
Me.Bookmark = rst.Bookmark

and so forth. The quoteid field is OK. It's the rest of the fields that when contain data are set to null or 0 instead of the actual data they contain. I have checked references and which are ok. I have also changed the Access program on the computer to office 2000 compatible. No luck. I did find that the version of Access is different from my computer. My W2000 version is 9.0.6620 and the XP is 9.0.0.2719.

Does anyone have any ideas? I've tried searching and have done what I can and now I'm stuck. Thanks for your time.

 

[Dennisk]

you normally refer to a control on a form using the following notation
Me!ControlName
use a dot to refer to a method of the form

 

[GaryPanic]

daft question - are the table fields the right format in the addnew table ??
and are the properties correct (ie the same as the quoteid-table)
if they are different - might be a prob -

 

[Dennisk]

I cannot tell you that from the code.