- Increase transparency
- Onboard new hires faster
- Access from mobile/offline
right now, but it is clearing the information that is added to the second list box.
Private Sub btnAddSelected_Click() Dim frm As Form Dim ctl As Control Dim db As DAO.Database Dim rst As DAO.Recordset Dim i As Variant Set frm = Forms("frm_Act_Enter") Set ctl = frm![lstPrevRpts] Set db = CurrentDb Set rst = db.OpenRecordset("Act_SubTo_Date") For Each i In ctl.ItemsSelected rst.AddNew ' Debug.Print i, ctl.Column(4, i) rst("ActID") = ctl.Column(4, i) rst("ActDate") = Nz(Me!ActDate.Value, Date) rst.Update Next i Me.lstPrevRpts.Selected(i) = False rst.Close Set rst = Nothing Refresh End Sub
|Copy data from one subform to another - MS Access||3||28|
|Run Keyboard macro to help with data entry||4||33|
|Are There Any CSV File Field Column Mapper Tools For MS Access CSV File importing||12||27|
|Numbers are exporting as text||5||24|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!