RowSource Property Issues

[albertocarrillom]

I am new developing VBA programs. I am creating an Inventory of my job, sometimes the programs work perfectly fine, but some other the program does not work out.

It appears this message:

I am attaching my code, my problem is in the .RowSource = rg.Address:

Private Sub AddButton_Click()
Dim frm As New formStockDetailsNew
frm.Show
Call AddDataToListBox
End Sub
Private Sub ButtonRemove_Click()
Call RemoveRow
End Sub
Private Sub EditButton_Click()
Call EditRow
End Sub
Private Sub ExitButton_Click()
Unload Me
End Sub

Private Sub listboxStock_Click()

End Sub

Private Sub NewButton_Click()
Call NewRow
End Sub
Private Sub RemoveButton_Click()
Call DeleteRow(listboxStock.ListIndex)
End Sub
Private Sub UserForm_Initialize()
Call AddDataToListBox
Me.Width = 800
Me.Height = 340
End Sub
Private Sub AddDataToListBox()
'Get the Range
Dim rg As Range
Set rg = GetRange()

'Link the data to the ListBox
With listboxStock

.RowSource = rg.Address
.ColumnCount = rg.Columns.Count
.ColumnWidths = "100;160;80;60;60;80;90;110"
.ColumnHeads = True
.ListIndex = 0
End With
End Sub
Private Sub EditRow()
Dim frm As New formStockDetailsEdit
frm.CurrentRow = listboxStock.ListIndex
frm.Show vbModal
End Sub
Private Sub NewRow()
Dim frm As New AddQtyForm
frm.CurrentRow = listboxStock.ListIndex
frm.Show vbModal
End Sub
Private Sub RemoveRow()
Dim frm As New RemoveQtyForm
frm.CurrentRow = listboxStock.ListIndex
frm.Show vbModal
End Sub

The help will be really appreciated.

Cheers

 

[Jeffrey Mahoney]

What is this? Set rg = GetRange() How many columns and rows is this returning?

 

[albertocarrillom]

I use it to separate my range code from my userform code

 

[albertocarrillom]

I use it to separate my range code from my userform code

I used rowsource because it automatically links the data on the sheet with the listbox, so if the data changes the data of the listbox will also change

 

[Jeffrey Mahoney]

When you run into memory issues it's most likely due to loading too much into variables and form controls. So, How may rows and columns is that GetRange() returning

 

[albertocarrillom]

I have 8 rows and 9 columns. But I am planning to add more columns for my inventory.

 

[Jeffrey Mahoney]

Ok, so that is not it.

When you click on the Debug button what line gets highlighted in yellow? This line? .RowSource = rg.Address

 

[albertocarrillom]

Yes, I also try it with (external:=True). But it didn't work out.

 

[Jeffrey Mahoney]

When the row is highlighted and you hover over rg.address, what does it show as the address. Let's make sure that the address provided is on the ACTIVESHEET. Meaning, if the address provided comes from a different sheet then the activesheet, you'll get nothing or erroneous results.

I'm running out of options.