Identifier Under Cursor is not Recognized

[clynch28]

I'm writing a sub to pull data from a text file. When trying to run a different form that calls the sub, I am getting the "identifier under the cursor is not recognized" as the reason why after a 424 Object Error. Not sure what is wrong.

Sub loadData()


Dim txtFile As String
Dim dataLine As String
Dim row As Integer, column As Integer
Dim arrayForOneLine() As String




txtFile = ThisWorkbook.Path & "/data.txt"
Open txtFile For Input As #1




Do Until EOF(1)
Line Input #1 , dataLine
arrayForOneLine = Split(dataLine, vbTab)
row = row + 1
ReDim apartmentArray(row)

apartment.name = arrayForOneLine(0)
apartment.bed = arrayForOneLine(1)
apartment.bath = arrayForOneLine(2)
apartment.size = arrayForOneLine(3)
apartment.pool = arrayForOneLine(4)
apartment.cable = arrayForOneLine(5)
apartment.pet = arrayForOneLine(6)
apartment.fitness = arrayForOneLine(7)
apartment.size = arrayForOneLine(8)


Loop
Close #1


End Sub

 

[Norie]

Where do you get the error?

 

[clynch28]

At apartment.name = arrayForOneLine(0) and its a public type already defined

 

[Norie]

Where have you declared the variable apartment?

 

[clynch28]

I declared it as a public type at the top of the module.

 

[clynch28]

Any chance you noticed what is wrong with it?

 

[Norie]

So you've created a public type named apartment, something like this perhaps?

'I've used String as the data type for convenience

Public Type apartment
    Name  As String
    bed  As String
    bath  As String
    Size  As String
    pool  As String
    cable  As String
    pet  As String
    fitness  As String
End Type

 

[clynch28]

Yes, except I have bath, bed, and size as integers, pool, cable, pet, and fitness as boolean, and rent as currency. Could that be the issue?

 

[Norie]

If you want to use your user defined type you need to declare variables of that type.

For example, you could have this,

Dim myapartment As apartment

which declares a variable myapartment of type apartment.

Another example, which may be more relevant, is this,

Dim apartments() As apartment

which declares apartments as an array of type apartment.