Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
DoCmd.OpenReport "New Supplier Debit Summary", acViewPreview, WhereCondition:=strSQL, OpenArgs:=SubmittedToAccounting
Dim SubmittedToAccounting As String If Me.OpenArgs > "" Then SubmittedToAccounting = Me.OpenArgs End If If SubmittedToAccounting = "1" Then Dim Rs As DAO.Recordset Set Rs = Me.Recordset Dim DateNow As String DateNow = Format(Now(), "mm/dd/yyyy") If Not Rs.EOF And Not Rs.BOF Then Do Until Rs.EOF For N = 0 To Rs.Fields.Count - 1 Dim myMDR As String myMDR = (Rs!MDR) If myMDR > "" Then DoCmd.RunSQL "Update [Cost of Poor Quality Table] Set [SentToAccounting]=#" & DateNow & "# where [DMR#] = " & myMDR & "" End If Next Rs.MoveNext Loop Rs.Close End If Set Rs = Nothing End If
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.