# tblMemo

Memo:
Private Sub txt1_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt2_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt3_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt4_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt5_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt6_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt7_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt8_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt9_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt10_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt11_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt12_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt13_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt14_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt15_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt16_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt17_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt18_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt19_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt20_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt21_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt22_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt23_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt24_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt25_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt26_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt27_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt28_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt29_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt30_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt31_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt32_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt33_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt34_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt35_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt36_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt37_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt38_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt39_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt40_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt41_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub

Private Sub txt42_Click()
On Error GoTo ErrorHandler
If Me.ActiveControl.Text <> '' Then
    Call OpenContinuousForm(Me.ActiveControl.Name)
End If
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox 'There has been an error. Please reload form.'
    Resume ExitSub
End Sub


