One of a set of tools we're offering as a way to say thank you for being a part of the community.
Sub DeleteOldestFile() 'maintains the number of log files to a max of 10. Deletes the oldest file. Dim strFilePath As String strFilePath = GetDBPath With Application.FileSearch .NewSearch .LookIn = strFilePath .Filename = "*.log" .Execute If .FoundFiles.Count >= MAX_LOG_COUNT Then Kill .FoundFiles(1) End If End With End Sub
|How to make computed control in subform only update on the current record.||12||52|
|Import New Records From Access Table To SQL Database Table||7||30|
|Question about formatting a report||11||16|
|Record Lock on Database will not go away||9||20|