Modules & VBA :: Print Certificate From Form?

Nov 11, 2013

I have a participant table listing name of candidates and course name of training they have taken (1 record per instance, so someone may have 5 records if they have attended 5 courses)

I want to be able to print a certificate for the candidate once the course is complete, ideally from the form itself using a button.

I think the way to do this is to design a report as the layout of the certificate and then print the current record, but I cannot get this to work!

View Replies


ADVERTISEMENT

Modules & VBA :: Setting Up Certificate Request Database - Attach PDF To Form

Aug 11, 2015

I have been tasked with setting up a certificate request database. I have an Access 2032 FE & SQL 2012 BE. I need to store PDF documents from all our branches.

I have been working on this for the past 3 working days and I have seen a great deal about saving the file path to the database vs saving the actual document in the DB. The documents would be located on each users computer.

I have a Form with all the information that is required by the certification department. On the form is a button (Called InsertID(ID in this case is the persons Identity Docuement)) and the button is linked to a table called dbo_CertificationSupportingDocuments. The table is referenced to the Main Certificate Request table.

The dbo_CertificationSupportingDocuments table is structured as follows:

Code:
[CertSupportingDocID] [numeric](18, 0) IDENTITY(1,1) NOT NULL,
[CertificateRequestNumber] [numeric](18, 0) NOT NULL,
[RequestBlob] [varbinary](max) NULL,
[RequestFileName] [nvarchar](50) NULL,
[RequestFileExtension] [nchar](10) NULL,
[RequestFileMimeType] [nvarchar](50) NULL

When I click the button I get a Run Time error 3075 "Syntax error (Missing operator) in query operator.

The code I am using is:

Code:
Dim fd As FileDialog
Dim strFileWPath As String
Dim FileNoExt As String
Dim FileExt As String
Dim StrSQL As String
Dim db As Database

[Code] ....

I have been looking at this code for so long that I cannot see what is wrong.

View 14 Replies View Related

Modules & VBA :: Print Single Report From Form

Mar 11, 2015

I'm trying to print a Report specific to the record i'm viewing on my Form. I've created a Report linked to the Table - "SCJobsheet".I've created a button in my Form;

Name; cmdSCJobsheet
Caption: Print Record
OnClick: [Event Procudure]

[code]...

