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
image = DLookup("PowerCurve", "DeviceT", "DeveloperProduct = '" & Forms!DeviceF!D_ExistingDeviceCmb & "'")
View Replies
ADVERTISEMENT
Mar 17, 2015
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
View 2 Replies
View Related
Jul 24, 2015
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
[Code] ....
View 2 Replies
View Related
Feb 24, 2014
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.
View 2 Replies
View Related
Feb 23, 2015
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.
View 11 Replies
View Related
Nov 24, 2014
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?
View 2 Replies
View Related
Dec 22, 2004
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!
View 1 Replies
View Related
Aug 13, 2014
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.
View 7 Replies
View Related
Apr 4, 2015
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.
View 3 Replies
View Related
Mar 25, 2014
I want to know how to display picture in object frame in a form ?
I would like to select the data from a table ...
View 1 Replies
View Related
Jun 25, 2014
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.
View 3 Replies
View Related
Apr 11, 2006
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.
Any and all assistance is appreciated.
View 5 Replies
View Related
Aug 5, 2005
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
Please help?
View 2 Replies
View Related
Jun 7, 2005
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 to get answer..
vsap
View 1 Replies
View Related
Jun 27, 2007
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.
View 3 Replies
View Related
Dec 8, 2005
Hi,
I am trying to notify users to fill a specific field in if they forget it and can not work out which event to use.
Can you please help
Cheers
g
View 4 Replies
View Related
Aug 11, 2014
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.
View 12 Replies
View Related
Jun 24, 2013
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?
View 2 Replies
View Related
Sep 10, 2014
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]."
View 3 Replies
View Related
May 18, 2013
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.
View 7 Replies
View Related
May 13, 2005
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
View 10 Replies
View Related
May 2, 2005
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.
Tim
View 1 Replies
View Related
Jun 20, 2013
I want to display a custom message box when I open my query. how to do this?
View 1 Replies
View Related
Sep 26, 2013
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
[Code] .....
Find_Click_Exit:
Exit Sub
Find_Click_Err:
MsgBox Error$
Resume Find_Click_Exit
View 7 Replies
View Related
Jun 27, 2011
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.
View 3 Replies
View Related
Jan 10, 2006
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?
View 1 Replies
View Related
