G
Guest
I am using the following code in my school project but am encountering a
problem with the expression. Have a look at the following code an see if you
can spot a problem. All advice comes very welcome..
Dim IdentifyTKY As Integer
Dim NewTKYWeight As Double
IndentifyTKY = TKYID
NewWeight = RecordedWeight
' TKYID is a autonumber starting at 278
' RecordedWeight is a decimal number to 3 decimal places
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.RunSQL ("UPDATE tblTable SET RecordedWeight = '" & NewWeight & "'
WHERE ColumnName = " & IdentifyTKY)
DoCmd.GoToRecord , , acNext
Many thanks in advance
Mike
problem with the expression. Have a look at the following code an see if you
can spot a problem. All advice comes very welcome..
Dim IdentifyTKY As Integer
Dim NewTKYWeight As Double
IndentifyTKY = TKYID
NewWeight = RecordedWeight
' TKYID is a autonumber starting at 278
' RecordedWeight is a decimal number to 3 decimal places
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.RunSQL ("UPDATE tblTable SET RecordedWeight = '" & NewWeight & "'
WHERE ColumnName = " & IdentifyTKY)
DoCmd.GoToRecord , , acNext
Many thanks in advance
Mike