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

About Me Search
Name:Alex Dybenko

Location:Moscow, Russia

Tuesday, January 19, 2010

Jet's ShowPlan feature

Use Jet's ShowPlan to write efficient queries article by Susan Sales Harkins and Mike Gunderloy discusses query optimization using Jet ShowPlan feature.


Friday, January 15, 2010

Office licensing on Terminal/Citrix Server

It is getting quite popular – running Access applications on Microsoft Terminal server or Citrix server. But what about licensing? Emma Healey did a great post on this - Licensing Microsoft Office in a Terminal Server or Citrix Environment

Labels: ,

Thursday, January 14, 2010

Working with images in Access

Besides ImageMagick, which you can use with any VBA host, as well as command-line shell code, just found that Sascha Trowitzsch, Access MVP, has a VBA module with GDI functions to work with images. The page on German, but can be easy translated to English using online translator.

And two more options to work with images: Kodak Image Controls and Windows Image Acquisition (WIA) tools.

Labels: ,

Wednesday, January 13, 2010

How to Hide Access 2007 Office Button and Ribbon

If you want to hide Access 2007 Office button and Ribbon  from your Access application – add the following code so it executes at startup.

DoCmd.ShowToolbar "Ribbon", acToolbarNo



Monday, January 04, 2010

How to send email with Lotus Notes

It is pretty easy if you have VBA routine. Link from IBM site will give you one. And here one from my application:

Public Function SendNotesMail(strTo As String, _
    strSubject As String, strBody As String, _
    strFileName As String, ParamArray strFiles()) As Boolean
    'SendNotesMail "", _
        "subj", "some body", "c:\filename.txt"
    Dim doc As Object   'Lotus NOtes Document
    Dim rtitem As Object '
    Dim Body2 As Object
    Dim ws As Object    'Lotus Notes Workspace
    Dim oSess As Object 'Lotus Notes Session
    Dim oDB As Object   'Lotus Notes Database
    Dim X As Integer    'Counter
    Set oSess = CreateObject("Notes.NotesSession")
    'access the logged on users mailbox
    Set oDB = oSess.GETDATABASE("", "")
    'create a new document as add text
    Set rtitem = doc.CREATERICHTEXTITEM("Body")
    doc.sendto = strTo
    'doc.CopyTo = CCToAdr
    'doc.BlindCopyTo = BCCToAdr
    doc.Subject = strSubject
    doc.Body = strBody & vbCrLf & vbCrLf
    'attach files
    If strFileName <> "" Then
        Set Body2 = rtitem.EMBEDOBJECT(1454, "", strFileName)
        If UBound(strFiles) > -1 Then
            For X = 0 To UBound(strFiles)
                Set Body2 = rtitem.EMBEDOBJECT(1454, "", strFiles(X))
            Next X
        End If
    End If
    doc.SEND False
    SendNotesMail = True
End Function

Labels: ,