Multi-select records in Listbox then copy to subform

[qwerty70]

Dear All,

I have a listbox that when I double-click the selected record it copies the information and paste it to my subform. This works fine as per my code below:

Private Sub List2_DblClick(Cancel As Integer)

    If (mbolIsDirty) Then
        If (MsgBox("Do you want to save the Document that you have selected?", vbQuestion + vbYesNo, "Document Number!") = vbNo) Then
         Me.Undo
         Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!DocNum.Locked = True
            ElseIf vbYes Then
         Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!DocNum = List2.Value 'saves the data in DocNum field
         Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!Description = List2.Column(0) 'saves the data in Description field
         Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!RevNum = List2.Column(1) 'saves the data in RevNum field
         Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!RevDate = List2.Column(2) 'saves the data in RevDate field
         Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!Status = List2.Column(3) 'saves the data in Status field
         Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!ObjectClass = List2.Column(4) 'saves the data in ObjectClass field
                
         Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!DocNum.Locked = True
                
          End If
    End If

    DoCmd.Close acForm, Me.Name

End Sub

How about if I want to select more than 1 record from my listbox, double-click and saved them in my subform?

Thank you very much for any help.

regards,

qwerty70

 

[Remou]

You need a multiselect list box and the SelectedItems property.

[tt]For each itm In Me.List2.SelectedItems
Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!Description = List2.Column(0,itm)[/tt]

Or there abouts.

 

[qwerty70]

Remou, thanks for your prompt reply. However, I got an error which says "Compile error: Method or data member not found". The error highlights the ".SelectedItems".

    Dim itm As Variant

    If (mbolIsDirty) Then
        If (MsgBox("Do you want to save the Document that you have selected?", vbQuestion + vbYesNo, "Document Number!") = vbNo) Then
                Me.Undo
                Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!DocNum.Locked = True
            ElseIf vbYes Then
                For Each itm In Me.List2.SelectedItems
                Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!DocNum = List2.Value
                Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!Description = List2.Column(0)
                Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!RevNum = List2.Column(1)
                Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!RevDate = List2.Column(2)
                Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!Status = List2.Column(3)
                Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!ObjectClass = List2.Column(4)

                Forms!frmTransmittal!subContractor!subDocTrans!subTransDetails!DocNum.Locked = True
                Next itm
            End If
    End If

    DoCmd.Close acForm, Me.Name

Thanks,

qwerty70

 

[Remou]

Oops, I mean ItemsSelected, not SelectedItems.