Modules & VBA :: Rename PDF Attached To Email
Dec 13, 2013
I'm using 2013. The first version of my code works great. It opens the correct report and attaches it to an e-mail as a pdf with all of my text etc.
Code:
Private Sub btnEMail_Click()
On Error GoTo errHandler
Dim strReport As String
Dim vMsg As String
Dim vSubject As String
Dim strWhere As String
strReport = "RptJobDSD"
[Code] ....
The problem I have is I would like to rename the pdf, so instead of "RptJobDSD" everytime, it can have some fields [DSDDate] and [JobID] etc.
Before trying the fancy field stuff I thought I'd try just "DSD Test" and see if I could rename it in the first place!
I added this and am getting - Error(32004) - The control name 'RptJobDSD' is misspelled or refers to a control that doesn't exist.
Code:
DoCmd.OpenReport strReport, acViewPreview, , strWhere
DoCmd.SetProperty strReport, acPropertyCaption, "DSD Test"
DoCmd.SendObject acSendReport, strReport, acFormatPDF, , , , vSubject, vMsg, True
My confusion comes as the OpenReport and SendObject recognise strReport why doesn't SetProperty?!
View Replies
ADVERTISEMENT
Jun 2, 2015
Is it possible enable and disable a usb port via vba?
An example of using this would be if I had a light plugged in a usb port and the code would turn it on and off.
Or maybe is there s some device like <PC-Some Device-USB light > which can be controled by vba
View 3 Replies
View Related
Mar 24, 2014
We have an Access database that opened some cash drawers attached to the computer through USB and it is working perfectly. We have some of the cash drawers that are attached to the EPSON Receipt printer and we also want to open those Cash Drawers attached to the receipt printer. Looking for code to open the cash drawer attached to the receipt printer, Is there any command available that I could send to the receipt printer and it would open the Cash Drawer.
I have also taken the screenshot of the utility program that will show the information regarding the printer and I am very expecting to get this working soon as we have build the Microsoft Access database that would checking the cash drawer status and also open the USB cash drawers.
View 6 Replies
View Related
Dec 17, 2013
I want to rename a report by clicking a command button on a form. I have this simple code in the click event:
Dim strReportNameNew As String
Dim strReportNameOld As String
strReportNameNew = txtChangeTo.Text
strReportNameOld = txtChooseReport.Text
DoCmd.Rename strReportNameNew, acReport, strReportNameOld
The code fails with this error message:
Microsoft Visual Basic
Run-time error '29068'
Household Labels cannot complete this operation. You must stop the code and try again.
I am able to rename the report manually.I have searched but been unable to find out what is causing this error.
View 6 Replies
View Related
Jul 16, 2013
I'm having about 100 table with the following name: phres01, phres02, phres03 .....phres100
And I need to rename them to ph01, ph02, ph03 ... ph100 respectively
thus removing the "res" part of each table. Since the ctrl+h doesn't work for access LOL im in hella trouble.
View 10 Replies
View Related
Jun 25, 2013
This code is supposed to loop around a directory of photos (named after a project), and then copy a new photos (from another directory) to this folder, numbering them and the logging them in a table tphotos.The first time a copy photos to a new directory the code works fine. And I think I had it working fine before, but now when I copy photos to a pre-existing directory that has already photos, it only overwrites the first photo, instead looking for the last photo and attributing the new photo number n+1.
I've done debug.print in the code, and it looks like is not going into If NewFileName = f1.Name, therefore doesn't compare the newfilename with the files in the folder.
Code:
Private Sub cmdAddPhoto_Click()
Dim fs, f, f1, fc, s
Dim fDial As FileDialog
Dim SourcefileName, destDir, FileExt, NewFileName, prjID As String
Dim intSel, FileNumber As Integer
Dim varSelFile As Variant
Dim rsPhoto As Recordset
Dim myDB As Database
[code]...
View 5 Replies
View Related
Feb 25, 2015
I am importing different excel sheets into Access dB using a file dialog. The importing works fine however, I would like to rename the tables once they are imported to the name of the first column heading. Where exactly would I ad the name change at in this code?
#' Open the EXCEL file and read the worksheet names into a collection
Set colWorksheets = New Collection
Set objWorkbook = objExcel.Workbooks.Open(StrFileName, , blnReadOnly, , _
strPassword)
For lngCount = 1 To objWorkbook.Worksheets.Count
colWorksheets.Add objWorkbook.Worksheets(lngCount).Name
[Code] .....
View 2 Replies
View Related
Jul 2, 2014
I am using access 2010. I need to rename a table when I import the a new table. But I can't get the docmd rename code to work. I also want to append the current date on the end i.e.
docmd.rename, "tblOldTable(Currentdate)", actable, "tblOldTable"
doesn't work.
View 10 Replies
View Related
Jan 15, 2014
I have a form which has a button to email the data out in a standard email message.
Private Sub Command60_Click()
Dim MyDb As dao.Database
Dim rsEmail As dao.Recordset
Dim sToName As String
Dim sSubject As String
Dim sMessageBody As String
[code]...
This works well enough, however, FIELDS 11 through to 16 contain the venue address. This is all we ll and good if every field of the venue address is populated. here are times when not all of the fields are populated, for instance, the address might only be 5 lines.I know I can do this using IIf statements on a report, but how can i achieve the same thing for the email.
View 6 Replies
View Related
Jan 5, 2014
I am still trying to copy an Excel file from a parent folder to a sub-folder, that this code creates, and name the copied file with the name used to name the sub-folder, using the name entered in a control field (named 'TheDirName) of an Access 2007 form. Here is my VBA, which names the copied file "TheDirName.xlsx.:
Private Sub MakeDir_Click()
Dim appExcel As Excel.Application
Dim lngLastDataRow As Long
Dim Folder_Path As String
'Create path for customer folder & files
[code]....
View 3 Replies
View Related
Jul 16, 2014
I have made a query with the name "Confirmation" and it is setup like this:
Name trainee Email Training
John John@mail.com Tr one
Mary Mary@mail.com Tr two
I also made a button in a report with the title "Send Mail" now is my goal that if i press that button automatically multiple e-mail message's will be generated with data from people in that query. So if click on that "Send Email" button i want two different mails messages generated that will be send to John@mail.com and Mary@mail.com with in the mail body their data.
View 13 Replies
View Related
Jan 19, 2015
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'):
Private Sub Command414_Click()
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
Const cdoAnonymous = 0
[code]...
View 1 Replies
View Related
Aug 3, 2015
I have an automated email system (Lotus Notes) in a Access database I have created and am looking for the code needed to add up to 3 c.c addresses into an email prior to sending automatically.
The code I have to send the email to the To: individual is all working but what code I need to add and where for the c.c addresses of which there could be 1, 2 or 3. The control for To address is EmailTo = CustCopyEmail The controls for the 3 c.c emails are cc_EmailAddress, cc_EmailAddress1 and cc_EmailAddress2.
Here's the code I have:
Private Sub SEND_CC_Click()
' Set up the objects required for Automation into Lotus Notes.
Dim Maildb As Object 'The mail database.
Dim Session As Object 'The Lotus Notes session.
Dim MailDoc As Object 'The mail document itself.
Dim UserName As String 'The current users Lotus Notes name.
[code]....
View 8 Replies
View Related
Jul 17, 2015
I have the following piece of code for importing the .csv files from a selected folder and then renaming them into 'imported & filename' if succesful and 'failed & filename' if import failes for whatever reason (bad formating, etc.).
The problem is that the first time it encounters a 'bad' file after another, instead of going again to the Error handler, the command
Code:
DoCmd.TransferText acImportDelim, , "Activitate", filename, True
gives me the default MS Access error, namely 2391. I would like it to go the the Error_handler again ang follow the course of actions and rename the files into 'failed' and 'imported'.
Here's the code:
Sub ImportActivitate()
Dim strFile As String 'Filename's
Dim strFileList() As String ' File Array
Dim intFile As Integer 'Number of files
Dim filename As String, sFullName As String, sFilename As String
DoCmd.SetWarnings False
[code]....
Also, how can I make the routine stop cycling through the files after I renamed them all?
View 3 Replies
View Related
Jul 23, 2007
My database is to track customer incidents. Can anyone tell me if my relationships look ok? I'm a remedial access user to any input would be appreciated. Thanks in advance for the help.
View 6 Replies
View Related
Jan 25, 2005
I would have thought this was easy, but I keep getting an error.
I have a form with a save button. When the save button is clicked, I want it to check if user has attached an OLE object to a bound object frame. If they have, I'd like a checkbox to be true.
Here's the code I tried:
If Attachment.LpOleObject = 0 Then
Attach.Value = False
Else
Attach.Value = True
End If
This seems so incredibly straight forward and it does work if there is an attachment. If there isn't I get the message that my database can't retrieve the value of this property.
Any help would be greatly appreciated.
View 4 Replies
View Related
Sep 21, 2006
Okay, my boss gave me this killer project and I just have a brief question to see if anyone thinks I can do this.
Right now, I have a database for business card management.
I have 2 tables
1)Contact Info - Has various contact info fields
2)Business Card Table - Have 2 fields, CardID and Card (field is OLE object to attach business card to the database.
I have the CardID field in a relationship with the same field in Contact Info.
I have 2 questions:
1) I am using Access 2000, and would like to know if there is a way to allow the OLE field to be a jpg attachable field. I did not see it as an option, only .bmp Cry
2) Is there a way, that when I pull the information up in a form, it can display the attached business card that is attached to the database?
What can I do?
Thanks for any help in advance.
Shannon Ann
View 1 Replies
View Related
Mar 18, 2008
Hi All,
As shown in the attached database, I have a multiple criteria query with a front end (see frmIssue). I am trying to add a keyword search on the field 'Issue' by having an unbound textbox in frmIssue and linking it with a 'Issue' field in the query 'MyQuery'.
An example search would be looking for an issue with the keyword 'misfiring' in project 'A'.
However, having tried the Like expression on the field 'Issue' a few times, I'm still having trouble making it work. Any suggestions would be greatly appreciated!
Thanks,
Stephen
View 2 Replies
View Related
Aug 7, 2006
I can't figure out how to further explain what i needed to do. I hope the attached file could solve my issue.
Thanks for your time!
Sheila
View 2 Replies
View Related
Dec 6, 2006
I have found an example of a search form that I really would like to replicate, but I'm have no idea how to implement it into my database. i have attached a stripped version of my database (only consists of a table) and the database with the search form i would like to implement.
Basically, I need my search form be able to sort through a list of consultants so that the user will know whether or not they're in the database already. The fields that I would like displayed are last name, first name, and phone number and social security/fed. tax ID. Any suggestions would be much appreciated!
View 3 Replies
View Related
Jan 22, 2005
I have been trying to solve this problem for two weeks and am almost tearing my hair out! I have attached a scaled down version of the database I am working in - could some kind person have a look at it and help me, please?
I am trying to make a combo box on my form that will allow me to click on the CID (CustomerID) field, let me click on my customer, and have the rest of the fields filled in automatically.
I have followed the instructions in 'Step by Step - Microsoft Access 2000' to do this, but although it shows the fields, I can't actually select them on the form....
View 5 Replies
View Related
Apr 5, 2013
Is it possible to have more than one subdatasheet attached to a table?
View 14 Replies
View Related
Apr 5, 2008
Hello folks,
I do have the following problem, and - please do tell me- if I don't see the obvious.
I changed to Office 2007 and am busy changing an Access Application. In the course of that, I included some .gif files in an attachment field, which were hitherto stored in external files and loaded when required for display.
Say we have a company table (OPR_Operator) and a country table (GEO_Country). The country table has a country flag (Field GEO_Country.Flat) as attachment file.
If I create the following query:
SELECT OPR_Operator.OPID, OPR_Operator.Operator, OPR_Operator.Country, GEO_Country.CountryName, GEO_Country.Flag
FROM OPR_Operator INNER JOIN GEO_Country ON OPR_Operator.Country = GEO_Country.CountryCode;
I can edit existing records in a form without any problem. If I change e.g. the Country field in OPR_Operator, the new flag is displayed.
The problem occurs, when I want to add a new record. No way to do that. As soon as I enter the Country, I get the following error message:
The current field must match the join key '?' that serves as the one side of one-to-many relationship. Enter a record in the "one" side table with the desired key value, and then make the entry with the desired join field in the "many-only" table.
I appreciate that this reads like a beginner's error. The funny thing, though is, that I entered a country code, which DOES exist in the GEO_Country table.
Any help?
Very much appreciated.
Best,
Jan
View 4 Replies
View Related
Feb 1, 2005
I have one form which is created from one table.
I open the form and if i scroll with the mouse it doesnt move through records, it stays on the first record but amends the details for that record in the second box.
any idea how i can set the scroll mouse function to browse through the records rather than the project box, which amends which project that record is ascoiated with.
Thanks
View 2 Replies
View Related
Jan 10, 2005
Hi all,
Could you help me in converting table1 to query or table2 as attached?
Regards,
Mohammed Dallag
Saudi Arabia
View 1 Replies
View Related
Feb 3, 2015
I have a field [CurrentDay] of type Date/Time. The values for this field are entered through the selection from the date picker. However the time of the day always come along with the date - even if it is not seen. This creates a huge problem when making a query based on this field because no results will be returned unless the time is included with the date in the criteria.
The other part to the problem is that I cannot find a built in function in the expression builder to generate the current date without appending the time - now() certainly does not do that - even if the time is not seen it is there.
View 3 Replies
View Related
