I have a form that displays a html document in a WebBrowser object. This displays fine on screen but shows up blank when printing the form. Is there any way to get this to appear on the print? I know you can right-click on the object and select "print" to print the contents of the object but ideally I'd like the page to print in the context of the form. Is this possible?
View RepliesI created a new form and subform and set an "On Update" event on one of the fields.
Went to Visual Basic and can't find the form or subform in the object browser. What gives? How do I create the code when I can't find the object?
trying to get; add picture, done. i´m using the northwind example in my database. below is the code behind my form.
Code:Option Compare Database Option Explicit Dim path As String Private Sub cmdExit_Click() DoCmd.Close End Sub Private Sub cmdMenu_Click() DoCmd.Close DoCmd.OpenForm "frmMenu", acNormal, , , acFormReadOnly End Sub Private Sub cmdNieuweFoto_Click() getFileName End Sub Private Sub Form_RecordExit(Cancel As Integer) ' De label errormsg verbergen om te voorkomen dat het scherm ' knippert bij het navigeren naar een andere record. ErrorMsg.Visible = False End Sub Private Sub cmdFotoVerwijderen_Click() Me![ImagePath] = "" hideImageFrame ErrorMsg.Visible = True End Sub Private Sub Form_AfterUpdate() ' Query opnieuw uitvoeren op de keuzelijst met invoervak ' Superieur nadat een record is gewijzigd. Vervolgens de ' label errormsg weergeven als er geen naam voor het ' fotobestand is ingevuld of de foto weergeven als een ' geldige bestandsnaam is ingevuld. On Error Resume Next showErrorMessage showImageFrame If (IsRelative(Me!ImagePath) = True) Then Me![ImageFrame].Picture = path & Me![ImagePath] Else Me![ImageFrame].Picture = Me![ImagePath] End If End Sub Private Sub ImagePath_AfterUpdate() ' De foto van de medewerker weergeven zodra het fotobestand ' is geselecteerd. On Error Resume Next showErrorMessage showImageFrame If (IsRelative(Me!ImagePath) = True) Then Me![ImageFrame].Picture = path & Me![ImagePath] Else Me![ImageFrame].Picture = Me![ImagePath] End If End Sub Sub getFileName() ' Geeft het Office-dialoogvenster Bestand openen weer van ' waaruit een fotobestand voor de huidige medewerkersrecord ' kan worden gekozen. Het geselecteerde bestand wordt in het ' besturingselement voor afbeeldingen weergegeven. Dim fileName As String Dim result As Integer With Application.FileDialog(msoFileDialogFilePicker) .Title = "Foto van medewerker selecteren" .Filters.Add "Alle bestanden", "*.*" .Filters.Add "Gifs", "*.gif" .Filters.Add "Bitmaps", "*.bmp" .FilterIndex = 3 .AllowMultiSelect = False .InitialFileName = CurrentProject.path result = .Show If (result <> 0) Then fileName = Trim(.SelectedItems.Item(1)) Me![ImagePath].Visible = True Me![ImagePath].SetFocus Me![ImagePath].Text = fileName Me![merk].SetFocus Me![ImagePath].Visible = False End If End With End Sub Sub showErrorMessage() ' De label errormsg weergeven als het fotobestand niet ' beschikbaar is. If Not IsNull(Me![foto]) Then ErrorMsg.Visible = False Else ErrorMsg.Visible = True End If End Sub Function IsRelative(fName As String) As Boolean ' Onwaar als resultaat geven als de bestandsnaam een station ' of UNC-pad bevat IsRelative = (InStr(1, fName, ":") = 0) And (InStr(1, fName, "\") = 0) End Function Sub hideImageFrame() ' Het besturingselement voor afbeeldingen verbergen Me![ImageFrame].Visible = False End Sub Sub showImageFrame() ' Het besturingselement voor afbeeldingen weergeven Me![ImageFrame].Visible = True End Sub
the remove picture button works fine, the picture is actualy removed from the database. but the add picture buton wont work, i get an error. i have a idea wy. the northwind DB uses text in its table for the picture ( to define a path). but my database is using OLE object in the table for the pictures. i select add object » use file » and browse for the pic (and fill the checkbox to merge the pic with the DB). northwind uses "getFile" (opens a file browser) to define a path and i think it´s only text based and won´t work with OLE objects.
does annybody know the code to get the OLE Object browser (see atached pic).
to make it short: neet the code to open the OLE Object browser (if there is a code). if somebody thinks the problem is something else, tell me plz.
thanks
I tried to follow the Allen Brown print the current record in the form and its not coming up. I can print all of the records but not the current.
View 3 Replies View RelatedWhy I cannot print a report using a single record in a form using Access 2007.
I have added the button, I am using the following code:
Private Sub cmdPrintRecord_Click()
Dim strReportName As String
Dim strCriteria As String
strReportName = "Receipt"
strCriteria = "[ID]='" & Me![ID] & "'"
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
End Sub
However when I click the button nothing happens. I have attached the database ...
I am using the Contacts Entry form, and when I am on a record that someone has paid I want to be able to print from the Receipt report that has a simple formed up letter.
Why the ability to view the properties of an object within a form is not available when you double click on it in design view?
I was happily working away double clicking on a command button to edit some code when for some reason the next time I tried to edit it did not open up for me.
I was unable to access it even by right clicking on the object & selecting properties as that also appears to be disabled, not greyed out or anything but just does nothing when selected.
Have I inadvertently changed a setting somewhere that prevents the properties from being displayed?
I have Access 2003 and I am trying secure my database.
I read thru the posts in this forum and I created a new mdw file and new id..I gave this new id all the powers of Admin, so that I can take away all the powers from Admin user and Admins Group...but I am unable to change owner for the database object..current owner is Admin.
What can owner do that admin cannot do?
Please help..
Thanks a bunch.
I have Access 2003 and I am trying secure my database.
I read thru the posts in this forum and I created a new mdw file and new id..I gave this new id all the powers of Admin, so that I can take away all the powers from Admin user and Admins Group...but I am unable to change owner for the database object..current owner is Admin.
What can owner do that admin cannot do?
Please help..
Thanks a bunch. :confused:
I put a button on a form for printing the object but it prints every record. How can I print the object with the current record?
View 3 Replies View RelatedI have a landscape oriented report which is A4 size. When I select Landscape in print preview the result is cut off on the right. In the form's design mode I get a little green triangle on the top-left which tells me that the form is wider than the page size. Is this because I am using a default printer with a portrait setting?
I want to avoid having to change the default printer for each different form orientation. I am printing to a pdf printer (pdfCreator which doesn't appear to have a landscape output setting) while testing my design so as not to waste ink & paper.
I am using Windows XP SP3 with Access 2007.
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.
I have OLE Object connected to a source Document. Each time I change the source document to a new one by using the sourcedoc property and action property. What I need is how to programatically print this document.
View 1 Replies View RelatedI am currently building a database for the company I work for that is fairly similar to the Northwind Database; however it is made from scratch so hopefully some of the common problems with that database won't find their way into mine.My problem is that when I go to my Orders form, I pick a customer from the main form, which creates a record on the Orders table. When I then go to the subform to choose a product/line item, I get the error in my title ("The LinkMasterFields property setting has produced this error: 'The object doesn't contain the Automation object 'OrdersT.") as soon as a product is chosen from the drop down list.
View 1 Replies View RelatedThe error is:
The LinkMasterFields property setting has produced this error: 'The object doesn't contain the Automation object 'tblIndividual.' '
Then it also gives me the same one on another table.
I think it has something to do with the link master/child fields. I've tried all kinds of relationships with the three tables and can't figure it out.
I've tried uploading the database here but it won't. It's on my Sky Drive.
[URL] .....
I'm trying to use the Access 2010 web browser control to dynamically show a PDF.
The base file path is a constant (R:MS_ACCESS_PROJECTSSAFETYIMAGESMSDS SHEETS)
and the dynamic part is two fields from the selected record:
me.txtMsdsID & "." & me.txtVersion
what is the simplest way to "bind" this so that when a record changes it automatically refreshes this control? I've tried setting it with VBA, but it's not working consistently.
I know the issues isn't the file path, as it works fine if I paste it in windows explorer.
I'm on Access 2010
I am using a web browser control on one of my forms The problem is that when I close my application down, after using the form with the wbc, an access process keeps running in the background. More severe: every time I start my app again and close it, another access process is added to the processes that are already running.
I have a form with a tab control, inside the tab control I placed an ActiveX control (Microsoft Web Browser). These are at the bottom of the form.
Everything displays fine if the entire form fit on the screen but if the form is too long and I scroll down the browser control is getting obscured by the tab control and getting chopped off (the contents are covered). It is as if the browser control is staying in space where it was and moving behind the tab control as I scroll.
This problem does not occur if I place the browser control directly on the form. Also I note that the browser control is sitting correctly within the tab control.
I have been through all the settings and properties of both controls and haven't been able to fix it. I searched all over the web but no one has previously stumbled across this one by the look of it.
See the attached image ...
I have main form("client Status") which contains information about client order and showing the calculations. The subform is also there for receiving the payment from client. I would like to get the sum of amount received(from sub from) and would like to show it on main form that how much amount received from a client. As payment received from client the form should be updated automatically by showing the sum of amount received.
how to take sum of particular field in subform using vba and storing it in main form field.the forms are created from tables and there is no unbound field.
I have a combo box which I use to jump to a certain record in a form in Continuous View. The combo box located in the form header which works fine when the code is attached to the OnChange event. But that works premature when I have not finished typing what I am looking for yet. I tried few events for no avail. I need OnLostFocus but I can not tab out of the combo for the life of me, it works when I click out of the combo box with the mouse but I want to use the Keyboard Tab.
How can I fix this?
Hello
I am using Access 2003(11.6355.6360) SPI
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.
Thank You
Rgds
Paul Langham
I have a form "WorksheetList" that has a list of records upon which when one selects a record a new form opens "Worksheet" with the data from "WorksheetList" everything seemed to be working fine then suddenly I get the error "Method 'item' of object 'forms' failed"... Here's my code:
Private Sub txtReconciliationID_Click()
DoCmd.OpenForm "Worksheet", acNormal, , , , acWindowNormal
Forms![Worksheet]![txtLastUpdate] = Me.LastUpdate
Forms![Worksheet]![txtCalendarYear] = Me.CalendarYear
[Code] .....
Hi
I can do anything(design/edit/add new) to my table & queries but unable to redesign/edit my existing forms & reports, i wonder why?. My Database attributes is not "read only".
pls help.
thank a lot.
:rolleyes:
I have a table, form and a query
Table structure
Project Name , Description , teamA(Yes/No Box), teamB (Yes/No Box), teamC (Yes/No Box)
Form namely search project by team
show three Yes /No box for selection
query
SELECT Projects.[Project Name],
Projects.[Project Description], Projects.[Project Category], Projects.[Start
Date], Projects.[Est Completion Date], Projects.[End Date], Projects.[Project
Benefits/ Impact], Projects.[IT Resource], Projects.[Key Participant], Projects.[Last Update/Comments],
Projects.[Action Owners], Projects.Status, Projects.Activity,
FROM Projects
WHERE (((Projects.[TeamA])=[Forms]![Search Project by Team]![TeamA]) AND ((Projects.[TeamB])=[Forms]![Search Project by Team]![TeamB]) AND ((Projects.[TeamC ])=[Forms]![Search Project by Team]![TeamC]))
I created a table to keep contact information such as address, phone number, and email address of instructors. I also modified the New Instructor Entry form to add an email address, since we usually have this when hired.
The problem arises when no such information exists for an instructor. I have attached a "sample" database with all the important components and "sample" data.
When I choose an instructor in which some contact information exists, the Instructor Contact Entry form performs as expected. On the other hand, if no information for an instructor exists, the information can be entered, even though the Employee Number, Family Name and Given Name fields are blank, contrary to the first case. Not only can the information can be "saved" but no data appears in the table.
How do I have to set this up to get it to work for an instructor not in the table?
I enabled security on an .mdb which included several users that are in the Full Data Users group. After I did this I needed to add a new form to the application, so I logged into the application and added it. However, though the admin group and the Full Permissions group can access it fine, the Full Data Users group cannot. I have double checked all of the settings and have even rebuilt the .mdw file to no avail. Any thoughts?
View 2 Replies View RelatedI am trying to open a report (with subreports) from a form. When the report opens, I want the form to hide, which most of the time does. Sometimes, though, it won't hide when the report opens. So, I even created an error handler, and moved that part of the code to SubExit section, but the problem still occasionally occurs. Here is my code:
Code:
Dim strWhere As String
Dim strDate As String
Dim strDist As String
On Error GoTo ErrHandler
strDate = "=DateSerial(" & Year(Me.txtAsOfDate) & "," & Month(Me.txtAsOfDate) & "," & Day(Me.txtAsOfDate) & ")"
strWhere = "YearEnd = " & Year(Me.txtAsOfDate) - 1
[Code]...