Modules & VBA :: Display Background Image Via Message Box
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
I have a lost/found property database form (soft-copy), it works perfectly fine. We enter the details of the found property and then take the print (hard-copy) of the form. Whenever an owner comes to claim his/her item we search through our soft-copy for the specific item/record and then ask them to sign on the relevant hard-copy record after which we cross out the hard-copy and write with a permanent marker "Restored". Whereas in the soft-copy we type in the details that it has been claimed/restored in available text fields. However, is there anyway that I can display a big large banner saying "restored" in front of only that record(s) where item(s) has been restored to the owner. It doesn't have to be a text banner/label, it could also be a picture saying "Restored". I have manage to get a print message box set-up for this but it's too annoying. Every time we pull out an item's record that has been restored, that message box comes up and then we have to click OK to proceed. I can remove it but only if can find a replacement.
If I use the word template named "ABC.dot" as attached and write the following piece of code to print off the letters with different appropriate background , it works perfectly fine:
Code: Sub PrintLetters() Application.DisplayAlerts = False Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim r As Long Set cn = New ADODB.Connection
[Code] ....
But if I combine two templates together in one template as attached "Capita.dot" then it doesn't display background picture at all in any of the cases. I am using the same piece of code but the background image is not displaying. The background image shows logos for each letter like For capita letters , the logo will be capita . For Friends Life letters the logo background will be different.
Public Function DisplayImage(ctlBrowserControl As Control, _ strImagePath As Variant) On Error GoTo Err_DisplayImage Dim strDatabasePath As String Dim intSlashLocation As Integer
[code]...
This works perfectly to display the image I'd like through WebBrowser control I put onto the form....HOWEVER --and here's my question--the image size is not bound to the size bounds of the control size itself.So if my control is 2 inches by 2 inches and the image is 16 inches by 16 inches, then the image doesn't fully show within the control.
I'd like to get the control to show the whole image (sized down as appropiate, or sized up as appropriate) such that the whole image is contained within the control.I know how to limit the display of any image in HTML.
I'm working on a database for my holiday pictures. The pictures are organized in folders per trip/date/location.
When viewing the data of a particular trip, I want the form to display a random image from the respective folder (path stored in database).
I already found a function to count the files in the folder:
Code: Function GetFileCount(folderspec As String) As Integer ' Returns a count of files in folderspec, or -1 if folder does not exist Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") If fso.FolderExists(folderspec) Then GetFileCount = fso.GetFolder(folderspec).Files.Count Else GetFileCount = -1 End If End Function
I have some images stored in a SQL Table which is linked into Access. These images have to be stored in the database as I also reference them on other platforms (Android, Web etc).
In my Access programme I need to display a continuous form / report showing each image. Now, good old Access cannot display multiple images stored in the database on a continuous form. It can only do this if it is referencing the path to the image.
When the user views the form they will only see about 12 images at a time. I thought of a workaround which is to write the database images back to file to a local temp directory when the user loads the form. The user would be happy to wait for say 10 to 15 seconds whilst the form loads.
However, I cannot find an efficient algorithm to write the images back to a file. The one I am using is a BinarytoString algorithm by motobit which is fine for very small images, but anything over 100kb (which is still pretty small) it goes sooooo slow.
How to quickly write an image stored as a long binary in an Access DB back to a file? Or do I need to crack open my Visual Studio and write some C# DLL to use instead...?
I have a piece of code that I'm using to display an image on a report based on a path saved to each record. the code is:
Code: Option Compare Database Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If IsNull(Me.ImagePath) Then Me.ImgPic.Picture = "O:BellinghamIntranetProductionLabelsNo Label.bmp" Else Me.ImgPic.Picture = Me.ImagePath End If End Sub
It seems like every few months the code crashes access and then never works again. When I debug, the part that is highlighted is:
Code: Me.ImgPic.Picture = Me.ImagePath
The only way i've found to correct it is to delete the report and the module and copy them back in from a backup database. What could be causing this code to crash or how to stabalize my database to prevent this from happening again.
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 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.
All access application is realized as MDI container. (if I'm right)
In this case it is possible to set the MDI object background image instead develop splash screen. This picture always in background form open another forms or reports, does not depend on the screen resolution, etc, etc ... Splash screen must be removed in order to realize the other forms or reports.
How to set Access 2013 application backgroundimage, and backgroundImageLayout?
I have a flash file that jerks when run in access but if i run it with a pop up it runs fine so I want to run the pop up but, keep it hidden. Without using minimize.
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?
Is there anyway to customize the background of a message box that is brought up via a macro or VBA event? It would be kind of fun to have a stop sign image in the background of a "save and close form" prompt.
I have a form that I would like to update a picture on using VBA. The source of the picture path is in part a query that is not bound to the form. So far I have the following code that is pretty much working, but with a couple flaws.
Code: Private Sub Form_Current() LoadDefaultPicture End Sub Sub LoadDefaultPicture() Dim db As DAO.Database
[Code] ....
This is working. However, when I change the record the picture flashes the current picture once and then loads the new picture. It is like it reloads the current picture then loads the new one. I'm hoping there is a way to get rid of the flash.
Also, the code fails here: strDefaultPictureName = rs.Fields("AttachmentName")
When the query does not return a record. I can definitely fix this by adding an if statement to check for a record, but I'm kind of perplexed at why it is failing at that line. I would expect it to assign an empty string to that variable name and then fail on the next command where I try and set the ".Picture" property of the image.
I was wondering if this was possible. I did a search on Google and on this form and I could not find anything. Is it possible to display a form without displaying Microsoft access in the background? In other words I would like to display just the form alone with access running or if possible a way to have access minimized with the form still showing. If anyone knows any tricks on this could be performed I would be very grateful.
I have developed a form which contains a subform. The subform contains a bound image for display. Think of a 'department' form with 'employee' records on the subform containing an employee photo. (Very standard stuff.) It used to work correctly but I must have inadvertantly changed something but cant find it.
The problem is that the photos don't display at all as I move through the department records - using the main form's navigation. I need to use the subform navigation to show any of the photos. When I get a photo to show for a particular department then I can navigate through all the employees in that department and their photos display correctly. (If I run the subform separately then the photos display correctly too.)
I want to make a form or report that acts similar to a "bookshelf" view showing around 4 or so images in each row. When an image is clicked on it takes you to that record. I know a report can be used to make rows but how do I get the images to display? They are stored in a folder and not actually embedded into the database. I have a VB code that displays the image on my forms but this doesn't work when it's a continuous form or report. It shows the same image until I click on that record then the image changes.
I have two tables, tblAdmin (which contains my attachment field, a logo) and tblRecords (which contains customer records.I created a form (frmMain) that displays customer records, and hooked frmMain to qrySelectCustomer, which is a query that... you guessed it!... selects a particular customer to view. I wanted the logo to appear at the top of this form, but it's in a separate table. I need to allow the database owner to go in and swap out one logo for another whenever he wants (if the business changes or whatever) and all my subsequent forms/reports have to pull this logo.
I can't use any kind of DLookUp for the image/attachment, because DLookUp only fetches text not images, so what I did was create a subform called frmLogo and hooked the subform to tblAdmin where the attachment resides. It works perfectly when I just open the frmLogo, the image displays as it should. But when I open frmMain, I get a parameter value prompt because it can't find the image! Even though the subform frmLogo that's on frmMain is hooked to the correct frmAdmin table!
I tried several things, but the only thing that solved the problem was to ALSO hook frmMain to tblAdmin, which I do NOT want to do, because then I have to create a THIRD form for the customer data and hook THAT to qrySelectCustomer!
lets say i have a data field which contains hyperlink for a html file, can i display the content of the file from the hyperlink in the form when the form is loaded?
I know that Access can display images, I have seen it done. I am using Access 2013. I am trying to display a photo in a form field. In the underlying table I have tried using attachment and OLE Object data types and I couldn't get the picture to display with either.
I'm currently making a form to display employee info in a nice fashion..
Anyway I have the employee photo displayed in an image control.
I want to be able to apply some tricks to the borders to make it look better. To do that, I need to make the width property equal to the width of the actual image while the height is restrained
My end goal is to display an image for every row on a report and/or form.I reviewed the various options for that, and finally decided the best thing to do would be to put the images in a separate folder in my PC, and put the path for the image in a column in the main(primary) table.In my form or report, I put an Image Frame, and put the ImagePath column in the Control Source. All is well and good.
However, I realize the inherent problem with having the full path in every single row, since I could move the image folder and I'd be hosed.So, I created an Environment Variables table, and I have a column called ImageFolder. Then I changed the name of the column in the primary table to ImageName instead of ImagePath. My hope was to be able to concatenate ImagePath and ImageName as the Control Source on the form and report.
I couldn't figure out a way to do that, since they are in two different tables, with no direct relationship between the tables.For the report, I created a workaround by creating a query of all the fields, including a field which concatenated the path and the ImageName. But since I use the form/ sub form to update the records, that wouldn't work for the form. My next attempt was to try to add an ImagePath back again to the primary record, but to have it default to the value that's in the EnvironmentalVariables table.
I want to display the linked image in form view. 'ole object' has the property 'display type' as content or icon. but both settings shows only the icon and file name. 'attachment' field does show image in form view but attaching images (jpeg or png) will increase database size.