The following procedure opens the Receivables Transaction Entry window when using the Open method when the user initially logs into the accounting system.
Private Sub Window_AfterClose() On Error GoTo ErrorHandler If UserInfoGet.UserID = "LESSONUSER2" Then ReceivablesTransactionEntry.Open End If Exit Sub ErrorHandler: MsgBox “Receivables Transaction Entry could not be opened.” End Sub
The following procedure “clicks” the lookup button to display the Shipping Methods lookup window:
Private Sub ShippingMethod_AfterGotFocus() If ShippingMethod.Empty = True Then 'No shipping method specified. Click the lookup button LookupButtons = 1 End If End Sub