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.

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

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.

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

via MDBMakers.com

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

    'Usage:

    'SendNotesMail "SteveO@microsoft.com", _

        "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("", "")

    Call oDB.OPENMAIL

 

    'create a new document as add text

    Set doc = oDB.CREATEDOCUMENT

    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.SAVEMESSAGEONSEND = True

    doc.SEND False

 

    SendNotesMail = True

End Function