Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
Private Sub ClientName_DblClick(Cancel As Integer) Dim strsql As String Dim strwhere As String strsql = "Select * From Assets" strwhere = "1" If Not IsNull(Me.Form.ClientName) Then strwhere = strwhere & " AND LastName= '" & Me.Form.ClientName & "'" End If DoCmd.OpenForm ("searchform2") Me!frmClientsSearchSub2.Form.RecordSource = strsql End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
23 Experts available now in Live!