S
SF
Hi
I have a listbox (Me.listSectorID) on form for dataentry purpose. USer can
select one or more on the list and click Save button. I cannot make the
bottun work. Could someone advice!!
dim dbs as dao.database
dim rstSector as dao.database
dim h as interger
set dbs = currentdb
Set rstSector = dbs.OpenRecordset("tmpContactFieldOfWork", dbOpenDynaset)
For H = 0 To Me.listSectorID.ItemsSelected(H) - 1
rstSector.AddNew
Debug.Print Me.listSectorID.ItemData(H) & " - " &
Me.listSectorID.ItemsSelected(H) & " - "
rstSector![So_SectorID] = Me.listSectorID.ItemData(H)
rstSector.Update
rstSector.MoveNext
Next H
Set rstSector = Nothing
DoCmd.OpenTable "tmpContactFieldOfWork", acViewNormal
I have a listbox (Me.listSectorID) on form for dataentry purpose. USer can
select one or more on the list and click Save button. I cannot make the
bottun work. Could someone advice!!
dim dbs as dao.database
dim rstSector as dao.database
dim h as interger
set dbs = currentdb
Set rstSector = dbs.OpenRecordset("tmpContactFieldOfWork", dbOpenDynaset)
For H = 0 To Me.listSectorID.ItemsSelected(H) - 1
rstSector.AddNew
Debug.Print Me.listSectorID.ItemData(H) & " - " &
Me.listSectorID.ItemsSelected(H) & " - "
rstSector![So_SectorID] = Me.listSectorID.ItemData(H)
rstSector.Update
rstSector.MoveNext
Next H
Set rstSector = Nothing
DoCmd.OpenTable "tmpContactFieldOfWork", acViewNormal