Problem With Button On Access 2019 Form

Question

I create a form.

I add a

I add a button.

I right click on button and select Properties

I click on the dropdown next to On Click and select [Event Procedure]

   Click on the three dots and a Sub is created with the name of the button

I add code to the sub

Save the form

Open the form

Click on the button

Get an error message:

How do I fix this?

Answer 1

Tom -

Was my reply deleted for a specific reason?

Answer 2

Your code works fine for me. Copy it to a new database. Not the same problem, right?

So there is something about the current db that you haven't told us. Does the code compile? Do you have missing references?

Answer 3

Have you tried performing an Office Repair?

Answer 4

Private Sub Command0_Click()

Dim nLocation As Integer 

Dim i As Integer 

Dim strNameOfItem As String 

Dim strValueOfItem As String 

Dim vVariant(200, 3) As Variant 

i = 1 

Do Until Environ(i) = "" 

    vVariant(i, 3) = Environ(i) 

    nLocation = i 

    strNameOfItem = Left(vVariant(i, 3), InStr(1, vVariant(i, 3), "=", vbTextCompare) - 1) 

    strValueOfItem = Right(vVariant(i, 3), Len(vVariant(i, 3)) - InStr(1, vVariant(i, 3), "=")) 

    Debug.Print strNameOfItem 

    Debug.Print strValueOfItem 

    Debug.Print i, vVariant(i, 3) 

    i = i + 1 

Loop 

End Sub

Answer 5

Unfortunately, there's not enough information in your post to attempt a suggestion.

Show us (Copy and paste, not screenshot, please) what is in that sub. That's where the information needed should be.