Public Function fHandleFile(stFile As String, lShowHow As Long, Optional doprint As Boolean = False)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String, stoperation As String
    stoperation = vbNullString
    If doprint Then stoperation = "print"
    'First try ShellExecute
    lRet = apiShellExecute(hWndAccessApp,

FileName = CurrentProject.Path & "\Request_Budget_Expenditure\Request_Budget_Expenditure_run.bat"

Option Explicit

'Start the shelled application:
if CreateProcessA(lpApplicationName:=0&, _
						lpCommandLine:=strCommand, _
						lpProcessAttributes:=0&,

Option Compare Database
Option Explicit

Enum RdProcess
    tableout
    tablein
    tagin
    tagout

    DoCmd.OpenReport  report_name, acPreview, , , acHidden
    DoCmd.OutputTo acOutputReport, report_name, acFormatPDF,  filename  , True
    DoCmd.Close acReport, report_name, acSaveNo

Private Sub Detail_Paint()
    If Me.IEC Then
        Me.Gage.ForeColor = RGB(237, 28, 36)
        Me.Detail.BackColor = RGB(0, 250, 255)
    Else

Private Function filterList()
   'your filter   
End Function

Private Function clear_filterList()

    Dim FSO As Object
    Set FSO = CreateObject("scripting.filesystemobject")
    FSO.MoveFile "c:\rt\rfidlogs\*.out", "c:\rt\rfiderrors\"

    Dim fs As New FileSystemObject
    fs.MoveFile "c:\rt\rfidlogs\*.out", "c:\rt\rfiderrors\&

Me.List0.AddItem """I am a coder;The best one !"""

Dim varFile As String
Dim varFile2 As String
Dim retval
On Error Resume Next ' prevent error message from Shell
If Right(Me.JobPlanFolder, 5) = "\.pdf"

<button id="MybuttonID" label="My Label" screentip="My Screen Tip" onAction="MyOnActionB

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true">
</ribbon>
</customUI>

Option Compare Database

Public gobjRibbon As IRibbonUI
Dim comboLabels() as string

' Callback Count of items and fills in items into arrays
Sub RibbonCBGetItemCount(control As IRibbonControl, ByRef count)

    Dim i