Duane,
You are a life-saver, works perfect.
I was getting close with this code except I still could not preview the report. Yours was right on the money.
blRet = ConvertReportToPDF("repDeliveryDocketSingle", vbNullString, "C:\Access\repDeliveryDocketSingle" & ".pdf", False, False)
Many thanks...
Hi Duane,
Thanks for the feedback, although I don't think this is what I am looking for.
I basically have a form with a cmdButton that when clicked
previews the report for this record. Once in preview I send this via email in either rtf or snp form.
But instead of previewing this report in...
Using Access 2000 and need help opening report as a PDF using Lebans A2000ReportToPDF which uses this code to open a report in a listbox of a form:
Private Sub cmdReportToPDF_Click()
Dim blRet As Boolean
blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, _
Me.lstRptName.Value & ".pdf"...
You could try:
Private Sub NameOfCheckbox_AfterUpdate()
If Me.Checkbox = True Then
MsgBox "You need to fill out the quantity"
Me.Quantity.SetFocus
Exit Sub
End If
End Sub
Yes, I corrected that part already.
When a number is entered in the SpecNo field (e.g. a number that would not have a match (DLookup)in the table CodeLook)the "Invalid use of Null" error occurs.
When a text is entered "You canceled the previous operarion" error occurs.
When a number is...
I have an AfterUpdate code that uses the DLookup function to find the matching record in a corresponding table.
If the matching record exists, the field is changed to the correct value based on DLookup of corresponding table.
Here is my problem:
If matching record does not exists the current...
Take a look at the Northwind example - Orders Subform, After Update event of the Product Field:
http://www.microsoft.com/downloads/thankyou.aspx?familyId=C6661372-8DBE-422B-8676-C632D66C529C&displayLang=en
Have you tried going to the properties of this field(e.g combobox), Format and setting the column widths to hide the autonumber?
Format
Column Widths...... 0cm; 5cm
0cm for your phone_type_id
5cm for your phone_type
0cm hides your phone_type_id
Thanks for the reply AceMan,
I figured it out....
Private Sub SupplierRef_AfterUpdate()
Dim intAnswer As Integer
Dim txtSupplierRef As Variant
txtSupplierRef = DLookup("[BoughtInChargeID]", "Bought In Charges", "[SupplierRef] = Forms![Bought In Charges]![SupplierRef]")
If Not...
I have a form After Update event for a field that checks to see if a Supplier Ref has been used before. If so, it alerts the user of a duplicate entry.
But what I need the code to do is to check the Supplier Ref against the SupplierID for that record. If the duplicate Supplier Ref was not used...
Make sure you have not installed it already. Go to programs, Microsoft Office, Microsoft Office Access 2003 Deveoper Extensions
If you have not installed it from your disk. Its under the heading Office Access 2003 DE.
When you install your CD you should have a list:
Office Enterprise 2003...
I have a textbox named SupplierRef and when a user enters a reference the code below checks to see if a duplicate reference has been entered. If so, a message box pops-up informing the user a duplicate reference as been entered and enter another.
Private Sub SupplierRef_AfterUpdate()
Dim...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.