Modules & VBA :: Display OLE Object In Message Box
Aug 8, 2013
I'm trying to display an image which is saved in the table as an OLE Object in a message box. The field with the object is "PowerCurve". This is what I'm trying to do. It allows me to get as far as clicking yes to view the second message box but then it results in an error when it tries to display the image.
Code:
Dim strDetails As String
strDetails = DLookup("Details", "ExistingDeviceDetailsQ")
Dim strCurve As String
strCurve = DLookup("PCurve", "DeviceT", "DeveloperProduct = '" & Forms!DeviceF!D_ExistingDeviceCmb & "'")
If strCurve = "No" Then
MsgBox strDetails, , "Device Details"
[code]....
I get the error "Object variable or With block variable not set" on the line
I have a report which is an invoice I have a button on the report to reprint It . Now if this is a duplicate Invoice I need to add a background Image ,something like a duplicate stamp . I have added a message box which says" is this a Duplicate Invoice" .If the answer is yes then I want to display the backgrond image and print the report .If the answer is no, then print report without background image
I have a button that duplicates records 'X' amount of times based on a value in a text box.
I need a message box to advise the user that they have created record number from - to
Eg
User creates 5 records - first record created has a auto number of 3200
I need the message box to say 'you have just created records 3200 - 3204
Is this possible?
Here is the current code on the duplicate button courtesy of Uncle Gizmo
Private Sub AddRecord_Click() On Error GoTo AddRecord_Click_Err Dim x As Integer For x = 1 To (Me.txtAmount.Value - 1) DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy
I have a form and there is a command button on it. I want the code that will run when that commandbutton is pressed and it should check the first sheet "Sheet1" in all the workbooks in the folder C:FolderTemp.
And if the first sheet name is not "sheet1" then just ignore that workbook and move to next workbooks. If the first sheet name is "Sheet1" in a workbook then display the value present in cell B1 in a message box.
So if there are 5 workbooks in the folder C:FolderTemp and two of them hasn't got first sheet named "Sheet1" then display value of B1 in rest of the 3 sheets in a message box one by one.
I have a field that is pre filled in with a value. The name is "Business".Then there is a combo box with various values. If the user would select a value that does not match with values that can be selected if in "business" a value is selected, it should show a message that the selection is wrong and user needs to select the correct one.
Example:If in the field "Business" the value "Food" is selected, then the possible values to be selected in the combobox would be: Fruit or Meet or Fast Food. If the value in "Business" would be "Wood" only selections could be made: Talble or Chair or Cabinet.So, if a user select "Food' in "Business" and in the combo box "Chair", it should show a message that the wrong selection was made and don't let them use the wrong one.
I have a searchable form that display information on agreements other companies have with us. If a company requests an inspection we have 30 days to go out and complete it.
I am trying to create a message box that will display all inspections that are due within 5 days when the form loads. No luck so far, only broken dreams.
Is it possible for message boxes to use expressions and display information that fits the criteria?
i am trying to call another form's object event.. and i am receiving error mesage "object required". Any ideas anyone? here is my statement:Call frmMain.cmdOK_ClickI do have both subs, the one being called and the one that this statement is in, both as public.thanks in advance!
I spent several hours but looks like I can't pop up a message in a form when the cursor pointer is on a specific object. Focus of cursor maybe somewhere else, but when I move the cursor with mouse and it reaches to a specific object, I want the object to display a message. I couldn't do it.
We have a ms graph object in the report. All the programming code relating to it is perfect and the graph displays correct too. But in some circumstances, the graph displays with different mold than it should be.
When we preview it in a single base, it works fine. Sometimes, in this way too the graph has a display error.
I have used the maximum potential solution to this, but all failed in vain.
1. Setting delays and refreshing the form and re-querying the graph data 2. Created a new database and imported all the objects and tried to run 3. Compact and repair database 4. Tried with re-creating the report from scratch.
why this type of error display is coming up with the ms graph object.
I have saved query object named qrySearchBill. I wan to call this query through vba and display the result in a subform named subQrySearchBills in datasheet view. Here's how I want it to work:
When the main form loads, I want all unfiltered records to be displayed in the subform initially. The user may then decide to filter based on date range, so he enters startdate and enddate parameter values in their respective textboxes in the main form. Then click search button to run the saved query based on the date range parameter taken from the textboxes.
I have this code so far:
SQL of the saved query object:
Code: PARAMETERS [StartDate] DateTime, [EndDate] DateTime; SELECT tblInvoice.BillNo, tblCrdCustomer.CstName, tblCrdCustomer.CstAddress, tblCrdCustomer.Island, tblInvoice.Date, Sum(tblInvoice.[TotalPrice]) AS Amount FROM tblCrdCustomer INNER JOIN tblInvoice ON tblCrdCustomer.IDNo = tblInvoice.NameID WHERE tblInvoice.Date Between [StartDate] And [EndDate] GROUP BY tblInvoice.BillNo, tblCrdCustomer.CstName, tblCrdCustomer.CstAddress, tblCrdCustomer.Island, tblInvoice.Date;
vba code to call the query and its parameter:
Private Sub btnSearchBill_Click() Dim qdf As DAO.QueryDef Dim rst As DAO.Recordset
Set qdf = CurrentDb.QueryDefs("qrySearchBills")
[Code] ...
This code works fine except that when the main form loads, a prompt window appears to ask for the value of dateStart and dateEnd. I don't want it to prompt because it's suppose to get these values from the main form's textboxes (txtStartDate and txtEndDate respectively), plus it should initially display all the unfiltered records.
I have a macro in the On No Data event of a report that displays a message when the item number a user requests does not exist in the table being queried.
Now I need to get the same functionality in a form. The form is based on a parameter query with only one criteria [Please enter item number]. The form opens in Edit mode when a valid item number is entered.
I see that there is no On No Data event for either forms or queries, so I'm stumped on how to proceed.
Hi, does anyone know how to create a query/or form that promts the user with a message box that says "enter table name", from this if the user types "A" then table A will be opened for the user to add data into or if the user types in "B" then table B will be opened for the user to add data into. Ideally I would like a form that opens (either form a or form b) that allows the user to enter the details into the corresponding table (a or b)
Tables A & B are both emty to start of with. The field names in both tables are: user_id, firstname, lastname, date
Hello guys, I have created a form which generates the data into new access database,now I have to show a message "Processing" while data gets generated. And when its done this message should go away by itself,so any suggestion please let me know.
Hope someone can point me in the right direction. I have a field on a form and if I tab out of it without entering any data and go to the next field, I could do with a message box coming up stating you must enter a value in this field, and then have the curser go back into this field.
I am currently using access 2010 and I have been wrecking my brain to figure out how to display message in place of my charts when there is no data. Currently, whenever the chart has no data to display it just shows a white blank space. I would like to replace that with a message.
I want to display the message "Processing Record ? of ???..." on the screen while my vba code is running without interruption. Since the msgbox requires the user to click a button to continue, what is the simplest way to display this message on the screen without interrupting the program or requiring user interaction?
I have a few update queries that will check X number of items, based on what the user inputs.
What I want to do (if possible), is return the number of items selected based on what they type in a message box.
I have set all warnings to false for update queries.
Example:
User runs the "Check Items By Location" query via the form, then receives a message stating "[Total Selected] Items Have Been Selected from [Location]."
I am using an unbound object frame to display an .png image file which is set in vba.
The image is an excel chart saved as a .png
The problem I have however is that the image I save from Excel is great quality, and is pretty tack sharp, but when I display the same file in the unbound object frame in access, it is not nearly as sharp.
I am setting the picture property of the control as:
ubImageUserChart = "c: empmyChart.png"
It displays alright, but is just a bit fuzzy - still quite legible, but it is a complex graph with a lot going on - has regressions and formulas etc on the graph, and they need to be very clear.
BTW - the unbound frame is the same size as the Excel chart which gets saved as a .png file. If I tile the images (Access unbound frame and original file in picassa preview) side by side - they are identical - size, orientation etc.
It is not practical for me to try and do the chart natively in access as it is way to complex. I am using access vba to drive an excel session to do all the statistical yack work and chart rendering, then displaying a png image of the resulting chart in an unbound object frame in access.
Hi Gang, I'm new to this forum so please bare with me. I have spent the last two days trying to resolve, or work out why on earth I am getting this error message. I am at the point of pulling my hair out - its SO frustrating so *any* suggestion would be great. I have created a small database for plant (as in flowers) details. To cut a long story short, its a simple db fronted by a form that allows me to display and add records together with an associated image (stored outside the db). I was trying to write some code that would look at the control that displays the image and, if there is no image associated with a particular record, it would display an "add new image" button. If there is an associated image, the buttons visable property is set to false. I had ammended a section of code for the forms "on current" event and saved the changes. I then changed to form view, tried to enter a new record and access throws up the error message. It does not matter which field I try to add data in, the same error still happens. I have checked, and re-checked all my code and property settings for every control and field on the form and I can not track down what is causing this error. I noticed from searching this forum that someone else had this error but the resolution does not appear to have been posted so can anyone help in any way at all. My grateful thanks, Kenny
The record source of a form that I have is based on a user selection in a combo box in the header of the form. When the form opens there may or may not be any records to display. Currently I put up a message box when there are no records displayed but this only happens when the form is newly opened.
I was wondering if it is possible to have a label displayed in the detail section instead whenever there are no records to display, such as something along the lines of "There are no records to display with the selected option, please choose an alternative.".
I realise that I may be asking the impossible but I'm a member of the "If you don't ask you'll never know" club.
I am not sure where to start or go about creating message box that would display "No results found" if my queries return no results. My search of the forums hasn't been fruitful.
I have created one form that has a text box and a button that works as a search function to run through the tables and displays the applicable queries. Currently, if no results are returned nothing happens. Preferably I would like a message box to display stating that there were "No results found". I would assume that the code would be associated with the "Find" button. Here is the VBA code as it stands, again, I haven't even attempted to add code for a message box.
Private Sub Find_Click() On Error GoTo Find_Click_Err
If DCount("Heading", "Service Desk Manual Query") > 0 Then DoCmd.OpenQuery "Service Desk Manual Query", acViewNormal, acReadOnly End If
I was using the following code on a field (ItemCode) that was indexed to prevent duplication of records. The intent is that the user will get an error message that a duplicate exists before they enter all the data for the record and get the built in error message that Access 2003 provides when an index violation has occurred.
Code: Private Sub ItemCode_BeforeUpdate(Cancel As Integer) Dim Answer As Variant Answer = DLookup("[ItemCode]", "tblQuestions", "[ItemCode] = '" & Me.ItemCode & "'") If Not IsNull(Answer) Then MsgBox "Item Code already exists" & vbCrLf & "Please enter unique Item Code.", vbCritical + vbOKOnly + vbDefaultButton1, "Duplicate" Cancel = True Me.ItemCode.Undo Else: End If End Sub
Now, the index for this is based on two fields (ItemCode and Question Group). I would like to display the same message before update but don't know how to include the second field in the syntax.
I have a form developed with Access 2000.with command buttons I built using the standard command button wizard for navigation, new record, copy record, save record etc. I have a few small VB scripts associated with these buttons- mostly message boxes. I had to upgrade from Win 2000 Pro to Win XP Pro and Office 2003. Now whenever any of the buttons are selected, I get a message box stating "Object required"...even if all I want to do is navigate from one record to another. Another person uses this DB too. They have not had any updates and are still running 2000 Pro and Office 2002. I can still add records etc, but this message is annoying and doesn't exactly instill confidence in the application
I ran the ToolsDB UtilitiesCompact & Repair utility with no positive results. I couldn't find anything in the archives. Does anyone out there want to guess why this just started to happen, what caused it and most of all, how I resolve the problem?
