Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Private Sub prtndt_Click() On Error GoTo Err_prtndt_Click Dim qd As Long qd = DCount("*", "qryLinkedDocuments", "det_id=" & Me!ID) If qd > 0 Then strfile = DLookup("ImagePath", "qrylinkeddocuments", "det_id=" & Me!ID) ShellExecute Me.hwnd, "open", strfile, Chr$(0), strPath, 3 Else MsgBox "There are no NDTs to print.", vbOKOnly End If Exit_prtndt_Click: Exit Sub Err_prtndt_Click: MsgBox Err.Description Resume Exit_prtndt_Click End Sub
|Adding/Copying a field from one table to another (with properties)||11||41|
|append correct value from linked sharepoint list field column||4||40|
|Ms Access locate folder either this or that||2||29|
|Format as currecy for just the one current record||2||21|