if exists UPDATE else INSERT

[RuralGuy]

When you set the DataEntry property to YES the form will *only* display new records. Set it to NO and see what happens.

[lloyddobler]

If I only have 2 fields, I'll need them both bound in order to do my insert. If I change it to data entry=no, then when I open the form it displays a record, which I don't want, I want a blank form when opened, and when a control# is keyed in, if it exists, it populates the comments and allows for said comments to be edited. If the control number does not already exist, then a new record should be added.

[lloyddobler]

Okay, got it working now. I've kept the Dlookup, and for the ONCLICK event for SAVE command button, I've added the following code:

 
Private Sub cmdSaveRecord_Click()
If DCount("controlnumber", "tbl_Claim_Overview", "[controlnumber] = '" & Me.[Control Number] & "'") > 0 Then
DoCmd.SetWarnings False
Dim string1 As String

string1 = "UPDATE tbl_Claim_Overview" & _
  "  Set MyTable.claimoverview = '" & Forms![MYFORM]![ClaimOverview] & _
  "' WHERE MyTable.[controlnumber] = '" & Forms![MYFORM]![Control Number] & "'"
  
Debug.Print string1
DoCmd.RunSQL string1
  
  Else
  
DoCmd.RunSQL "INSERT INTO MyTable (controlnumber, claimoverview)" & _
  " VALUES(forms![MyFORM]![control number],forms![MYFORM]![claimoverview])"
End If
DoCmd.SetWarnings True

[csako1]

good day! just want to ask if this is possible in single execution???