Update record if exists else insert.
Hi there
I use this code to update a record:
Dim rst As New ADODB.Recordset, x As Long
With rst
.Open "SELECT * FROM ActJobs WHERE JobNo=" & frmd.Cells(2, 19), _
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=K:\KKDB.accdb", adOpenDynamic, adLockOptimistic
For x = 0 To 38
If x = 17 Or x = 20 Or x = 23 Then
If frmd.Cells(2, x + 3) <> "" Then
.fields(x) = DateValue(frmd.Cells(2, x + 3))
End If
Else
If x = 24 And frmd.Cells(2, x + 3) = "" Then frmd.Cells(2, x + 3) = 0
If x = 25 And frmd.Cells(2, x + 3) = "" Then frmd.Cells(2, x + 3) = 0
If x = 26 And frmd.Cells(2, x + 3) = "" Then frmd.Cells(2, x + 3) = 0
.fields(x) = frmd.Cells(2, x + 3)
End If
Next
.Update
.Close
End With
However, some JobNo's have been accidentally deleted and so I would like to insert the data if the JobNo doesn't exist.
Any pointers please?
Thanks in advance
Subject
Views
Written By
Posted
Update record if exists else insert.
1784
October 11, 2019 10:23AM
806
October 12, 2019 10:05PM
Sorry, you can't reply to this topic. It has been closed.
This forum is currently read only. You can not log in or make any changes. This is a temporary situation.
Content reproduced on this site is the property of the respective copyright holders.
It is not reviewed in advance by Oracle and does not necessarily represent the opinion
of Oracle or any other party.