Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
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.
Join the community of 500,000 technology professionals and ask your questions.