Edit values in a table 1

[BrenoAguiar]

How can I edit the value of a specific field in a table through an unbound form. I tried something like that but it didn't work:

Dim subm5 As Recordset
Set subm5 = CurrentDb.OpenRecordset("pur_unit", dbOpenDynaset)
With subm5
.FindFirst "location='" & Me.[location] & "'"
If .NoMatch Then
.AddNew
![quantity] = Me.[quantity]
Else
.Edit
End If
.Edit
![quantity] = ![quantity] + Me.[quantity]
.Update
End With


I'm trying to add (or subtract) what the user types in the unbound form quantity field.
Any help?

 

[PHV]

but it didn't work
Very informative ...
Perhaps something like this ?
Dim subm5 As DAO.Recordset
Set subm5 = CurrentDb.OpenRecordset("pur_unit", dbOpenDynaset)
With subm5
.FindFirst "location='" & Me.[location] & "'"
If .NoMatch Then
.AddNew
![location=] = Me.[location]
![quantity] = 0
Else
.Edit
End If
![quantity] = ![quantity] + Me.[quantity]
.Update
.Close
End With
Set subm5 = Nothing

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[BrenoAguiar]

Sorry.. forgot to paste the error. But was the [location] missing to ".Addnew". Thanks again PHV!