Treeview Search Routine
Private Sub cmdSearch_Click()
Dim fso As FileSystemObject
Dim target_folder As Folder
Dim target_node As Node
Dim txt As String
'Screen.MousePointer = vbHourgla ...
Read More
Private Sub cmdSearch_Click()
Dim fso As FileSystemObject
Dim target_folder As Folder
Dim target_node As Node
Dim txt As String
'Screen.MousePointer = vbHourgla ...
Read More
'Encode/Decode using FileSystemObject and ADO Stream
Private PathToFile As String
Dim oStream ' objet stream
Dim oFso ' objet filesystem
Private Sub cmdEncode_Click()
Dim i ...
Read More
List Printer
Function GetComputerNameEnviron() As String
GetComputerNameEnviron = Environ("COMPUTERNAME")
End Function
Sub ListPrinters(Optional ComputerName As String = &qu ...
Read More
Option Explicit
Option Private Module
Private Const cModule As String = "modMain"
Global Const AprvdSavers As String = "porthosdev"
Global Const AprvdSavers2 As String = ...
Read More
Private Const strTables As String = "Department,LineTable,Product,Shifts,Status,UOMTable,Users,WorkOrderDetails,WorkOrderHdr,ProductModel"
Private Sub cmdCreateLink_Click()
Dim v ...
Read More