Another problem...

[anonymous]

[Originally posted by Edward Ropple]

Well, I have a public 3-dimension array that's of a custom type. However, when anything tries to access it, VB says "Invalid Qualifier." What am I doing wrong, and how can I fix it?

Also, I can't view the VB help files because I don't have the MSDN discs, so please don't tell me to refer to them.

[anonymous]

[Originally posted by FreeVBCode.com]

Can you post theÿ Type declaration and the code where you get the error?

[anonymous]

[Originally posted by Edward Ropple]

I get it on all the lines referring to my array, but here they are. I bracketed the part that VB starts whining about and highlights too.
Here it is:

Type Playertype
ÿ ÿ avg As Single
ÿ ÿ single As Integer
ÿ ÿ double As Integer
ÿ ÿ triple As Integer
ÿ ÿ name As String
ÿ ÿ speed As Integer
ÿ ÿ power As Integer
ÿ ÿ defense As Integer
ÿ ÿ bat As Integer
ÿ ÿ eye As Integer
ÿ ÿ arm As Integer
ÿ ÿ accuracy As Integer
ÿ ÿ pitchspeed As Integer
ÿ ÿ stamina As Integer
ÿ ÿ hits As Integer
ÿ ÿ atbats As Integer
ÿ ÿ steal As Integer
ÿ ÿ stealattempts As Integer
ÿ ÿ homerun As Integer
ÿ ÿ plays As Integer
ÿ ÿ errors As Integer
ÿ ÿ misses As Integer
ÿ ÿ hand As Byte
ÿ ÿ pos As Byte
End Type
Public LeaguePlayers(2, 14, 25) As Playertype


Private Sub Option15_Click()
playeredited = 1ÿ 'this line goes okay
Frame2.Enabled = Falseÿ 'this line goes ok
txtPlayerName.Text = [LeaguePlayers].name(1, teamedited, playeredited)ÿ 'error
hsbSpeed.Value = LeaguePlayers.speed(1, teamedited, playeredited)
hsbDefense.Value = LeaguePlayers.defense(1, teamedited, playeredited)
hsbPower.Value = LeaguePlayers.power(1, teamedited, playeredited)
hsbBat.Value = LeaguePlayers.bat(1, teamedited, playeredited)
hsbEye.Value = LeaguePlayers.eye(1, teamedited, playeredited)
hsbArm.Value = LeaguePlayers.arm(1, teamedited, playeredited)
vsbAccuracy.Value = LeaguePlayers.accuracy(1, teamedited, playeredited)
vsbPitchSpeed.Value = LeaguePlayers.pitchspeed(1, teamedited, playeredited)
vsbStamina.Value = LeaguePlayers.pitchspeed(1, teamedited, playeredited)
If LeaguePlayers.hand(1, teamedited, playeredited) = 0 Then righthanded.Value = True
If LeaguePlayers.hand(1, teamedited, playeredited) = 1 Then lefthanded.Value = True
Select Case LeaguePlayers.pos
ÿ ÿ Case 2
ÿ ÿ optC.Value = True
ÿ ÿ Case 3
ÿ ÿ opt1B.Value = True
ÿ ÿ Case 4
ÿ ÿ opt2B.Value = True
ÿ ÿ Case 5
ÿ ÿ opt3B.Value = True
ÿ ÿ Case 6
ÿ ÿ optSS.Value = True
ÿ ÿ Case 7
ÿ ÿ optLF.Value = True
ÿ ÿ Case 8
ÿ ÿ optCF.Value = True
ÿ ÿ Case 9
ÿ ÿ optRF.Value = True
ÿ ÿ Case 10
ÿ ÿ optDH.Value = True
ÿ ÿ Case 11
ÿ ÿ optSP.Value = True
ÿ ÿ Case 12
ÿ ÿ optRP.Value = True
ÿ ÿ Case 13
ÿ ÿ optCP.Value = True
End Select
End Sub


Hope that helps - and yes, I know I should have renamed that Option15, but I'm lazy and this isn't going anywhere except to me. Thanks for the help!

Ed

[anonymous]

[Originally posted by FreeVBCode.com]

All of this is off the top of my head, I haven't time to test or look up in the documentation.ÿ So try different combinations of the below suggestions, and you will probably solve your problem.

I don't think you should be bracketing LeaguePlayers.ÿ Also, I think the syntax for referencing arrays of UDTS is LeaguePlayers(1, teamedited, playeredited).bat.ÿ Finally, I don't think you can use reserved words such as single and double as variable names in UDTs.