Code:
Private Sub cmdAll_Click() Dim LSQL As String 'Clear criteria GCriteria = "" 'Display all customers LSQL = "select * from Customers" Form_frmCustomers.RecordSource = LSQL Form_frmCustomers.Caption = "Customers (All customers)" MsgBox "All customers are now displayed." End Sub Private Sub cmdReport_Click()
Leave a comment: