Results 1 to 2 of 2
  1. #1
    KComfort is offline Novice
    Windows 10 Access 2016
    Join Date
    Apr 2020

    Look for Record - if it doesn't exist create a new one

    2 Tables:
    Details - Has Details from an Excel Import
    Complete - Was Created to Capture Information from a Form in Regards to the Details from Excel
    Tables are Linked with a Common Unique Field called ECN.
    User Selects ECN Number from a Combo Box - Hits Enter - 2nd Form Opens with all Details - Hits Enter - User then Select What type of ECN From is Needed/Assigned. From there is where my issue start
    Problem - I would like Access to Check the Complete Table to see if the Unique ECN Number is Present -
    ----- If Yes - THEN Open the Record to Edit
    ------If NO - THEN Create a New Record for the ECN
    I have tried:
    Private Sub Form_Load()
    Me.ECN = [Forms]![4Completion]![ECN]
    Me.Type = [Forms]![4Completion]![Type]
    Dim StrCrit As String
    Dim db As Database
    Dim rst As Recordset
    Set db = CurrentDb
    Set rst = db.OpenRecordset("Completion")
    rst.FindFirst (StrCrit)
    If rst.NoMatch Then
    rst!ECN = Me.ECN
    End If

  2. #2
    kd2017 is online now Well, I tried at least.
    Windows 10 Access 2016
    Join Date
    Jul 2017
    You didn't set your StrCrit. I would approach it more like this (I'm assuming that the ECN field is a numeric data type) :

    On Error GoTo ErrHandler
        Me.ECN = [Forms]![4Completion]![ECN]
        Me.Type = [Forms]![4Completion]![Type]
        'Dim StrCrit As String
        Dim db As DAO.Database
        Dim rst As DAO.Recordset
        Set db = CurrentDb
        Set rst = db.OpenRecordset("SELECT * FROM Completion WHERE ECN=" & Me.ECN)
        If rst.BOF And rst.EOF Then
            'no existing record was found
            rst!ECN = Me.ECN
            'an existing record was found
        End If
        '----- work with your rst here
        Set rst = Nothing
        Set db = Nothing
        Exit Sub
        MsgBox Err.Description, , Err.Number
        Resume ExitHandler

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Replies: 4
    Last Post: 09-24-2017, 09:13 PM
  2. Create a field, if it doesn't already exist
    By jeffatwork in forum Access
    Replies: 3
    Last Post: 03-02-2016, 08:05 PM
  3. record doesn't exist
    By slimjen in forum Forms
    Replies: 7
    Last Post: 08-13-2014, 11:07 AM
  4. Replies: 4
    Last Post: 12-14-2012, 06:33 PM
  5. VBA to create PDF and folder if doesn't exist!
    By crxftw in forum Programming
    Replies: 2
    Last Post: 08-08-2011, 08:53 AM

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
Other Forums: Microsoft Office Forums - Senior Forums