Dim fill_items As New ADODB.Recordset
Dim cmd_fill_items As New ADODB.Command
Dim i As Integer
cmd_fill_items.CommandText = "select item_code from stores"
cmd_fill_items.ActiveConnection = form_login.main_con
Set fill_items = cmd_fill_items.Execute
With text_item
.RowSource = fill_items
.ListField = "item_code"
.BoundColumn = "item_code"
(The text_item is a dbcombo object)
In the Command:
.Rowsource=fill_items
I have an error Type Missmatch
How can i bind the dbcombo text_item with the recorset fill_items
Could you help me please?
Best Regards
Dim cmd_fill_items As New ADODB.Command
Dim i As Integer
cmd_fill_items.CommandText = "select item_code from stores"
cmd_fill_items.ActiveConnection = form_login.main_con
Set fill_items = cmd_fill_items.Execute
With text_item
.RowSource = fill_items
.ListField = "item_code"
.BoundColumn = "item_code"
(The text_item is a dbcombo object)
In the Command:
.Rowsource=fill_items
I have an error Type Missmatch
How can i bind the dbcombo text_item with the recorset fill_items
Could you help me please?
Best Regards