Search results for query: *

...who is interested: Private Sub cmdSendEmail_Approval_Click() 'LOOP STATEMENT Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM qryEmail_Approval_ALL") Dim MyTrackingTable As Recordset Set MyTrackingTable =...

...I have is as follows: Private Sub cmdSendEmail_Approval_Click() 'LOOP STATEMENT Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM qryEmail_Approval_ALL") Dim MyTrackingTable As Recordset Set MyTrackingTable =...

...The form has the following fields: SelectedTermination strTo strCC strSubject strConsolidatedBody Private Sub cmdSendEmail_Approval_Click() '**creates an instance of Outlook Set objOutlook = CreateObject("Outlook.application") Set objEmail = objOutlook.CreateItem(olMailItem)...

...greatly appreciated: Private Sub cmdSendEmail_Approval_Click() 'LOOP STATEMENT Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM qryEmail_Approval_ALL") Dim MyTrackingTable As Recordset Set MyTrackingTable =...

MajP, thank you for the code. I have pulled it into my form, what I am not understanding is what I need to change to make it work in my database. I have filled in the tag field of all the checkboxes with their report names, but other than that, I am not sure what to do. I apologize for my...

So take the printing/PDFing out of it, since that part seems to be working. Is there any way to combine multiple reports into one file based on the selections made on the form? Outside of the way I am currently doing it with a master report and sub-reports?

You can do it without Adobe Pro using the following code. DoCmd.OutputTo acOutputReport, "rptPPW_PKT00_Consolidated", acFormatPDF, strPathAndFile, True My problem is not how to do the PDF, but how to do the consolidation based on the users selections without using the method I described above...

I have a switchboard with 22 different reports, the user has the ability to check-mark the reports they want to print (e.g. 1, 5 or 22), then print the selected files to one PDF. I accomplished this by creating one master report with each of the 22 reports added to the detail as sub-reports...

I got it to work by simplifying, it is always the little things that get me: Private Sub Form_AfterUpdate() DoCmd.OpenReport "rptPrint_ClaimTag_Item", acViewNormal DoCmd.Close acReport, "rptPrint_ClaimTag_Item" End Sub

I added the following to the AfterUpdate property of the form...not sure which one works but it updates the strNext field when it goes to the new record. Me.Refresh Me.Repaint Me.Requery So it fixed my problem...but not sure why.

I tried putting .value but it still isn't working. Right now I have the code in the GoFocus event for the Claim_Tag_ID field...where is the right place for this to trigger

The full error I am getting is: Run-time error '2489': The object 'rptPrint_ClaimTag_item' isn't open.

It is not letting me step through, it does nothing when I select this option. When I click Debug it highlights the line: DoCmd.SelectObject acReport, "rptPrint_ClaimTag_Item"

I have a database that is tracking items that are being checked in and out during a festival. Each item is tagged with a unique ID (ITM_2016_####) and plastic claim tag. I have a set list of claim tag IDs that can be assigned to items as they are entered into the system. On a form I list each...

I have a form that has the following code on the AfterUpdate property, it is printing an ID Label for the record that has just been added. The label prints but then Access gives me the Run-time error. Any help would be greatly appreciated. Private Sub Form_AfterUpdate() DoCmd.OpenReport...

I have a database that tracks check-in and check-out of items. Each item has a barcode assigned to it with a three digit number. I recently purchased a gun scanner to scan the barcodes to check them in/out. I want to scan the barcode and have the item number auto populate the form, then mark...

Sorry about that, this is where I made my last VBA post. I will re-post.

I have a database that tracks check-in and check-out of items. Each item has a barcode assigned to it with a three digit number. I recently purchased a gun scanner to scan the barcodes to check them in/out. I want to scan the barcode and have the item number auto populate the form, then mark...

I did have a typo in the reference, so simple, but so annoying!!! I fixed the string and now the macro is running! Thank you, thank you, thank you!!! One question, it is asking me to append each row, then when it is done the records aren't there until I refresh the view. Is there a way to...

INSERT INTO tblPayments_PD_Amounts (strPD_Case, dtmPD_Date, curPD_Amount) VALUES ('00000000', #6/24/2016#, 100) Date is 6/24/2016