Automation Error

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a Microsoft Acccess Application that works fine on two computers, however, when I installed it on two new computers, I received the following error message
Error no: -2147024770; description: automation erro
The specified module could not be found

I have used the debugger and found that the error occurs on "CreateObject" this line of code
Dim myOlApp As Outlook.Applicatio
CreateObject("Outlook.Application"

On all machines (the one that is working and the two that are not), we have installed
Microsoft Windows XP Professiona
Microsoft Office Professional 200

If it can somehow make any difference, the two new computers are laptops, but I can not see how that should make any difference

I have looked a
http://support.microsoft.com/default.aspx?kbid=24426
and tried everything with no succes

Can you please help me understand why this is happening?
 
Hello,

Dim b As Scripting.FileSystemObject
Set b = New Scripting.FileSystemObject


If b.FolderExists(DestinationFolderPath) = True Then
b.CopyFile Pathname1, Pathname2, True
Else
user_Choice = MsgBox("The PICTURES folder does not exist. Do you
want to create this folder?", vbInformation + vbYesNo +
vbDefaultButton1, "Alert")
If user_Choice = vbYes Then
b.CreateFolder (DestinationFolderPath)
b.CopyFile Pathname1, Pathname2, True
Else
MsgBox "Unable to select picture for this Student.",
vbInformation, "Alert"
Unload Me
Exit Sub
End If
End If


i think its will help you


Thanks,


Warm Regards,

Ayaz Ahmed
Software Engineer & Web Developer
Creative Chaos (Pvt.) Ltd.
"Managing Your Digital Risk"
http://www.csquareonline.com
Karachi, Pakistan
Mobile +92 300 2280950
Office +92 21 455 2414
 
Back
Top