Ask a new question

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
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.

5 people found this reply helpful

·

Was this reply helpful?

Sorry this didn't help.

Great! Thanks for your feedback.

How satisfied are you with this reply?

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

How satisfied are you with this reply?

Thanks for your feedback.

 
 

Question Info

Last updated June 3, 2024 Views 9,253 Applies to: