We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim rs As Recordset Dim strPieceCriteria As String 'Grab a recordset of the nominals criteria for the present PieceID Set rs = CurrentDb.OpenRecordset("select * from qryCriteriaByPieceID where typenumber = 1 and PieceID = " & Me.PieceID, dbOpenDynaset, dbSeeChanges) 'Empty the string of anything that may be in it strPieceCriteria = "" 'if we've got criteria If rs.RecordCount <> 0 Then Do Until rs.EOF 'lets loop If Len(strPieceCriteria) <> 0 Then 'add a spacer after any existing string strPieceCriteria = strPieceCriteria & " / " End If 'add the number and text part of the criteria to the string strPieceCriteria = strPieceCriteria & Format(rs!CriteriaValue, "#.0") & " " & rs!CriteriaText rs.MoveNext Loop Else strPieceCriteria = "" End If 'kick this out to the Report in a textbox Me.txtNominal = strPieceCriteria rs.Close
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.