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 Form_Open(Cancel As Integer) Dim db As DAO.Database Dim rst As DAO.Recordset Dim qdf As DAO.QueryDef Dim prm As DAO.Parameter Dim vnotfound As Boolean Set db = CurrentDb Set qdf = db.QueryDefs("z nmdf iitdata review mr and adjust") For Each prm In qdf.Parameters prm.Value = Eval(prm.Name) Next Set rst = qdf.OpenRecordset If Not (rst.BOF And rst.EOF) Then vnotfound = True Else vnotfound = False End If If vnotfound = True Then rst.Close DoCmd.CancelEvent DoCmd.Close acForm, "z supplier qty adjustment" MsgBox "No records found." ElseIf vnotfound = False Then DoCmd.OpenForm "z supplier qty adjustment" DoCmd.Maximize DoCmd.ApplyFilter "z supplier qty adjustment filter" Me.FilterOn = True End If rst.Close Set rst = Nothing Set qdf = Nothing Set db = Nothing Set prm = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Many to Many From without subform||11||80|
|Access 2010 Only Including Numbers After Certain Limit||3||44|
|Update Table via VBA SQL with multiple criteria||2||66|
|Refine Query to only display records with NON-NULL values in BOTH of two expressions||6||22|
Join the community of 500,000 technology professionals and ask your questions.