I am using the following code but when i run it produces the following error.
Run-time error '429':
ActiveX component can't create object.
then on debug it highlights the line
Set objOutlook = CreateObject("Outlook.Application")
I have searched online and already tried a suggestion to ensure that mictosoft outlook 14.0 object library is selected in the VBA references.
Code:
Dim objOutlook As Object
Dim objMailItem As Object
Const olMailItem As Integer = 0
Set objOutlook = CreateObject("Outlook.Application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
I am trying to connect to MS Access from MS word using the following code but getting the above error message:
Code: Sub GetDataFromDataBase() 'allocate memory for the database object as a whole and for the active record Dim myDataBase As Database Dim myActiveRecord As Recordset
When I attempt to create a new DB - by performing Blank Database I immediately get a message 'Object Library not registered'.
If I 'OK' that box and try to create a table, I can do so - create Table in design view.
When I then try to Import external data - an excel file I get the message 'ActiveX component Can't create object'.
I have looked ob various sites for help and forum information regarding these errors but have found nothing conclusive, with specidfic regard to Access 2003.
The version has been loaded on my machine about 1 year as part pf Office Professional but this is the first time I have attempted to run Access itself.
Does any forum member have any ideas as to how this problem could be resolved.
I get this error everytime i try to use any wizard in access, i have uninstalled and reinstalled acces, i looked at the MSDN and i cannot find anything that will fix my problem. I have windows XP and office 2002 if that could help with the solution.
i got this error message when i tried to create a command button... i have to do it without the wizard... then when i tried to get one of those convenient access pics applied to the button i get an error pop up Object variable or With block variable not set
...the errors only just started today... well i played hooky on friday cause of a snow storm so i guess it might be a recent microsoft insecurity update...
running XP pro 2002 SP2 with Access 2003 SP2
:( ...maybe this is the latest microsoft challenge... :mad: ...uninstalling and reinstalling access or all of ms office does not remedy the situation... i searched the forums and cant find a solution :eek: ...
I'm not sure if this is a Query problem or a Report problem, so I'm putting it in the General catagory. If I need to post it in one of the others, please point me the right direction.
I have set up the following:
Query A - Combines data from several tables Query B - Prompts for a text string and places it in a table Query C - Uses the text entered in Query B to select records from Query A. The field that is searched is a text field. Report A – Has an Open procedure that executes a macro that runs Query A. I also have a Close procedure that executes a macro that runs a second report based on Query A against a different table.
When I run the report on my desktop it works properly. I had a user try to run the report and she gets the following error immediately, prior to being prompted for the text.
Error:429;ActiveX component can't create object
I am running Office XP and she is running 2003 with SP2. She has not had problems with other Access reports in the same DB. Any ideas what is missing?
I'm using the below code in msaccess which used to work perfectly on the Win XP platform. I upgraded my OS to Win 7. It's now giving an error as "Runtime Error 429 - ActiveX Component Can't Create Object". I unchecked & rechecked all the library references.
Function GetNetWorkDays(startDate As Date, endDate As Date) As Integer Dim objFunction As MSOWCFLib.OCATP Set objFunction = New MSOWCFLib.OCATP GetNetWorkDays = objFunction.NETWORKDAYS(startDate, endDate) Set objFunction = Nothing End Function
Old OS: Win XP New: Win 7 Old msaccess: 2003 New: 2010 Old office: 2003 New: 2010
I am currently updating an Access database, any way to send an OLE Object (in this case an Excel Spreadsheet) as an attachment to an email address using VBA code? I made a form that shows the Excel Spreadsheet when the record is brought up, but I need to know how to send just the Excel Spreadsheet and not the other information on the form.
Also, if there is an alternate way to have an Excel spreadsheet embedded into an Access form, i'm open to change. The user wants to be able to see the Excel spreadsheet and send it to their supervisor without having to locate the Excel spreadsheet on the hard drive.
Okay, so I have tried to fix this for three days. When I try to create a button, combo or list box I get the message:
ActiveX Controls Can't Create Object. I have been through Internet Options/Security. I have tried reinstalling, I have tried to look into the registry. I even check Microsoft HELP and Mircosoft website and am getting nowhere. Can anyone please, please help solve this problem because it completely baffles me on how to fix this!!!
I had a search client form. This form used to work fine, so i haven't tocuhed it for a while. Basically what happens is you double click on the client and it clones it to the form.
However just a second ago i tested the form again and an error appears "ActiveX component cant create object". I've made no modifications to anything involving this form so im bit stuck for ideas.
I also received an error message telling me to check - Visual Basic --> Tool --> Reference. That says "Missing: Microsoft DAO 3.6 Object Library". I have browsed for the file but had no luck in finding a file to replace it.
I am currently using vb code to send an email in Access on the click of a button. I want the database user to be able to enter the recipient in a text box [ToEmail] which is on form [GroupStockProfiler]. However, I'm unsure how to put this into my code. I currently have the following which doesn't work (unless I put a specific email after 'To'):
I'm sending out an e-mail (see below). I want to add a cc addressee. However, sometimes the cc addressee will be blank. The e-mail works if the cc addressee field has data. It doesn't work if there isn't data. I tried an IIF statement but that didn't work. How do I can the object to work if the field is blank (null) or has data?
DoCmd.SendObject acSendNoObject, , acFormatTXT, Me.POCEmail, , Me.Email, , "Decoration Issue - Resolution Assistance", "Sir/Ma'am," & vbCr & vbCr & _ "We need your assistance in resolving the following decoration issue:" & vbCr & vbCr & _ "Issue/Necessary Correction: " & Me.Issue & vbCr & vbCr & _ "Member Information " & vbCr & vbCr & _
I has install office XP but when I creat form I has problem: Active X component can't creat object I don't know to correct problem please suggest to me
I'm working on a database for work that email's the current record after the form is completed. I have a attachment field in the table called Photo and some record's have a photo attached and other's don't. The code below works great with records that have a photo attached, but I get a path not found if I try to email a record that does not have a photo. I know that I need to put some form of code to check the photo field for a attachment, but I'm having a brain fade as to just what the code is.
Code: Private Sub eMail_Report_Click() Dim oFilesys, oTxtStream As Object Dim txtHTML As String Dim appOutLook As Outlook.Application Dim MailOutLook As Outlook.MailItem
I use a macro (SendObject), which works, but it requires Us, or someone to go into Outlook to click on send.I'm new to vba, do I have to code something on outlook to send automatically?
I am a College Instructor and I would like to make a Database that will regularly email me a list of Students who are approaching the mid-point of their Program.Is it possible to program Access to email a list with Student Names, Registration Numbers, etc, etc. by a given date?
As of right now I have a Database with all of the students' pertinent information but I have to manually comb through the Database each week to see which students will require a Mid-Term interview that week.
How would I set up an Outlook email using a list of recipients from an Access table? I'd like to be able to run this from Access 2007 and not Outlook. However, once the email is set up, I'd like to be able to go into the email and add subject, body, etc. before sending the email.
I am trying to send an email from a form in Access 2013 using fields on the form as part of the email body and I can't seem to find code to just do this.
I don't need to loop through tables as the send email address etc will be on the form together with appointment times etc ...
I have code that allows me to drag and drop an email to an access field, which then stores that email on the local / network folder. Another field with that email's file path is also displayed.
My big question is: knowing the email's file path, how can I have the system open those (network/folder) saved emails as a reply (not automatic send)?
I envision this as being triggered by a _Change event; if a drop-down changes or is selected, then the system reads the location in the 'Email Location' field, and opens the reply to that email.
I have been able to create code to send email for my ticket system but now have a need to add an additional recipient. I would prefer this recipient to be add in the CC field. This email address will come from its own table. I have tried to figure this out myself but I can't get anything to work for me . I am fairly new to VBA and all of my experience is just through trial and error (mostly error). I have attached my original code below ....
Private Sub cmdMailTicket_Click() On Error GoTo Err_cmdMailTicket_Click Dim stWhere As String '-- Criteria for DLookup Dim varTo As Variant '-- Address for SendObject Dim stText As String '-- E-mail text
I would like to update the following code I have been using to send emails, from Access 2010 via Outlook 2010, to include my signature block with hard returns in between each line and a few above the signature.
Lets say the signature would be: My Name My Company Name My phone number My Reference
I tried next to: stMessage = Me![EmailMessage] &"My Name" & Chr(10) & Chr(13) & "My Company Name"
etc.
It does not work..
Here is the coding :
Code: Private Sub SendEmail_Click() On Error GoTo ProcErr Dim stLinkCriteria As String
