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

About Me Search
Name:Alex Dybenko

Location:Moscow, Russia

Saturday, June 30, 2007

Access 97 on Vista

I have successfully installed Access 97 on Vista, but not everybody were so lucky – it is required to install SR2 and Jet 3.5 update in order to run Access 97 on Vista, and these updates can fail to install. Here a forum thread with possible solution:

Problem installing Office 97 Professional SR2b patch in Vista Options


Technorati tags: ,

Tuesday, June 26, 2007

Yes, Access 2007 runtime is here!

It took some time since its first rease date, but finally it is available for download:

Access 2007 Download: Access Developer Extensions

Access 2007 Download: Access Runtime


Tuesday, June 19, 2007

Antivirus breaks Access

Check you antivirus settings – as I already wrote - it could easy break Office functionality. Here Van T. Dinh (Access MVP) wrote in one of the groups:

"If you use Norton AntiVirus, try disabling the Office Plug-in. You'll find the Office Plug-in under 'Miscellaneous' in the Norton AntiVirus options."


Technorati tags: , , ,

Wednesday, June 06, 2007

How to get reference to DBEngine.

Once you need to write a program or addin, which works with installed version of DAO, it can be DAO 3.5, 3.6 or 12 (Access 2007). So you need to use late binding and get reference to latest version of DAO. Simple CreateObject("DAO.DBEngine") will not work. Here a function, which do this task:

Public Function GetDBEngine() As Object

On Error Resume Next

'try 120

Set GetDBEngine = CreateObject("DAO.DBEngine.120")

If Err.Number <> 0 Then

'try 36


Set GetDBEngine = CreateObject("DAO.DBEngine.36")

If Err.Number <> 0 Then

Set GetDBEngine = CreateObject("DAO.DBEngine.35")

End If

End If

End Function


Technorati tags: , ,

Friday, June 01, 2007

How to write out Unicode text files in VBA

This trick I have learned from Giorgio Rancati, Access MVP. Here a sample code, which clearly explains the idea:

Dim buffer As String

Open "C:\Unicode.txt" For Binary As #1

buffer = StrConv(strText2Write, vbUnicode) + _

StrConv(vbCrLf, vbUnicode)

Put #1, , buffer

Close #1

Technorati tags: ,