Object variable or with block variable not set in 2 places but nowhere else with same code

[bioplz]

In only 2 of 27 buttons this error occurs. In the first instance, it works, but any other selection after causes error.

When selecting Test 28 (or 29) with train 7 (The first Train) They work just fine.
Any train after causes the error on 28 and 29.
Train number is a value carried through multiple forms in a text box.

The issue highlights "frmTest29.txtTrain = Me.txtTrain"
The value of "Me.txtTrain" is correct (7, 8, 9, etc.)
The value of "frmTest28.txtTrain" contains the error.

If anyone can shine some light on this issue it would be greatly appreciated.

 

[Micron]

To troubleshoot, put a break point at the start of the code. Cause the code to run (click the appropriate button in this case) and then step through line by line by pressing F8. After a line executes you can mouse over variables and references to see what values they contain, or you can inquire by typing ? followed by whatever it is you're trying to reference, and then press Return. Sometimes you need a property to check if the object reference is valid or not - Name almost always works, so
?Me.frmTest28.Name will tell you whether or not you've misspelled the form name. NOTE: the code has to be running in break mode for the Me. reference to work, so you'd do that when you reach the Call line. If that check doesn't cause an error, then check the control name you have after that:
?Me.frmTest28.txtTrain.Name

Your code is so simple that I have to think you've misspelled the form or textbox name.

 

[bioplz]

I get the correct value for Me.txtTrain (7, 8, 9, etc.). In the image provided you can see that I get the error for frmTest28.txtTrain. I also thought it was a misspelled word as it almost always is, but this code works for Me.txtTrain = 7 and not for Me.txtTrain = 8 or any subsequent number.

For reference, Train 7 is the first train used for this program, and this exact code is used for 26 tests and only these two fail (test28&test29) even though they pass for Train 7.

 

[Micron]

You need to verify that all the objects are correctly referenced, not just Me.txtTrain.
What about frmTest28, and frmTest28.txtTrain? Did you try the Name thing in the immediate window with each of those?
You can check your userform properties in the immediate window as well (perhaps easier than writing a script to iterate over them). However, it's not clear if the problem is related to the userform reference or to the textbox reference. Those names have to be correctly spelled too.
Only once did I ever see that your error message was solved by adding a With block. Usually it's because a name is misspelled or you try to write code as if you were using a with block but didn't start one.

 

[bioplz]

You need to verify that all the objects are correctly referenced, not just Me.txtTrain.
What about frmTest28, and frmTest28.txtTrain? Did you try the Name thing in the immediate window with each of those?
You can check your userform properties in the immediate window as well (perhaps easier than writing a script to iterate over them). However, it's not clear if the problem is related to the userform reference or to the textbox reference. Those names have to be correctly spelled too.
Only once did I ever see that your error message was solved by adding a With block. Usually it's because a name is misspelled or you try to write code as if you were using a with block but didn't start one.

I have tried that method immediate window .Name and .Value method (which I wasn't familiar with before, so thank you), but the issue remains the same.

In this picture you see that the same code produces a value when "7" is the value for Me.txtTrain
That should mean that the spelling isn't the issue. I'm not sure how to set all of the variables or objects to avoid this.
It's just frustrating that this code works everywhere except these two exceptions (28, 29), but they work with "7".

 

[Micron]

Wild shot in the dark but you could try

UserForm1.Hide
With Me
 frmTest28.txtTrain = .txtTrain
End With

Call ClickTest28

Not sure about the Call line as I can't see what's being called. The only other suggestions I have at present is
a) replace the textbox on either or both forms in case it's corrupted
b) post a copy of the workbook somewhere and I'll take a look.

 

[bioplz]

Wild shot in the dark but you could try

UserForm1.Hide
With Me
 frmTest28.txtTrain = .txtTrain
End With

Call ClickTest28

Not sure about the Call line as I can't see what's being called. The only other suggestions I have at present is
a) replace the textbox on either or both forms in case it's corrupted
b) post a copy of the workbook somewhere and I'll take a look.

GitHub - bioplz/VBA: VBA projects

VBA projects. Contribute to bioplz/VBA development by creating an account on GitHub.

github.com

Username: Admin
Password: Admin

After login click "Issues" to take you to the excel sheets and close the userforms.

There are also file locations that may have to be changed, but you should be able to look at the program without.
Thank you for your help.

 

[Micron]

I click 'add new report', choose 7 from dropdown, click enter. Then it seems that no matter what button I choose from 10 to 36, there is no error. Instructions on how to cause the error might help.

 

[bioplz]

I click 'add new report', choose 7 from dropdown, click enter. Then it seems that no matter what button I choose from 10 to 36, there is no error. Instructions on how to cause the error might help.

Sorry. I thought that was in the above comments. Train 7 does not cause the error. The error is only caused in all subsequent cars (8, 9, 10, etc.) Selecting 28 or 29 in any of those trains will cause the error.

 

[Micron]

OK, was finally able to raise the error. Will take some time to investigate.