Have got a mess ^&%$(*^

[jim may]

I create a Form based on a query - Added a Command button to allow a New record to be added. It worked fine for a month or two, until I CHANGED something - to where now when I open the Form and Click on the Add New Record button, nothing happens -- At the bottom of the form I can see that the native "add new record" is greyed out. The user wanted the Records to be maintained in Alphabetic order (based on a calculated field combining the Church Name and City) which I did -- Everything works fine except when I need to add a new record. Can I modify the code below to use another query when I need to add new records? HELP!!!

Private Sub Command120_Click()

On Error GoTo Command120_Click_Err

    On Error Resume Next
    DoCmd.GoToRecord , "", acNewRec
    ChurchName.SetFocus
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
    End If

Command120_Click_Exit:
    Exit Sub

Command120_Click_Err:
    MsgBox Error$
    Resume Command120_Click_Exit

End Sub

 

[boblarson]

When you say you changed something, my guess is it isn't code related because the code is fine (although instead of using

On Error Resume Next

I would use this:

If Not Me.NewRecord Then
   DoCmd.RunCommand acCmdRecordsGoToNew
End If

But I digress...

The lack of being able to add a new record means that your underlying record source is probably nonupdatable. So, check that out first.