troubleshooting Question

Access 2016 VB code

Avatar of Jegajothy vythilingam
Jegajothy vythilingamFlag for United States of America asked on
Microsoft OfficeMicrosoft AccessVisual Basic ClassicVB ScriptSQL
9 Comments1 Solution273 ViewsLast Modified:
My OS is win 10 pro 64 bit and I have Office 365 and Access 2016 installed on my desktop.  I created a small password creator, which works very well.  But I am trying to implement a search function, and this does not seem to work.  I copied the code from a 2007 sample app.  
Basically,  I would open the Form: frmSearch.  Where there is a field "Select field to Search:", and in the field I would select the field of the table to  search criteria, eg: URL or site.  The field is a combo field with a drop down arrow, to allow me to select the field from the Table : tblMainPasswordTable.  I normally select the field URL or site.
In the "Search for" field, which is unbound field, I would type the search criteria, eg; Office.
And then select the option box " Any part of field" , and then hit the View Results button.
This would open the Form, frmPwd to display the selected criteria and display the results from the table : tblMainPasswordTable.  

But the code is not working, it does not display the correct record for the search criteria.  and at times it bombs at the line : Open Args
Attached is the visual basic source code of the app, and hope the Experts could please let me know where I goofed, as my experience in VB is only at the 2007 level. Thank u and Regards.
Search-code.txt
ASKER CERTIFIED SOLUTION
Hamed Nasr
Retired IT Professional

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 9 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 9 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros