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!
Private Sub Amount_AfterUpdate() If Commission = True Then Comm = Me.Amount * Me.Parent.Percent Else Comm = 0 End If Me.Requery 'Calculate the Subtotals 'Calculate Premium strWhere = "(TransType <> 'PAY') And [Commission] = True" Me.Parent![Prem] = DSum("Amount", "InvoiceDataQ", strWhere) 'to update subtotals Me.Parent.Recalc 'I replaced the sbove Me.Recalc with the Code Below. I dont understand why the Dim BM was Remmed . I tried it both ways ' Dim BM as Variant Dim rst as Recordset set rst = Me.RecordsetClone If rst.RecordCount >0 then Me.Recalc Me.Bookmark = BM Me.(next Control).SetFocus Else Me.Recalc Me.(next Control).SetFocus End If End Sub
|How to have several copies of the same forms open simultaneously||9||40|
|Launch Outlook minimized||6||29|
|Display Excel gridlines when called from Access||7||15|
|Installing the 2016 Access runtime with office home and business||6||14|