Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now
Private Sub Text1_AfterUpdate() Dim vSQL Select Case ogFind Case Is = 0 vSQL = "SELECT * FROM table1;" Case Is = 1 vSQL = "SELECT * FROM table1 where ID = " & text1 & ";" Case Is = 2 vSQL = "SELECT * FROM table1 WHERE Name1 LIKE " & Chr(34) & "*" & Me.text1 & "*" & Chr(34) End Select Me.RecordSource = vSQL End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|How to Hide some Boxes on a Form and their Labels based on some Condition in another Control?||5||69|
|ODBC failure when running MSACCESS query a second time.||5||58|
|Altering a forms controls text properties to a non-Latin language in Access 2010||13||34|
|ACCESS / VBA - Count of Rows in Table||4||47|
Join the community of 500,000 technology professionals and ask your questions.