Code:
Option Compare Database
Option Explicit
Private Sub cmdProjShortTitle_AfterUpdate()
End Sub
'[in green box] cmdProjShortTitle_AfterUpdate
Private Sub cmdProjShortTitle_AfterUpdate()
On Error GoTo cmdProjShortTitle_AfterUpdate_Err
DoCmd.Requery "qryeditsubform"
cmdProjShortTitle_AfterUpdate_Exit:
Exit Sub
cmdProjShortTitle_AfterUpdate_Err:
MsgBox Error$
Resume cmdProjShortTitle_AfterUpdate_Exit
End Sub
'[in green box] AddARecord_Click
Private Sub AddARecord_Click()
On Error GoTo AddARecord_Click_Err
On Error Resume Next
DoCmd.GoToRecord , "", acNewRec
If (MacroError <> 0) Then
Beep
MsgBox MacroError.Description, vbOKOnly, ""
End If
AddARecord_Click_Exit:
Exit Sub
AddARecord_Click_Err:
MsgBox Error$
Resume AddARecord_Click_Exit
End Sub
'[in green box] cmdClose_Click
Private Sub cmdClose_Click()
On Error GoTo cmdClose_Click_Err
DoCmd.Close , ""
cmdClose_Click_Exit:
Exit Sub
cmdClose_Click_Err:
MsgBox Error$
Resume cmdClose_Click_Exit
End Sub