Access 2003 post-Service Pack 3 hotfix

Hotfix to fix Combo box controls and list box controls display no value or incorrect values bug. Good that it was released fast enough. But very bad that Service Pack introduced a new bug...

 

Technorati tags: Access 2003 SP3, hotfix

Is file or folder writable?

I did not find such VBA function on internet, so wrote my own, just pass a folder or file name:

Public Function IsWritable(ByVal filePath As String) _
    As Boolean
    If Right(filePath, 1) = "\" Then _
        filePath = Left(filePath, Len(filePath) - 1)
    
    If Len(Dir(filePath)) > 0 Then
        IsWritable = IsFileWritable(filePath)
    ElseIf Len(Dir(filePath, vbDirectory)) > 0 Then
        IsWritable = IsFileWritable(filePath & "\" & "~.txt")
        If Len(Dir(filePath & "\" & "~.txt")) > 0 Then _
            Kill filePath & "\" & "~.txt"
    Else
        IsWritable = IsFileWritable(filePath)
        If Len(Dir(filePath)) > 0 Then _
            Kill filePath
    End If
End Function
Public Function IsFileWritable(ByVal filePath As String) _
    As Boolean
On Error Resume Next
    Err.Clear
    Dim nFileNum As Integer
    nFileNum = FreeFile
    Open filePath For Append As nFileNum
    Print #nFileNum, " "
    Close nFileNum
    IsFileWritable = (Err.Number = 0)
End Function

Technorati tags: Access tips and tricks

Office 2007 SP1 download available Dec 11

As mentioned here. But I would wait with installing it on production environment, before testing all aspects.

 

Technorati tags: Office 2007, Access 2007, SP1

New content on AccessJunkie site

Jeff Conrad, Access Junkie, MVP Alumni, SDET XAS (don't ask me what does it means, no idea :-), has added new great staff to his AccessJunkie site - Help articles concerning Access 2007 posted on Office Online, Access 2007 FAQ and more. And even more coming soon!