AccessBlog.net

News, links, downloads, tips and tricks on Microsoft Access and related

About Me Search
Alex
Name:Alex Dybenko

Location:Moscow, Russia

Friday, December 28, 2007

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: ,

Wednesday, December 12, 2007

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:

Thursday, December 06, 2007

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: , ,

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!