+ Reply to Thread
Results 1 to 3 of 3

Runtime Error 380 – Could not set the list property. Invalid property value

  1. #1
    Registered User
    Join Date
    05-04-2005
    Location
    Papamoa, New Zealand
    MS-Off Ver
    Office 365
    Posts
    56

    Runtime Error 380 – Could not set the list property. Invalid property value

    Well have come across another problem when using the listbox.

    I am using a userform to edit data in a database. The listbox gives me all records that have the same ID and populates the textboxes with data stored when each entry in the listbox is selected.

    Have extended the size of my database and now I get the following error message

    “ Runtime Error 380 – Could not set the list property. Invalid property value.”

    Is there a restriction on the number of columns that can be used when doing it this way?


    Private Sub UserForm1_Initialize()

    ListBox1.ColumnCount = 18

    End Sub





    EXTRACT from macro in Userform

    Loc = TextBox1.Value
    ListBox1.Clear

    With Worksheets("Dbase")

    Set found = .Cells.Find(What:=Loc)

    If Not found Is Nothing Then
    Loc = found.Address
    Do
    ListBox1.AddItem .Cells(found.Row, 4)
    ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(found.Row, 2)
    ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(found.Row, 3)
    ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(found.Row, 5)
    ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(found.Row, 6)
    ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(found.Row, 7)
    ListBox1.List(ListBox1.ListCount - 1, 6) = .Cells(found.Row, 8)
    ListBox1.List(ListBox1.ListCount - 1, 7) = .Cells(found.Row, 9)
    ListBox1.List(ListBox1.ListCount - 1, 8) = .Cells(found.Row, 10)
    ListBox1.List(ListBox1.ListCount - 1, 9) = .Cells(found.Row, 11)
    ListBox1.List(ListBox1.ListCount - 1, 10) = .Cells(found.Row, 12) “Debug error message here”
    ListBox1.List(ListBox1.ListCount - 1, 11) = .Cells(found.Row, 13)
    ListBox1.List(ListBox1.ListCount - 1, 12) = .Cells(found.Row, 14)
    ListBox1.List(ListBox1.ListCount - 1, 13) = .Cells(found.Row, 15)
    ListBox1.List(ListBox1.ListCount - 1, 14) = .Cells(found.Row, 16)
    ListBox1.List(ListBox1.ListCount - 1, 15) = .Cells(found.Row, 17)

    Set found = .Cells.FindNext(found)

    Loop While found.Address <> Loc
    End If
    End With

    Can't understand. Look forward to hearing from you.

    Cheers,
    Bernz

  2. #2
    Tom Ogilvy
    Guest

    Re: Runtime Error 380 - Could not set the list property. Invalid property value

    From the help on ColumnCount:

    Setting ColumnCount to 0 displays zero columns, and setting it to -1
    displays all the available columns. For an unbound data source, there is a
    10-column limit (0 to 9).

    You have an unbound data source.



    --

    Regards,

    Tom Ogilvy



    "BernzG" <[email protected]> wrote in
    message news:[email protected]...
    >
    > Well have come across another problem when using the listbox.
    >
    > I am using a userform to edit data in a database. The listbox gives me
    > all records that have the same ID and populates the textboxes with data
    > stored when each entry in the listbox is selected.
    >
    > Have extended the size of my database and now I get the following error
    > message
    >
    > " Runtime Error 380 - Could not set the list property. Invalid property
    > value."
    >
    > Is there a restriction on the number of columns that can be used when
    > doing it this way?
    >
    >
    > Private Sub UserForm1_Initialize()
    >
    > ListBox1.ColumnCount = 18
    >
    > End Sub
    >
    >
    >
    >
    >
    > EXTRACT from macro in Userform
    >
    > Loc = TextBox1.Value
    > ListBox1.Clear
    >
    > With Worksheets("Dbase")
    >
    > Set found = .Cells.Find(What:=Loc)
    >
    > If Not found Is Nothing Then
    > Loc = found.Address
    > Do
    > ListBox1.AddItem .Cells(found.Row, 4)
    > ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(found.Row, 2)
    > ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(found.Row, 3)
    > ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(found.Row, 5)
    > ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(found.Row, 6)
    > ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(found.Row, 7)
    > ListBox1.List(ListBox1.ListCount - 1, 6) = .Cells(found.Row, 8)
    > ListBox1.List(ListBox1.ListCount - 1, 7) = .Cells(found.Row, 9)
    > ListBox1.List(ListBox1.ListCount - 1, 8) = .Cells(found.Row, 10)
    > ListBox1.List(ListBox1.ListCount - 1, 9) = .Cells(found.Row, 11)
    > ListBox1.List(ListBox1.ListCount - 1, 10) = .Cells(found.Row, 12)
    > "Debug error message here"
    > ListBox1.List(ListBox1.ListCount - 1, 11) = .Cells(found.Row, 13)
    > ListBox1.List(ListBox1.ListCount - 1, 12) = .Cells(found.Row, 14)
    > ListBox1.List(ListBox1.ListCount - 1, 13) = .Cells(found.Row, 15)
    > ListBox1.List(ListBox1.ListCount - 1, 14) = .Cells(found.Row, 16)
    > ListBox1.List(ListBox1.ListCount - 1, 15) = .Cells(found.Row, 17)
    >
    > Set found = .Cells.FindNext(found)
    >
    > Loop While found.Address <> Loc
    > End If
    > End With
    >
    > Can't understand. Look forward to hearing from you.
    >
    > Cheers,
    > Bernz
    >
    >
    > --
    > BernzG
    > ------------------------------------------------------------------------
    > BernzG's Profile:

    http://www.excelforum.com/member.php...o&userid=22949
    > View this thread: http://www.excelforum.com/showthread...hreadid=397097
    >




  3. #3
    Registered User
    Join Date
    05-04-2005
    Location
    Papamoa, New Zealand
    MS-Off Ver
    Office 365
    Posts
    56

    Runtime Error 380 – Could not set the list property. Invalid property value

    Hi Tom,

    Thanks for your response. Checked out help, as you suggested. Had been doing so before but had not looked at ColumnCount as being the problem.

    Looks like I am therefore limited to 10 ( 0-9 ) columns and I will have to think of another way of getting around this problem. Tried the -1 option but continued to reject with the same error message.

    Thanks anyway, back to the drawing board.

    Cheers,
    Bernz

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1