Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.
Private Function ViDataX_Process_Request() On Error GoTo ViDataX_Process_Request_Err Dim lRetVal As Long 'Return value Dim lProcId As Long 'Process id Dim lProcHnd As Long 'Process handle Dim FP As Variant 'String file path of '-- Check that the ViDataX executable exists. If ViDataX_File_Exists_W7 = True Then FP = "mc_VIDATAX_VB_APP_W7" ElseIf ViDataX_File_Exists_XP = True Then FP = "mc_VIDATAX_VB_APP_XP" Else MsgBox "Required ViDataX executable has not been installed on this machine." _ & vbCrLf & "Contact your application support.", vbOKOnly, "ViDataX" Exit Function End If '-- Open the "User Wait" form. DoCmd.OpenForm "FZ_ViDataX_UserWait" 'ClassificationRecID True '-- Shell for ViDataX to process the request. lProcId = Shell(FP, vbNormalFocus) If lProcId <> 0 Then '-- Get the handle to the shelled ViDataX process. lProcHnd = OpenProcess(Synchronize, 0, lProcId) If lProcHnd <> 0 Then '-- Cycle until the shelled ViDataX process ends. Do While True lRetVal = WaitForSingleObject(lProcHnd, 30) If lRetVal = WAIT_TIMEOUT Then DoEvents 'Allows form displays from ViDataX Else Exit Do End If Loop '-- Close the process handle. CloseHandle (lProcHnd) End If End If '-- Close the "User Wait" form. DoCmd.Close acForm, "FZ_ViDataX_UserWait" 'ClassificationRecID False Exit Function ViDataX_Process_Request_Err: MsgBox Error$ End Function
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.