All pastes #395960 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-03-15 12:39 UTC
rendered paste body
Private Sub Command58_Click()
Forms![frmCustomerInvoice]![Total] = DSum("[ItemPrice]", "qryInvoiceItems", "[InvoiceNo] = Forms![frmCustomerInvoice]![InvoiceNo]")
End Sub

Private Sub ProductId_Change()
Forms![frmCustomerInvoice]![Total] = DSum("[ItemPrice]", "qryInvoiceItems", "[InvoiceNo] = Forms![frmCustomerInvoice]![InvoiceNo]")
End Sub

Private Sub ItemPrice_Exit(Cancel As Integer)
Forms![frmCustomerInvoice]![Total] = DSum("[ItemPrice]", "qryInvoiceItems", "[InvoiceNo] = Forms![frmCustomerInvoice]![InvoiceNo]")
End Sub