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

About Me Search
Name:Alex Dybenko

Location:Moscow, Russia

Saturday, February 26, 2005

Unable to make MDE file?

At me this sometimes whappens when I use ActiveX control on Access form, which version was changed since it was inserted. In this case only recreating form helps. I do the following steps:
- make a backup
- remove forms one-by-one, keep trying to make mde in order to find which form cause this problem
- once "bad" form is found - I recreate this form, first inserting ActiveX control, then copy/paste other controls and code.

Wednesday, February 16, 2005

Second attempt getting code signing certificate

Succeed! I used USA company to issue certificate, all documents already in English. But anyway VeriSign asked me to make a notary signed letter, which took some efforts.
Ok, now it is try to try how it works, does it really helps to run Access applications with macro security set to high?

Sunday, February 13, 2005

Useful function to generate table structure and data

can be found here, from Access MVP Klaus Oberdalhoff.
Recent version available here.

The Microsoft AppLocale Utility

Using Microsoft AppLocale utility you can run code-page based applications on your Windows XP or Server 2003 without system locale change.

Thursday, February 10, 2005

AttachDB 2.0.85 was published

Browser form:

  • bug fixed
  • server name, where files is browsed, displayed as a root node

Tuesday, February 08, 2005

DSN-less connection in Access

Once again use it recently, easy, you don't need to create DSN in order to link to MS SQL Server. Nice article from Doug Steele. Basic idea that you construct connection string as:

ODBC;DRIVER={sql server};DATABASE=Northwind;SERVER=MyServer;Trusted_Connection=Yes;

Monday, February 07, 2005

The Code Project

Friend of mine just passed it to me - - C++, C# and .NET articles, code snippets, discussions. Already found some useful staff from ASP.NET

Tuesday, February 01, 2005

Code to send email from Outlook Express

Originally from here, just afraid that it can gone. Can run in Access also (of course):

Type MAPIRecip
Reserved As Long
RecipClass As Long
Name As String
Address As String
EIDSize As Long
EntryID As String
End Type

Type MAPIFileTag
Reserved As Long
TagLength As Long
Tag() As Byte
EncodingLength As Long
Encoding() As Byte
End Type

Type MAPIFile
Reserved As Long
Flags As Long
Position As Long
PathName As String
FileName As String
FileType As MAPIFileTag
End Type

Type MAPIMessage
Reserved As Long
Subject As String
NoteText As String
MessageType As String
DateReceived As String
ConversationID As String
Originator As Long
Flags As Long
RecipCount As Long
Recipients As Long
Files As Long
FileCount As Long
End Type

Declare Function MAPISendMail _
Lib "c:\program files\outlook express\msoe.dll" ( _
ByVal Session As Long, _
ByVal UIParam As Long, _
message As MAPIMessage, _
ByVal Flags As Long, _
ByVal Reserved As Long) As Long

Sub SendMailWithOE(ByVal strSubject As String, ByVal strMess­age As String, ByRef
aRecips As Variant)
Dim recips() As MAPIRecip
Dim message As MAPIMessage
Dim z As Long
ReDim recips(LBound(aRecips) To UBound(aRecips))
For z = LBound(aRecips) To UBound(aRecips)
With recips(z)
.RecipClass = 1
If InStr(aRecips(z), "@") <> 0 Then
.Address = StrConv(aRecips(z), vbFromUnicode­)
.Name = StrConv(aRecips(z), vbFromUnicode)
End If
End With
Next z
With message
.NoteText = strMessage
.Subject = strSubject
.RecipCount = UBound(recips) - LBound(aRecips) + 1
.Recipients = VarPtr(recips(LBound(recips)))
End With
MAPISendMail 0, 0, message, 0, 0
End Sub

Sub TestSendMailwithOE()
Dim aRecips(0 To 0) As String
aRecips(0) = ""
SendMailWithOE "Send Mail Through OE", "Sure, you can, T­om!", aRecips
End Sub