tesla764
asked on
vb6 run time error '381' Invalid property array index.
When I run the code seen below, I get the Run Time error '381' Invalid property array index. The line the debugger points to is...
.fields("fo_rackType") = Me.cboRackType.ItemData(Me .cboRackTy pe.ListInd ex)
Any ideas on how to fix this error? Thanks in Advance,
Here's the code...
.fields("fo_rackType") = Me.cboRackType.ItemData(Me
Any ideas on how to fix this error? Thanks in Advance,
Here's the code...
Private Sub cmdInsert_Click()
'take the current Zone that you are on, then make the endZone the
'endZone of the new Zone. Have the user pick tHe beginning zone and
'make the end of the old zone the zone prior to the beginning of the
'new zone
Dim lngZoneNumb As Long
Dim rowZoneRow As Integer
Dim strZoneCode As String
Dim strZoneLoc As String
If Not rsZoneConfig.EOF Then
If Not Trim(rsZoneConfig.fields("StartZoneCode")) = Trim(rsZoneConfig.fields("endZoneCode")) Then
'flag that this PickZone Configuration has changed
Me.cboPickZoneName.ItemData(Me.cboPickZoneName.ListIndex) = 1
lngZoneNumb = rsZoneConfig.fields("ZoneNumber") + 1
rowZoneRow = Me.grdZoneConfig.Row
strZoneCode = Trim(rsZoneConfig.fields("endZoneCode"))
strZoneLoc = Trim(rsZoneConfig.fields("endZoneLoc"))
rsZoneConfig.MoveNext
If Not rsZoneConfig.EOF Then
rsZoneConfig.fields("ZoneNumber") = rsZoneConfig.fields("ZoneNumber") + 1
End If
With rsZoneConfig
.AddNew
.fields("ZoneNumber") = lngZoneNumb
.fields("EndZoneCode") = strZoneCode
.fields("EndZoneLoc") = strZoneLoc
.fields("fo_building") = Me.cboBuilding.ItemData(Me.cboBuilding.ListIndex)
[b].fields("fo_rackType") = Me.cboRackType.ItemData(Me.cboRackType.ListIndex)
[/b] .fields("ZoneName") = Trim(Me.cboPickZoneName.Text)
.fields("ZoneQty") = 0
.fields("PacksNeeded") = 0
.fields("UnitsNeeded") = 0
End With
'reset the Zone numbers
rsZoneConfig.MoveNext
Dim icount As Long
icount = lngZoneNumb + 1
While Not rsZoneConfig.EOF
rsZoneConfig.fields("ZoneNumber") = icount
rsZoneConfig.MoveNext
icount = icount + 1
Wend
rsZoneConfig.Sort = "ZoneName, fo_building, fo_rackType, ZoneNumber"
Me.grdZoneConfig.Refresh
Me.grdZoneConfig.Row = rowZoneRow + 1
Call grdZoneConfig_ButtonClick(1)
Else
MsgBox "You can not insert a Zone Here", vbExclamation, "Pick Zone Configuration"
End If
End If
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thanks for the explanation, I didn't know that. I will continue this tomorrow. Will you be available for contact?
There is no guarantee on this forum that any particular expert will be available. However as more comments are applied, the question becomes less visible to the other contributors. So, in effect, you are probably stuck with me anyway.
Not true, I'm here too! But your man Graham has got this covered.
--
Chris
--
Chris
ASKER
Sorry I haven't responded just yet. I will soon. I have been working on other problems that have arisen.
Thanks for you patience.
Thanks for you patience.
ASKER
I'm not sure what you mean by "Code put into code box, but I now see that the line was highlighted in the text." Did you change or provide something?
Your info about the listbox being -1 is helpful.