home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / E-Diary_202106603192008.psc / ABForm.frm < prev    next >
Text File  |  2008-03-19  |  19KB  |  726 lines
  1. VERSION 5.00
  2. Begin VB.Form ABForm 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   5655
  6.    ClientLeft      =   45
  7.    ClientTop       =   45
  8.    ClientWidth     =   6375
  9.    ControlBox      =   0   'False
  10.    BeginProperty Font 
  11.       Name            =   "Arial"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    LinkTopic       =   "Form1"
  20.    LockControls    =   -1  'True
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    MouseIcon       =   "ABForm.frx":0000
  24.    MousePointer    =   99  'Custom
  25.    Picture         =   "ABForm.frx":030A
  26.    ScaleHeight     =   5655
  27.    ScaleWidth      =   6375
  28.    ShowInTaskbar   =   0   'False
  29.    StartUpPosition =   2  'CenterScreen
  30.    Begin VB.Data Data2 
  31.       Caption         =   "Data"
  32.       Connect         =   "Access"
  33.       DatabaseName    =   ""
  34.       DefaultCursorType=   0  'DefaultCursor
  35.       DefaultType     =   2  'UseODBC
  36.       Exclusive       =   0   'False
  37.       Height          =   345
  38.       Left            =   6000
  39.       Options         =   0
  40.       ReadOnly        =   0   'False
  41.       RecordsetType   =   1  'Dynaset
  42.       RecordSource    =   ""
  43.       Top             =   360
  44.       Visible         =   0   'False
  45.       Width           =   2055
  46.    End
  47.    Begin VB.PictureBox picCancel 
  48.       Appearance      =   0  'Flat
  49.       AutoRedraw      =   -1  'True
  50.       AutoSize        =   -1  'True
  51.       BackColor       =   &H80000005&
  52.       BorderStyle     =   0  'None
  53.       ForeColor       =   &H80000008&
  54.       Height          =   435
  55.       Left            =   3390
  56.       MouseIcon       =   "ABForm.frx":75A68
  57.       MousePointer    =   99  'Custom
  58.       Picture         =   "ABForm.frx":75BBA
  59.       ScaleHeight     =   435
  60.       ScaleWidth      =   1515
  61.       TabIndex        =   17
  62.       Top             =   4920
  63.       Width           =   1515
  64.       Begin VB.Label lblCancel 
  65.          AutoSize        =   -1  'True
  66.          BackStyle       =   0  'Transparent
  67.          Caption         =   "&Cancel"
  68.          Height          =   210
  69.          Left            =   480
  70.          MouseIcon       =   "ABForm.frx":77E6C
  71.          MousePointer    =   99  'Custom
  72.          TabIndex        =   20
  73.          Top             =   80
  74.          Width           =   495
  75.       End
  76.    End
  77.    Begin VB.PictureBox picSave 
  78.       Appearance      =   0  'Flat
  79.       AutoRedraw      =   -1  'True
  80.       AutoSize        =   -1  'True
  81.       BackColor       =   &H80000005&
  82.       BorderStyle     =   0  'None
  83.       ForeColor       =   &H80000008&
  84.       Height          =   435
  85.       Left            =   1470
  86.       MouseIcon       =   "ABForm.frx":77FBE
  87.       MousePointer    =   99  'Custom
  88.       Picture         =   "ABForm.frx":78110
  89.       ScaleHeight     =   435
  90.       ScaleWidth      =   1515
  91.       TabIndex        =   16
  92.       Top             =   4920
  93.       Width           =   1515
  94.       Begin VB.Label lblSave 
  95.          AutoSize        =   -1  'True
  96.          BackStyle       =   0  'Transparent
  97.          Caption         =   "&Save"
  98.          Height          =   210
  99.          Left            =   600
  100.          MouseIcon       =   "ABForm.frx":7A3C2
  101.          MousePointer    =   99  'Custom
  102.          TabIndex        =   19
  103.          Top             =   75
  104.          Width           =   375
  105.       End
  106.    End
  107.    Begin VB.TextBox txtMobile 
  108.       Appearance      =   0  'Flat
  109.       Height          =   375
  110.       Left            =   2280
  111.       MaxLength       =   15
  112.       MousePointer    =   3  'I-Beam
  113.       TabIndex        =   9
  114.       Top             =   2970
  115.       Width           =   2895
  116.    End
  117.    Begin VB.TextBox txtName 
  118.       Appearance      =   0  'Flat
  119.       Height          =   375
  120.       Left            =   2280
  121.       MaxLength       =   50
  122.       MousePointer    =   3  'I-Beam
  123.       TabIndex        =   1
  124.       Tag             =   "Name"
  125.       Top             =   600
  126.       Width           =   2895
  127.    End
  128.    Begin VB.TextBox txtAddress 
  129.       Appearance      =   0  'Flat
  130.       Height          =   855
  131.       Left            =   2280
  132.       MousePointer    =   3  'I-Beam
  133.       MultiLine       =   -1  'True
  134.       ScrollBars      =   2  'Vertical
  135.       TabIndex        =   3
  136.       Top             =   1080
  137.       Width           =   2895
  138.    End
  139.    Begin VB.TextBox txtPhone 
  140.       Appearance      =   0  'Flat
  141.       Height          =   375
  142.       Left            =   2280
  143.       MaxLength       =   10
  144.       MousePointer    =   3  'I-Beam
  145.       TabIndex        =   5
  146.       Top             =   2025
  147.       Width           =   2895
  148.    End
  149.    Begin VB.TextBox txtPager 
  150.       Appearance      =   0  'Flat
  151.       Height          =   375
  152.       Left            =   2280
  153.       MaxLength       =   15
  154.       MousePointer    =   3  'I-Beam
  155.       TabIndex        =   7
  156.       Top             =   2505
  157.       Width           =   2895
  158.    End
  159.    Begin VB.TextBox txtBPhone 
  160.       Appearance      =   0  'Flat
  161.       Height          =   375
  162.       Left            =   2280
  163.       MaxLength       =   10
  164.       MousePointer    =   3  'I-Beam
  165.       TabIndex        =   11
  166.       Top             =   3450
  167.       Width           =   2895
  168.    End
  169.    Begin VB.TextBox txtFax 
  170.       Appearance      =   0  'Flat
  171.       Height          =   375
  172.       Left            =   2280
  173.       MaxLength       =   10
  174.       MousePointer    =   3  'I-Beam
  175.       TabIndex        =   13
  176.       Top             =   3915
  177.       Width           =   2895
  178.    End
  179.    Begin VB.TextBox txtEmail 
  180.       Appearance      =   0  'Flat
  181.       Height          =   375
  182.       Left            =   2280
  183.       MaxLength       =   100
  184.       MousePointer    =   3  'I-Beam
  185.       TabIndex        =   15
  186.       Top             =   4395
  187.       Width           =   2895
  188.    End
  189.    Begin VB.Label lblTitle 
  190.       AutoSize        =   -1  'True
  191.       BackStyle       =   0  'Transparent
  192.       Caption         =   "Title"
  193.       BeginProperty Font 
  194.          Name            =   "Arial"
  195.          Size            =   8.25
  196.          Charset         =   0
  197.          Weight          =   700
  198.          Underline       =   0   'False
  199.          Italic          =   0   'False
  200.          Strikethrough   =   0   'False
  201.       EndProperty
  202.       Height          =   210
  203.       Left            =   240
  204.       TabIndex        =   18
  205.       Top             =   120
  206.       Width           =   360
  207.    End
  208.    Begin VB.Label lblName 
  209.       AutoSize        =   -1  'True
  210.       BackStyle       =   0  'Transparent
  211.       Caption         =   "Name"
  212.       Height          =   210
  213.       Left            =   1590
  214.       TabIndex        =   0
  215.       Top             =   675
  216.       Width           =   405
  217.    End
  218.    Begin VB.Label lblHAdd 
  219.       AutoSize        =   -1  'True
  220.       BackStyle       =   0  'Transparent
  221.       Caption         =   "Home Address"
  222.       Height          =   210
  223.       Left            =   915
  224.       TabIndex        =   2
  225.       Top             =   1110
  226.       Width           =   1080
  227.    End
  228.    Begin VB.Label lblHPhone 
  229.       AutoSize        =   -1  'True
  230.       BackStyle       =   0  'Transparent
  231.       Caption         =   "Home Phone"
  232.       Height          =   210
  233.       Left            =   1095
  234.       TabIndex        =   4
  235.       Top             =   2070
  236.       Width           =   900
  237.    End
  238.    Begin VB.Label lblPager 
  239.       AutoSize        =   -1  'True
  240.       BackStyle       =   0  'Transparent
  241.       Caption         =   "Pager"
  242.       Height          =   210
  243.       Left            =   1575
  244.       TabIndex        =   6
  245.       Top             =   2580
  246.       Width           =   420
  247.    End
  248.    Begin VB.Label lblMobile 
  249.       AutoSize        =   -1  'True
  250.       BackStyle       =   0  'Transparent
  251.       Caption         =   "Mobile"
  252.       Height          =   210
  253.       Left            =   1545
  254.       TabIndex        =   8
  255.       Top             =   3045
  256.       Width           =   450
  257.    End
  258.    Begin VB.Label lblBPhone 
  259.       AutoSize        =   -1  'True
  260.       BackStyle       =   0  'Transparent
  261.       Caption         =   "Business Phone"
  262.       Height          =   210
  263.       Left            =   825
  264.       TabIndex        =   10
  265.       Top             =   3525
  266.       Width           =   1170
  267.    End
  268.    Begin VB.Label lblBFax 
  269.       AutoSize        =   -1  'True
  270.       BackStyle       =   0  'Transparent
  271.       Caption         =   "Business Fax"
  272.       Height          =   210
  273.       Left            =   1005
  274.       TabIndex        =   12
  275.       Top             =   3990
  276.       Width           =   990
  277.    End
  278.    Begin VB.Label lblEmail 
  279.       AutoSize        =   -1  'True
  280.       BackStyle       =   0  'Transparent
  281.       Caption         =   "Email Address"
  282.       Height          =   210
  283.       Left            =   960
  284.       TabIndex        =   14
  285.       Top             =   4470
  286.       Width           =   1035
  287.    End
  288. End
  289. Attribute VB_Name = "ABForm"
  290. Attribute VB_GlobalNameSpace = False
  291. Attribute VB_Creatable = False
  292. Attribute VB_PredeclaredId = True
  293. Attribute VB_Exposed = False
  294. Private Sub Form_Load()
  295.  
  296. On Error Resume Next
  297.  
  298. With Data2
  299.  
  300.     .DatabaseName = App.Path & "\db.mdb"
  301.     .RecordSource = _
  302.         "SELECT * FROM Address WHERE Address.UserName='" & _
  303.         Main.Tag & "' "
  304.     .Refresh
  305.  
  306. End With
  307.  
  308. If AddressBook.Tag = "Add" Then
  309.     
  310.     lblTitle.Caption = "Add Person"
  311.  
  312. ElseIf AddressBook.Tag = "Edit" Then
  313.     
  314.     lblTitle.Caption = "Edit Person"
  315.     
  316.     With Data2.Recordset
  317.         
  318.         .MoveFirst
  319.         .FindFirst "Name='" & AddressBook.Data1.Recordset.Fields("name") & "'"
  320.  
  321.         txtName.Text = .Fields("Name")
  322.         txtAddress.Text = .Fields("Home Address")
  323.         txtPhone.Text = .Fields("Home Phone")
  324.         txtPager.Text = .Fields("Pager")
  325.         txtMobile.Text = .Fields("Mobile")
  326.         txtBPhone.Text = .Fields("Business Phone")
  327.         txtFax.Text = .Fields("Business Fax")
  328.         txtEmail.Text = .Fields("Email Address")
  329.     
  330.     End With
  331.     
  332. ElseIf AddressBook.Tag = "View" Then
  333.     
  334.     lblTitle.Caption = "View Person"
  335.     Locked_Textbox
  336.  
  337. End If
  338.  
  339. End Sub
  340.  
  341. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  342.  
  343. If (X >= 0 And Y >= 0) And (X <= 4200 And Y <= 460) Then
  344.     If Button = vbLeftButton Then Call DragIt(Me.hwnd)
  345. End If
  346.  
  347. End Sub
  348.  
  349. Private Sub lblCancel_Click()
  350.  
  351. sndPlaySound App.Path & "\sounds\longhorn_question.wav", SND_ASYNC
  352.  
  353. Cancel_Click
  354.  
  355. End Sub
  356.  
  357. Private Sub lblSave_Click()
  358.  
  359. sndPlaySound App.Path & "\sounds\longhorn_question.wav", SND_ASYNC
  360.  
  361. Save_Click
  362.  
  363. End Sub
  364.  
  365. Private Sub picCancel_Click()
  366.  
  367. sndPlaySound App.Path & "\sounds\longhorn_question.wav", SND_ASYNC
  368.  
  369. Cancel_Click
  370.  
  371. End Sub
  372.  
  373. Private Sub picSave_Click()
  374.  
  375. sndPlaySound App.Path & "\sounds\longhorn_question.wav", SND_ASYNC
  376.  
  377. Save_Click
  378.  
  379. End Sub
  380.  
  381. Private Sub txtAddress_GotFocus()
  382.  
  383. SendKeys "{home}+{end}"
  384.  
  385. End Sub
  386.  
  387. Private Sub txtAddress_KeyPress(KeyAscii As Integer)
  388.  
  389. Select Case KeyAscii
  390.  
  391.     Case 97 To 122                      'a-z
  392.         KeyAscii = KeyAscii - 32        'Convert to capital letters
  393.     Case vbKeyReturn
  394.         txtPhone.SetFocus
  395.  
  396. End Select
  397. End Sub
  398.  
  399. Private Sub txtAddress_LostFocus()
  400.  
  401. If txtAddress.Text = Empty Or txtAddress.Text = vbCrLf Then
  402.     txtAddress.Text = "N/A"
  403. End If
  404.  
  405. End Sub
  406.  
  407. Private Sub txtBPhone_GotFocus()
  408.  
  409. SendKeys "{home}+{end}"
  410.  
  411. End Sub
  412.  
  413. Private Sub txtBPhone_KeyPress(KeyAscii As Integer)
  414.  
  415. Select Case KeyAscii
  416.  
  417.     Case 45                             'Hyphen (-)
  418.     Case 48 To 57                       '0-9
  419.     Case vbKeyBack                      'Backspace key
  420.     Case vbKeySpace                     'Spacebar key
  421.     Case vbKeyReturn                    'Enter key
  422.         txtFax.SetFocus               'Set focus to txtEmail
  423.     Case Else
  424.         KeyAscii = 0                    'Display nothing
  425.     
  426. End Select
  427.  
  428. End Sub
  429.  
  430. Private Sub txtBPhone_LostFocus()
  431.  
  432. If txtBPhone.Text = Empty Then
  433.     txtBPhone.Text = "N/A"
  434. End If
  435.  
  436. End Sub
  437.  
  438. Private Sub txtEmail_GotFocus()
  439.  
  440. SendKeys "{home}+{end}"
  441.  
  442. End Sub
  443.  
  444. Private Sub txtEmail_KeyPress(KeyAscii As Integer)
  445.  
  446. If AddressBook.Tag = "View" Then Exit Sub
  447.  
  448. Select Case KeyAscii
  449.     
  450.     Case 97 To 122                      'a-z
  451.         KeyAscii = KeyAscii - 32        'Convert to capital letters
  452.     Case vbKeyReturn
  453.         Save_Click
  454.  
  455. End Select
  456.  
  457. End Sub
  458.  
  459. Private Sub txtEmail_LostFocus()
  460.  
  461. If txtEmail.Text = Empty Then
  462.     txtEmail.Text = "N/A"
  463. End If
  464.  
  465. End Sub
  466.  
  467. Private Sub txtFax_GotFocus()
  468.  
  469. SendKeys "{home}+{end}"
  470.  
  471. End Sub
  472.  
  473. Private Sub txtFax_KeyPress(KeyAscii As Integer)
  474.  
  475. Select Case KeyAscii
  476.  
  477.     Case 45                             'Hyphen (-)
  478.     Case 48 To 57                       '0-9
  479.     Case vbKeyBack                      'Backspace key
  480.     Case vbKeySpace                     'Spacebar key
  481.     Case vbKeyReturn                    'Enter key
  482.         txtEmail.SetFocus               'Set focus to txtEmail
  483.     Case Else
  484.         KeyAscii = 0                    'Display nothing
  485.     
  486. End Select
  487.  
  488. End Sub
  489.  
  490. Private Sub txtFax_LostFocus()
  491.  
  492. If txtFax.Text = Empty Then
  493.     txtFax.Text = "N/A"
  494. End If
  495.  
  496. End Sub
  497.  
  498. Private Sub txtMobile_GotFocus()
  499.  
  500. SendKeys "{home}+{end}"
  501.  
  502. End Sub
  503.  
  504. Private Sub txtMobile_KeyPress(KeyAscii As Integer)
  505.  
  506. Select Case KeyAscii
  507.  
  508.     Case 45                             'Hyphen (-)
  509.     Case 48 To 57                       '0-9
  510.     Case vbKeyBack                      'Backspace key
  511.     Case vbKeySpace                     'Spacebar key
  512.     Case vbKeyReturn                    'Enter key
  513.         txtBPhone.SetFocus              'Set focus to txtBPhone
  514.     Case Else
  515.         KeyAscii = 0                    'Display nothing
  516.     
  517. End Select
  518.  
  519. End Sub
  520.  
  521. Private Sub txtMobile_LostFocus()
  522.  
  523. If txtMobile.Text = Empty Then
  524.     txtMobile.Text = "N/A"
  525. End If
  526.  
  527. End Sub
  528.  
  529. Private Sub txtName_GotFocus()
  530.  
  531. SendKeys "{home}+{end}"
  532.  
  533. End Sub
  534.  
  535. Private Sub txtName_KeyPress(KeyAscii As Integer)
  536.  
  537. Select Case KeyAscii
  538.  
  539.     Case 45                             'Hyphen (-)
  540.     Case 46                             'Period (.)
  541.     Case 65 To 90                       'A-Z
  542.     Case 97 To 122                      'a-z
  543.         KeyAscii = KeyAscii - 32        'Convert to capital letters
  544.     Case vbKeyBack                      'Backspace key
  545.     Case vbKeySpace                     'Spacebar key
  546.     Case vbKeyReturn                    'Enter key
  547.         txtAddress.SetFocus             'Set focus to txtAddress
  548.     Case Else
  549.         KeyAscii = 0                    'Display nothing
  550.     
  551. End Select
  552.  
  553. End Sub
  554.  
  555. Private Sub txtName_LostFocus()
  556.  
  557. txtName.Text = UCase(txtName.Text)
  558.  
  559. End Sub
  560.  
  561. Private Sub txtPager_GotFocus()
  562.  
  563. SendKeys "{home}+{end}"
  564.  
  565. End Sub
  566.  
  567. Private Sub txtPager_KeyPress(KeyAscii As Integer)
  568.  
  569. Select Case KeyAscii
  570.  
  571.     Case 45                             'Hyphen (-)
  572.     Case 48 To 57                       '0-9
  573.     Case vbKeyBack                      'Backspace key
  574.     Case vbKeySpace                     'Spacebar key
  575.     Case vbKeyReturn                    'Enter key
  576.         txtMobile.SetFocus             'Set focus to txtMobile
  577.     Case Else
  578.         KeyAscii = 0                    'Display nothing
  579.     
  580. End Select
  581.  
  582. End Sub
  583.  
  584. Private Sub txtPager_LostFocus()
  585.  
  586. If txtPager.Text = Empty Then
  587.     txtPager.Text = "N/A"
  588. End If
  589.  
  590. End Sub
  591.  
  592. Private Sub txtPhone_GotFocus()
  593.  
  594. SendKeys "{home}+{end}"
  595.  
  596. End Sub
  597.  
  598. Private Sub txtPhone_KeyPress(KeyAscii As Integer)
  599.  
  600. Select Case KeyAscii
  601.  
  602.     Case 45                             'Hyphen (-)
  603.     Case 48 To 57                       '0-9
  604.     Case vbKeyBack                      'Backspace key
  605.     Case vbKeySpace                     'Spacebar key
  606.     Case vbKeyReturn                    'Enter key
  607.         txtPager.SetFocus             'Set focus to txtPager
  608.     Case Else
  609.         KeyAscii = 0                    'Display nothing
  610.     
  611. End Select
  612.  
  613. End Sub
  614.  
  615. Private Sub txtPhone_LostFocus()
  616.  
  617. If txtPhone.Text = Empty Then
  618.     txtPhone.Text = "N/A"
  619. End If
  620.  
  621. End Sub
  622.  
  623. Sub Save_Click()
  624.  
  625. On Error Resume Next
  626.  
  627. If txtName.Text = Empty Then
  628.     Call Display_Error(txtName)
  629.     Exit Sub
  630. End If
  631.  
  632. If txtAddress.Text = Empty Then txtAddress.Text = "N/A"
  633. If txtPhone.Text = Empty Then txtPhone.Text = "N/A"
  634. If txtPager.Text = Empty Then txtPager.Text = "N/A"
  635. If txtMobile.Text = Empty Then txtMobile.Text = "N/A"
  636. If txtBPhone.Text = Empty Then txtBPhone.Text = "N/A"
  637. If txtFax.Text = Empty Then txtFax.Text = "N/A"
  638. If txtEmail.Text = Empty Then txtEmail.Text = "N/A"
  639.  
  640. With Data2.Recordset
  641.  
  642.     If AddressBook.Tag = "Add" Then
  643.         .AddNew
  644.         .Fields("UserName") = Main.Tag
  645.     ElseIf AddressBook.Tag = "Edit" Then
  646.         .Edit
  647.     End If
  648.     
  649.     .Fields("Name") = txtName.Text
  650.     .Fields("Home Address") = txtAddress.Text
  651.     .Fields("Home Phone") = txtPhone.Text
  652.     .Fields("Pager") = txtPager.Text
  653.     .Fields("Mobile") = txtMobile.Text
  654.     .Fields("Business Phone") = txtBPhone.Text
  655.     .Fields("Business Fax") = txtFax.Text
  656.     .Fields("Email Address") = txtEmail.Text
  657.     
  658.     .Update
  659.  
  660. End With
  661.     
  662. With AddressBook
  663.  
  664.     .Data1.Refresh
  665.     
  666.     AddressBook.lblMenu(1).Enabled = True
  667.     AddressBook.lblMenu(2).Enabled = True
  668.     AddressBook.lblMenu(3).Enabled = True
  669.         
  670.  
  671.     With .DBGrid1
  672.  
  673.         .Refresh
  674.         .Columns(0).Width = 2000
  675.         .Columns(1).Width = 4000
  676.         .Columns(2).Width = 1500
  677.         .Columns(3).Width = 1500
  678.  
  679.     End With
  680.  
  681. End With
  682.     
  683. MsgBox "Person has been saved.", , "Message"
  684. Cancel_Click
  685.  
  686. End Sub
  687.  
  688. Sub Display_Error(ctrl As Control)
  689.  
  690. msg = "Please fill-up the following:"
  691. msg = msg & vbCrLf
  692. msg = msg & ctrl.Tag
  693.  
  694. sndPlaySound App.Path & "\sounds\longhorn_question.wav", SND_ASYNC
  695.  
  696. MsgBox msg, , "Message"
  697.  
  698. ctrl.SetFocus
  699.  
  700. End Sub
  701.  
  702. Sub Cancel_Click()
  703.  
  704. If AddressBook.Tag = "View" Then Locked_Textbox
  705. Unload Me
  706.  
  707. End Sub
  708.  
  709. Sub Locked_Textbox()
  710.  
  711. On Error Resume Next
  712.  
  713. With ABForm
  714.     .txtName.Locked = Not .txtName.Locked
  715.     .txtAddress.Locked = Not .txtAddress.Locked
  716.     .txtPhone.Locked = Not .txtPhone.Locked
  717.     .txtPager.Locked = Not .txtPager.Locked
  718.     .txtMobile.Locked = Not .txtMobile.Locked
  719.     .txtBPhone.Locked = Not .txtBPhone.Locked
  720.     .txtFax.Locked = Not .txtFax.Locked
  721.     .txtEmail.Locked = Not .txtEmail.Locked
  722. End With
  723.  
  724. End Sub
  725.  
  726.