The Report is opening but shows Every record (Not just the one I'm viewing in the Form.

View 12 Replies View Related

Modules & VBA :: Can't Print Form Image To This Type Of Printer

Jul 25, 2013

I have an application (2007 accde) that has been working for some time, this line specifically:

Application.FollowHyperlink Me.txtAttachment

On one users PC (XP Pro SP3), this has worked from day one. His PC got infected to the point that I had to wipe/rebuild it, and suddenly this code throws a warning and then an error. The warning I could live with (it's the MS Office "some files can contain viruses..." warning). However, after clicking on OK for the warning, I get an error that says "Can't print form image to this type of printer". Doesn't make sense, as this user has the same default printer he had before, plus I tried with a different default printer.

if I navigate to the file location on his PC I can open any of the files, so I don't think it's a permissions issue. The code works fine on my PC and a VM with a different OS, and it still works fine for other users.

View 6 Replies View Related

Modules & VBA :: Unable To Make A Label Visible On A Form During Print

May 9, 2014

I am trying to make a label visible on a form during print if a field has "like a string". We use a form so that it prints 3 forms to one page (They are tags for units for repair). I can get the label to be visible in the form view but when I print, the label is visible on every record where it is only visible on the current record in form view. My goal is to have the label only show on those records where the condition is met.

Here is my code that works in form view only: (It is to designate easier a warranty tag from a new repair tag)

Code:
If Me.Problem_Description Like "Warr*" Then
Me.lbl_w.Visible = True
Else
Me.lbl_w.Visible = False
End If

I have attached an image of a tag sheet Tag_Sheet_W.jpg. As you can see if I got my desired result only the first tag would have a W.

View 1 Replies View Related

Class Certificate

Nov 8, 2007

I have been asked to create a certificate for completion of classes given at work. Is there any way to use a report or will the need to be done through word?

View 2 Replies View Related

Printing Date In Words On School Certificate

Mar 10, 2012

I am trying to create a report which is basically a School Certificate. The requirement is that I need to print the Issue Date, means the current system date be printed in ENGLISH WORDS rather Alpha-numeric format, i.e.: instead of 11 Mar 2012, I need some thing like this: Eleven March Two Thousand and Twelve.

View 4 Replies View Related

Modules & VBA :: Print Preview Button On Main Form That Previews Current Record In A Separate Report

Jan 25, 2014

I have VBA code for a Print Preview button on the main form that previews the current record in a separate Report using this code:

Code:
Private Sub cmdPrintRecord_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

[code]....

I use this Print Preview code on a Button in the Form Header. The Main form lists head of household information. I also have a tabbed control with three tabs that have SubForms for Address, Children and Contact details. The problem I have is that if any of the subforms are left blank I get a Run-Time Error '3021': No Current Record. If I Debug (press the button), it takes me straight to this line:

Code:
varAge = DateDiff("yyyy", varBirthDate, Now)

highlighted in Yellow.Anyone on my database must have an address, should have contact details and could have children. If any one of these is blank then the print preview will not work.I would like to know how to stop this error happening for blank records in my subforms.

View 11 Replies View Related

General :: Create A Field With Start And Finish Date On Certificate Formatted Correctly

Aug 22, 2013

I am creating a access db for use with a training company. All is working great.

What I want to do is create certificates within Access and then print by the Course load. Easy enough and I can do this.

The courses usually last two or three days, so i want to create a field which has the start and finish date on the certificate formatted correctly.

I currently use this

Code:
CourseDate: DatePart("d",[StartDate]) & " & " & DatePart("d",[EndDate]) & " " & Format([EndDate],"mmmm") & " " & DatePart("yyyy",[EndDate])

within a query which returns this

29 & 30 May 2013

what i want to print on the certificate is this

29th & 30th May 2013

I need to have the 'st' or 'nd' or 'rd' or 'th' in the date.

View 3 Replies View Related

Modules & VBA :: Need To Print Envelopes

Sep 14, 2014

I need to print @100 envelopes, but the printer physically only holds 10 envelopes at a time, then has to be reloaded, print 10, reload, print 10 more and so on until EOF. I need to have a Msgbox for each reload to tell the users to reload the printer. I need a good approach on how to. I have tried, Do Whiles, Loops, and some Counts.

View 7 Replies View Related

Modules & VBA :: How To Load Print Dialog Box

Jul 28, 2015

Users of the db I am working on print using a regular network printer 95% of the time. 5% of the time however, they need to change that printer to another one, or to a PDF printing program. All of the printers they need are installed in their Printers folder.I can think of two possible courses of action here:

1. load the printer dialog box (preferred)

2. provide them with a custom interface to select a temporary printer

I don't want them to have to load the printers folder and switch the printer temporarily.how to load the printer dialog.

View 4 Replies View Related

Modules & VBA :: How To Print Report In Reportview

Jan 4, 2014

I have report that I open in reportview. On this report there is a button wich would allow the user to print the report. I have put the following code behind the button:

If MsgBox("Are you sure you want to print the report?", vbQuestion + vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdPrint
End If

The printdialog is appearing on the screen but if I click print nothing is happening.

Is it not possible to print a report like this?

As all the ribbons are hidden I am not able to use the access print button.

View 2 Replies View Related

Modules & VBA :: Run Time Error 91 - Print To PDF

Aug 3, 2013

I have created a report in Access for around 800 uniquely identified line items. My end goal is to develop a script that will Print a PDF for each unique identifier and save them all in one folder and have each one named by unique identifier. Below is the script I have written, I cannot get through the Run-Time Error 91. The data is being derived from a SQL database.

Private Sub Command35_Click()
Dim rst As ADODB.Recordset
Set rst = Currentdb.OpenRecordset("SELECT DISTINCT [Unique_Identifier] FROM [tbl_questionnaire] ORDER BY [Unique_identifier];", dbOpenSnapshot)

[Code] ....

View 5 Replies View Related

Modules & VBA :: Print Linked Doc From Macro

Jun 17, 2015

I'm working in 2003 (still) and have a macro to print the selected form the user has on their screen. I need this same macro to also print a PDF in a particular network folder or just exit if the PDF doesn't exist. I've tried RunSQL with "PrintDoc [Link2PDF]" as the argument. I've tried RunApp with "Acro Rd32.exe /t [Link2PDF]" as the argument but neither one works. The RunApp line will open the Adobe reader but nothing more.

View 4 Replies View Related

Modules & VBA :: Print Every Line From The Query

Mar 16, 2015

I have a query and I am prompted for a " nco " number. This could produce any amount of lines.

What I would like to do is have some code that will ask me the NCO number then print of a report for each line item from the query so if I have 10 lines I need 10 reports .

My query name is "internalworksorder" ...

View 1 Replies View Related

Modules & VBA :: Displaying Word Print Dialogue Box

May 10, 2015

Code for displaying the Word Print dialogue box instead of sending it straight to the printer.

I have the following code:

'Open Word
Set objWord = New Word.Application
'Letter document would be open
Set objletter = objWord.Documents.Open(strletterpath & strworddoc)
objletter.MailMerge.OpenDataSource (strletterpath & strletterfile)
objletter.MailMerge.Destination = wdSendToPrinter 'normally print
Dialogs(wdDialogFilePrint).Show
objletter.MailMerge.Execute
'not normally here
'objWord.Visible = True

This is to produce a mailmerge based upon a query.

Previously on Access 2000 and Word 2000 it would display the print dialogue box, but I am trying to upgrade it all to 2013 and this does not do it now with Access 2013 and Word 2013.

View 3 Replies View Related

Modules & VBA :: Print Current Record From Recordset?

Aug 7, 2015

Is there a way to print the current record from a dao.recordset?

This is an exercise to compare data content.

I have a table with 30 fields and thousands of rows (rs1).

I'm comparing it with a copy of the same table (rs2) that has the same number of fields and the same rows and almost the same content.

I can loop through the recordsets and get the cursor to stop on a field whose values don't match, lets say on row #x

and the programmed message will say something like:

"ROW: 699 Field: [RequestStatus] rs1.VALUE: Closed, DOES NOT MATCH rs2.Value: VOID, in the comparison recordset"Then I'd like to print the entire Row, Row #699.

I thought I could use rs1.getrows but I'm not sure how to make that work.

View 4 Replies View Related

Modules & VBA :: Print Last Record Via Simple Report

Jun 20, 2014

I am trying to add a record through a form, and then get that last record and print it via a simple report.

I keep getting debug when I run it. My add record sub works fine, but the dlookup doesn't work when I put the add record sub in.

Private Sub addRecord()
On Error GoTo errHandling
'INSERT CODE
Dim dbOpenTrades As DAO.Database
Dim rstTrades As DAO.Recordset

[Code] .....

View 1 Replies View Related

Modules & VBA :: Command Button To Print Report To PDF And Email

Aug 9, 2013

A command button on a form that can:

1- Open the Report called : ConsentForm
2- Print it to PDF printer (report is currently defaulted to that printer driver)
3- Save to folder: C:SOSConsentForms
4- Save as: Consent_[Last]_[First] (these are field names on the form)
Result i.e.: C:SOSConsentFormsConsent_Doe_John
5- Then send the file by email (Outlook) to : abc@hotmail.com

View 14 Replies View Related

Modules & VBA :: Determine Which Printer Was Selected From The Print Dialog

Feb 10, 2015

This for an app being used in Access 2003. I'm trying to (sort of) automate naming a PDF report. After the user selects a printer from the print dialog, if the printer name is like "*PDF*" then I want to put the PDF file name in the clipboard so it can be quickly pasted in the file name of the PDF printer's save dialog.

Something like this:

Code:
Dim strSelectedPrinter as string
DoCmd.OpenReport "rpt1", acViewPreview
DoCmd.RunCommand acCmdPrint

[Code]....

but that returns the name of the default printer, not the selected printer.

View 6 Replies View Related

Modules & VBA :: How To Print Specific Report With PrintObject In Macro

Feb 13, 2015

Actually I need to select printer before printing report. That's why I need to call printer dialog to select printer using "PrintObject" in macro. But it's print the form not report. I need to print a specific report.

View 1 Replies View Related

Modules & VBA :: Print Collate Multiple Reports By Individual

Oct 31, 2014

I have a class roster and need vba code to print a first day package of forms. I want them to print each person's package then move on to the next person until the roster has printed each person's package.

View 5 Replies View Related

Modules & VBA :: Print Report Based On Multi Search Not Working?

Jun 5, 2014

i have created a MultiSearch query witch puts my results in a list box.under it i have created a button wich i want to use to print a report with the criteria i select from my list box if there is more than one result.

Following is the Code i used for my button

On Error GoTo Err_Command60_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ReportLable"
stLinkCriteria = "[ProductID]=" & Me![SearchResults]
DoCmd.OpenReport stDocName, , , stLinkCriteria
Exit_Command60_Click:
Exit Sub
Err_Command60_Click:
MsgBox Err.Description
Resume Exit_Command60_Click

Every time u press the button i get a message syntax error(missing Operator) in query expression

Now i have not used any code in my Query except for

Like "*" & [forms]![frmSearchFor]![SrchText] & "*"

Where i made the error

View 3 Replies View Related

Modules & VBA :: Print Preview Report Based On Subform Record

Jan 26, 2015

I have a form created from a table that contains item information.

I have a sub form linked to a different table that contains records.

Each item has multiple records associated with it, so for example 1 record on the main form could have 10 records displayed in the sub form.

Example: Main Form :

Item | Units | Serial Number
Thermometer1 | DegC | 123456

Sub Form:

Item | Date | Actual Measurement | Unit Reading

Thermometer1 | 01/01/15 | 25 DegC | 24 DegC
Thermometer1 | 01/01/14 | 25 DegC | 23 DegC
Thermometer1 | 01/01/13 | 25 DegC | 24 DegC
Thermometer1 | 01/01/12 | 25 DegC | 26 DegC
Thermometer1 | 01/01/11 | 25 DegC | 25 DegC

I want to be able to print preview a report based on 1 record record selected in the subform. So using the example above i'd like to print the record on say 01/01/13 as a report that contains all the information from the item table and only the information on the 01/01/13 from the record table.

View 5 Replies View Related

Modules & VBA :: Restrict Printing Rights To Users - Print Blank Pages

Feb 10, 2014

I've been asked to make sure only certain users in my database are able to print anything (i.e. Administrators). Is there any option/property to do this?

I have already built in User Access controls using the ctl.Tag property. The only way I can think off the top of my head is when a 'general user' uses it, to ensure that every control is displayed 'on screen only'. This of course doesn't stop them printing - just makes them print blank pages!

View 12 Replies View Related

I Want To Print A Report And Programmatically Set The Printer Name And 'Print To File

Jul 16, 2007

How can I print a report and at the same time programatically set the printer name and 'Print to File' option and set the path of this option?

View 1 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved