Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Dim stDocName As String strQD = "" '< clear the variable first If Me.lstPartNChills.ListCount >= 1 Then Dim j With lstPartNChills For j = 1 To .ListCount - 1 strQD = strQD & "(" & .Column(1, j) & ") - " & .Column(2, j) & ", " Next End With strQD = Left(strQD, Len(strQD) - 2) End If stDocName = "rptProcessCard" DoCmd.OpenReport stDocName, acPreview strQD = ""
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.