How to add bulk Item from combobox items into continues form instead of selecting one by one (1 Viewer)

[Kamayo Ako]

I have i combox which row source : SELECT tblMpf.MpfID, tblMpf.Particulars FROM tblMpf ORDER BY tblMpf.MpfID;

- Is it possible that when i select one item the following all items in the list will add to the record automatically ( 1 - 20 )


Thank you so in advance for the support.


Kamayo Ako

 

[arnelgp]

add to the record automatically

then you don't need a combobox and use a command button instead to add all records from
the list.

 

[MajP]

@arnelgp posted before me but I was going to say the same thing. Does not seem very intuitive. I would think you have a listbox and a button (add all records). However, the code would be the same either way.
Untested

Public Sub Test()
  Dim cmbo As Access.ComboBox
  Dim i As Integer
  Dim strSql As String
  Set cmbo = Me.cmboQuery
  For i = 0 To cmbo.ListCount - 1
    strSql = "Insert into tblA (fld1,fld2) values (" & cmbo.column(i, 0) & ", " & cmbo.column(i, 1) & ")"
    CurrentDb.Execute strSql
  Next i
End Sub

 

[MajP]

However that combo list is probably from a table somewhere. So you could more easily do a "Select Into" query.

 

[Kamayo Ako]

then you don't need a combobox and use a command button instead to add all records from
the list.

That;s

then you don't need a combobox and use a command button instead to add all records from
the list.

That makes sense sir.

 

[Kamayo Ako]

@arnelgp posted before me but I was going to say the same thing. Does not seem very intuitive. I would think you have a listbox and a button (add all records). However, the code would be the same either way.
Untested

Public Sub Test()
  Dim cmbo As Access.ComboBox
  Dim i As Integer
  Dim strSql As String
  Set cmbo = Me.cmboQuery
  For i = 0 To cmbo.ListCount - 1
    strSql = "Insert into tblA (fld1,fld2) values (" & cmbo.column(i, 0) & ", " & cmbo.column(i, 1) & ")"
    CurrentDb.Execute strSql
  Next i
End Sub

Thank you so much sir. I will try this sir.

 

[Kamayo Ako]

then you don't need a combobox and use a command button instead to add all records from
the list.

I place this transaction in subform

Link Master Fields: IDD
Link Child Fields : IDD