Need to end If

[klynch0803]

Hey another rock in the road dangit..

I need to end my code after txtsearch2.setfocus so I can enter another ID and I'm at a stump...

'<___________START ENTRY FOR GUEST OF MEMBER IS YES_________>
    
    If Response = vbYes Then    ' User chose Yes.
     txtsearch2.Visible = True
     txtsearch2.SetFocus
    
'        GoToControl (txtsearch2_Change)

         
'Set db = CurrentDb()
'Set rst = db.OpenRecordset("tdatMemberSignIn", dbOpenDynaset)

'    With rst
'        .AddNew
'        !SignInMemberID = txtSearch.Value
'        !GuestOfMember = txtsearch2.Value
'        !AllowedEntry = True
'        .Update
'   End With

'    Set db = Nothing: Set rst = Nothing


        
'        txtSearch = ""
            
            
'            MsgBox "Guest True"    ' Perform some action.
        Else    ' User chose No.
  
    
    '     <-----Start Entry For Not Guest Only------------>
    
            'MsgBox "Not a Guest of Member!"    ' Perform some action.

Set db = CurrentDb()
Set rst = db.OpenRecordset("tdatMemberSignIn", dbOpenDynaset)

    With rst
        .AddNew
        !SignInMemberID = txtSearch.Value
        !AllowedEntry = False
        .Update
    End With

    Set db = Nothing: Set rst = Nothing


        txtSearch = ""
        
    End If

            txtSearch.SetFocus
    End If

 

[klynch0803]

OK Now I feel silly..

THE ANSWER IS "End Sub"