Compile error: Expected End Sub

I have encountered a compile error:  Expected End Sub; however, I do have an end sub in place.

Private Sub Text20 Click ( )
Sub Combo20_AfterUpdate ( )
    'Find the record that matches the control.
    Me.RecordsetClone.FindFirst "[CourseNumber] = " & Me![Combo33]
    Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

Thank you again everyone for all your help
 

Question Info


Last updated November 9, 2019 Views 2,286 Applies to:
Answer
Answer

You have two Sub statements and only one End Sub.

 

Each Sub and Function statement must eventually be followed by an End Sub statement before the next Sub or Function statement.  I suspect you can just delete the first Sub statement.

1 person was helped by this reply

·

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.