Not Reading information from generated form

Dear Experts

I Have a problem its says frmProducts there are no items in the form when there is

The code I am using to generate the form is

Private Sub CmdSelectProducts_Click()

Dim frmProduct As frmProducts
Set frm = frmProducts

frmProducts.Caption = Screen.ActiveForm.Caption

frmProducts.Show

End Sub

This is the code for transfering the information from frmProducts to frmRemoveItem
 
For x = 1 To frmProducts.lstBill.ListItems.Count
    Set litem = FrmRemoveItem.lstBill.ListItems.Add(, , frmProducts.lstBill.ListItems.Item(x))
    litem.SubItems(1) = frmProducts.lstBill.ListItems.Item(x).SubItems(1) ' col2
    litem.SubItems(2) = frmProducts.lstBill.ListItems.Item(x).SubItems(2) ' col3
    litem.SubItems(3) = frmProducts.lstBill.ListItems.Item(x).SubItems(3) ' col4
    litem.SubItems(4) = frmProducts.lstBill.ListItems.Item(x).SubItems(4) ' col5
Next x

Please Help

Nothern_Lights
Nothern_LightsAsked:
Who is Participating?
 
justchat_1Commented:
the code:
Dim frmProduct As frmProducts
Set frm = frmProducts

should be:
Dim frmProduct As frmProducts
Set frmProduct = new frmProducts
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.