ms access cannot find the record "|"referred to in your expression

Hi I do not why am i getting this message " Ms access cnnot find the field " | " referred to in your expression , when i click the save button to save the record. And this happens only when i am about to save the first record, but this does not show up when i add 2 nd record or 3 rd record . it happens only with 1st record.
vihaanAsked:
Who is Participating?
 
Jim Dettman (Microsoft MVP/ EE MVE)Connect With a Mentor President / OwnerCommented:

FWIW I've been using the DoMenuItem since A2 days as well and I've seen this pop-up from time to time as a spurious error.    The vertical pipe ( | ) is a place holder for Access to place a field name.

 Never could figure out a rhyme or reason for it popping up.  I just modified my framework code (part of which is below) to ignore it.

 No Points here please.

JimD.


On Error Resume Next
      DoCmd.DoMenuItem A_FORMBAR, A_FILE, A_SAVERECORD

      ' Check for error but skip 2001 and ones caused by Access bugs.
      If Err > 0 And Err <> 2001 And Err <> 2110 And Err <> 2501 And InStr(Error$(Err), "|") = 0 Then
        gstrMBTitle = "Error while saving record."
        gstrMBMsg = "An error occured while trying to save the record."
        gstrMBMsg = gstrMBMsg & Chr$(13) & Chr$(10)
        gstrMBMsg = gstrMBMsg & Chr$(13) & Chr$(10) & "The error was: "
        gstrMBMsg = gstrMBMsg & Chr$(13) & Chr$(10) & "    " & Err & "  " & Error$(Err)
        gstrMBMsg = gstrMBMsg & Chr$(13) & Chr$(10)
        gstrMBMsg = gstrMBMsg & Chr$(13) & Chr$(10) & "Please check all fields and try again."
        gintMBDef = vbOKOnly + vbCritical
        gintMBBeep = True
        gintMBLog = False
        Call DisplayMsgBox
        StdFormCt = False
      Else
        StdFormCt = True
      End If
      On Error GoTo StdFormCt_UnexpectedError

Open in new window

0
 
DatabaseMX (Joe Anderson - Microsoft Access MVP)Database ArchitectCommented:
Can you show the code associated with the Save operation ?

mx
0
 
vihaanAuthor Commented:
Private Sub button_save_rec_Click()
On Error GoTo Err_button_save_rec_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
   
Exit_button_save_rec_Click:
    Exit Sub

Err_button_save_rec_Click:
    MsgBox Err.Description
    Resume Exit_button_save_rec_Click
   
End Sub
0
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
RickCommented:
It sounds like your csv file wasn't imported correctly to its destination table in Access.
0
 
DatabaseMX (Joe Anderson - Microsoft Access MVP)Database ArchitectCommented:
Lets try this first.  Since the DoMenuItem commands were depricated more that 10 years ago by Microsoft ... use this to Save a record:

Private Sub button_save_rec_Click()
    Me.Dirty = False ' Save the record
End Sub

Also, do you have *any* code in the Form Before Update event ?

mx
0
 
vihaanAuthor Commented:
Private Sub Form_BeforeUpdate(Cancel As Integer)

    'Captures most recent date
    Me.frm_qna_contacts_update_date = Date
   
    'Captures shortname of windows operating system
    Me.frm_qna_contacts_update_user = VBA.Environ("USERNAME")
   
   

End Sub
0
 
DatabaseMX (Joe Anderson - Microsoft Access MVP)Database ArchitectCommented:
Question:

Is
frm_qna_contacts_update_date
the Name of a Field in table, a Control or a Form?

Same for

Me.frm_qna_contacts_update_user

You error is most likely occurring on one of these two lines in the BU event.

mx
0
 
Helen FeddemaCommented:
The modern syntax for saving a record is

DoCmd.RunCommand acCmdSaveRecord

In my experience, getting that error message referring to a field called "|" often indicates table corruption.  If you open the table and see Chinese characters in some fields, that confirms the diagnosis <g>.
0
 
DatabaseMX (Joe Anderson - Microsoft Access MVP)Database ArchitectCommented:
vihaan:
Check for any possible typos in those two names.
Because you do have code in the BU event, when you attempt to Save, errors will occur in the BU event if "something isn't right"

mx
0
 
vihaanAuthor Commented:
Hi, the field names are form field names in BU event .
0
 
DatabaseMX (Joe Anderson - Microsoft Access MVP)Database ArchitectCommented:
Did you check for typos?

Put a breakpoint on the beginning of the BU event ... then single step through (using F8) until the error occurs and see exactly which line it occurs on.

Another syntax you can try:

Private Sub Form_BeforeUpdate(Cancel As Integer)

    'Captures most recent date
    Me("frm_qna_contacts_update_date") = Date
   
    'Captures shortname of windows operating system
    Me("frm_qna_contacts_update_user") = VBA.Environ("USERNAME")

End Sub
0
 
vihaanAuthor Commented:
good
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.