how do I write back to a table?

[kskip]

I have code that does a dlookup on a table with one row, one field. In my code I add 1 to that number and now I want to write the new number back to the table. How do I do that?

 

[HitechUser]

DLookUp is read only. You will need to create an SQL update.

' stupid example
Update tblWhatever SET fldMine = 'XYZ ' WHERE fldyours = '21'

 

[kskip]

now if get an Error "Syntax Error"
here's my code

  Dim varX As Variant
   varX = DLookup("[upccode]", "nextupc", "[upccode] > 1")

   
  'add 1 to that # and write it back
  Dim varY As Variant
  varY = Val(varX) + 1
  
   Update nextupc SET upccode = varY where upccode = varX

 

[grande]

dim strSQL As String

With Currentdb.openrecordset("SELECT upccode FROM nextupc WHERE upccode > 1")
     Do Until .EOF
     .Edit
     .Fields("upccode") = .Fields("upccode") + 1
     .Update
     Loop
End With

Hope this helps.

-------------------------
Just call me Captain Awesome.