Communication across every corner of your business is essential to increase the velocity of your application delivery and support pipeline. Automate, standardize, and contextualize your communication processes with xMatters.
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.