Private Sub Account_No_Click()
Dim strLinkCriteria
Dim objAccess As Access.Application
Set objAccess = New Access.Application
objAccess.Visible = True
objAccess.OpenCurrentDatabase ("C:\Users\Desktop\db2")
strLinkCriteria = "[Account No]= & Chr(39) & Forms![Form2]!txtAccountNum"
objAccess.DoCmd.OpenForm "db2", acNormal, wherecondition = strLinkCriteria
End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”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.
Our community of experts have been thoroughly vetted for their expertise and industry experience.