# tblMemo

Memo:
Private Sub txt1_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt2_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt3_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt4_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt5_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt6_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt7_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt8_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt9_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt10_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt11_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt12_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt13_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt14_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt15_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt16_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt17_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt18_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt19_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt20_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt21_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt22_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt23_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt24_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt25_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt26_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt27_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt28_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt29_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt30_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt31_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt32_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt33_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt34_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt35_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt36_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt37_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt38_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt39_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt40_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt41_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub

Private Sub txt42_Click()

If Me.ActiveControl.Text <> '' Then
    OpenContinuousForm Me.ActiveControl.Name
End If

End Sub


