Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.
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
Join the community of 500,000 technology professionals and ask your questions.