Modules & VBA :: Modify Tags (metadata) In JPG Files
Jun 18, 2014
I've question reqarding modyfying tags (metadata ) in jpg files.
I've found some code which allow to read tags from jpg files through vba but only read - editing is not possible.
So my question is: vba code which allow modify tags in jpg files? {Below code for reading tags, requires to turn on following reference in vba editor: Microsoft Shell controls and Automation )
Public Function getFileMetadata(fileFolder As String, fileNm As String, _
metadataType As String) As String
Dim objShell As Shell32.Shell
Dim objFolder As Shell32.Folder
Dim objFolderItem As Shell32.FolderItem
I have to write a code for my database,i have folder with files "pending Review" and a table with column "tblExcelLocation". when i run my database all the files from pending review folder goes to "tblExcelLocation" on a click of button.But,if the files already exists it should not insert those files and insert the rest.For this i tried to write a code but i think i m unable to do that .
Code: Loop through files in folder folderspec = "O:QA FilesQC ReportingPending Review" Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.files
I want to modify a table called FC_TEMP via adding some columns from another table called AVERAGE_TRP. Do I have to create a new query table and then insert the output into a new table?The following code shows me : Cannot execute a selected query.Is there a way to update this FC_TEMP table without creating another temporary table?
Code:
Public Sub Update() Dim strSQL As String strSQL = "SELECT FC_TEMP.*,AVERAGE_TRP.[Average_new_TRP_EUR],AVERAGE_TRP.[Average_old_TRP_EUR],AVERAGE_TRP.[Average_Margin] " & _ " FROM FC_TEMP " & _ " INNER JOIN AVERAGE_TRP ON FC_TEMP.[PRODUCT_ID] = AVERAGE_TRP.[PRODUCT_ID]"
My problem is simple, and i imagine it is easy to fix. I have more forms in my db than I would like to count, and I have a couple lines of code to add to the onload event of each form.
Is there an way, without actually having to edit each form myself, to add the code i need to add to all forms. Is there some code I can write that will let me modify the on load property of a form, and save it?
I know what i need to do, minus the part where i actually change the onload event.
just building my first database. Eventually I want to make it open to others/make changes as new research is done. Can I add change-tracking etc. later (perhaps once I know ANYTHING about code etc.). Basically - can I worry about that later, or--like structure etc.--does it have to be set up before I can enter any data to begin with?
(for the initial part in which I am the only one using the db I was planning on just having it stamp the date of the original entry)
I am trying to create a customizable report that would allow the users to choose fields. I have a pretty common code that I found online and adapted it, but it fails on the first SetReportControl function.
The error reads: Run-time error 2465: Application-defined or object-defined error
Could it be something as simple as an incorrect reference? I have checked multiple times, but I am stumped.
Code: Option Compare Database Option Explicit Sub MakeReport()
[Code].....
This is a trial run, in the end I need to be able to open a report, then adjust the Report controls within 1 or more subreports inside the main report. That is a battle for another day.
Code: Function FormatTime(Amount As Double, Rate As Double) As String Dim x As String x = CStr(Round(Amount / Rate * 60)) FormatTime = Format(x / 1440, "hh:mm:ss") End Function
How can i modify this code to accommodate time that exceed 1440 minutes?
What I want to do instead is open an existing .XLSM wokrbook delete or update the 7 sheets it creates and replace them with the new query results from access.
I love this code below because it works really well but now I have a new requirement. I have a workbook that has a "dashboard" sheet that looks at the sheets from acccess and summerizes the data. So, I'd like Access to open that "template" excel workbook and delete the old sheets and put in the new ones..The required sheets to keep are called "Metrics", "Validation" and "Mara"
What I was trying to do for the past few hours was another work around which was to have Access run this code, then excel run some code to import the "dashboard" formulas but I can't get it to copy to another workbook because it links to the OLD workbook..Here is the working code that needs modding:
Code:
Option Compare Database Public Function ExportAdvanced() Dim strWorksheet As String Dim strWorkSheetPath As String Dim appExcel As Excel.Application Dim sht As Excel.Worksheet Dim wkb As Excel.Workbook Dim Rng As Excel.Range Dim strTable As String Dim strRange As String Dim strSaveName As String Dim strPrompt As String Dim strTitle As String Dim strDefault As String
I frequnetly need to export tables for others to use. I export them as .csv files usually and I'd like a way to include what I call metadata in the .csv file.
ideally, it would appear on the top of the file before the comma-delimited data actually starts.
I can't figure out how to include the table field descriptions in a file.
It would be quite useful to have a help button on my forms which when pressed, showed a short help tag for each button etc on that form. SO the user knows exactly what each function does.
Im not aware of any built in function to do this? Is there anyway to show all the 'ControlTip Texts' on the page?
I have written the following code. I want to change the status of my order when reminaing products shipped is equal to zero. When I run this code I get error " Cannot update. Database or object is read only". I think that this error is because that I am using the front end of the database.
Code:
Private Sub Form_AfterUpdate() Dim dbs As DAO.Database Dim rstTest As DAO.Recordse Dim strQuery As Strin strQuery = "SELECT OrderingT.Order_ID, OrderingT.UnitsRequested,OrderingT.OrderStatus, ([UnitsRequested])-Count([Product_ID]) AS [The Remaining
Access 2007-2010 format Form, 9 bound fields, grouped together Smart Tag = "UnitGroup"
Summary: Needing to run VBA whenever the value is changed within one (or more) of these fields. User could be placing new value (defaults at 0) or editing(changing) previous value entered.
I am not good on writing loops/next statements. But I am wanting to make an image visible to true when someone changes the value within the group.
This is what I have so far:
Dim ctlGroup as Control For Each ctlGroup in Me.Controls If ctlGroup.Tag = "UnitGroup" Then 'finds the smart tagged controls If ctlGroup Then 'if any fields within group changes value then Me.Image321.Visible = True 'show image End if End If Next ctlGroup
I don't even know if I am close with my code - clearly it is not complete and lots of holes of wonderment!! Maybe it would be easier just to use the individual even (on change) with each individual field (9).
I produce visualisations for architecture companies and use a lot of 2d images of people, cars, trees, skies, etc. As it stands now, I have a folder that contains a huge amount of images that I flip through when I create a new image. I have seen that some websites, such as [URL] .... allow you to filter through an image database based on different tags.
I would like to create a similar database, but stored locally on my computer. I have actually never used Microsoft Access before, but I'm thinking that this might be the best program for me to use. Is this true?
Essentially I would like to organize my library of images of 2D people based on things like: 'staring', 'bicycle', 'looking up', 'back view', 'crowds', 'pointing', 'sitting' etc.
Default Searchable Tagged List...I'm trying to create a list of items that allows me to tag each item with essentially unlimited tags and perhaps a limited number of other fields. Later, I'd like to be able to search that list for specific items by the tags that they have. Finally, I'd like to either export or copy/paste the results.
I want to replace my String ("Evidence required of this please" ) in this code 1) following which works fine, with a variable (textToPaste) as in code 2) which doesn't work.
1) TextBox1 = "<div><font style=""BACKGROUND-COLOR:#FFFF00"">Evidence required of this please</font>"
We use Access to pull data from data warehouse and this year they upgraded the new system on the back end and moved old data to the new one. Problem is that in some tables having big fields such as Asset Long Description, Work Long Description and when moved to the new database system, somehow there are certain some XML tags such as <br> </br, etc.. added into the description. So when we pull the data onto the table in Access, is there a way to remove those tags out of the descriptions fields? a macro or module?
I did not know where to ask this question or how to ask, so please excuse me.
We have an Access 2007 database that updates an Access 2003 database. My problem is, the data in 2007 is formatted and when the 2003 table is updated, it displays the html formatting tags. Is there a way to remove the formatting (convert to plain text from rich text?) during the update?
I have a database which I can add to, edit and delete via an asp.net page, it also allows me to add html tags. My problem is when the data is then rebinded to the page any HTML tags are changed from '<' to '<' and from '>' to '>' this results in the tags and contents being displayed on the page as text instead of being interpreted as HTML and then formatting the page - most frustrating!
Any help is greatly appreciated, this is a relatively new area for me so many thanks in advance.
I'm trying to append some text to a field used for comments for a Team Member profile. I don't really want to create a comments table for multiple comments regarding changes to the profile.
Some comments already exist and I want to add some more information programmatically when the profile is updated using a batch update at the end of a reporting period.
I thought it'd be easy in a query,
New Comment:[EXISTING COMMENT] & "; Additional Comment" But I was getting HTML Tags when I tried to concatenate the strings. "<div><font color=black> EXISTING COMMENT HERE </font></div>" then a linefeed and <div> </div>; Additional Comment HERE.
I found a function to kill all the html tags but the visual linefeed and the " " tag won't go away.
I'd like to concatenate two pure text strings to get one pure text string to put back into the comments field which will just be text wrapped with no forced linefeeds.
I'm trying to write a simple little database. At one point on a form, I'm trying to merge all the pdf files in a particular folder. (I'm using the pdftke.exe program and there will be multiple pdf files)
It all works perfectly if I call it as below, with the actual paths already hard coded. It combines all the pdf files and renames it to the "merged filename.pdf" correctly
Dim stAppName1 As String stAppName1 = "C:a folder namepdftk.exe C:another folder nameprints*.pdf cat output C:folder where merged file will bemerged filename.pdf" Call Shell(stAppName1, 1)
However, I'm trying to have it work with the middle portion (the folder where all the pdf files are) being created on the fly so to speak.
The middle portion/path I have stored from a previous form and it's stored in a table.
So I'm trying the below, but doesn't seem to work.
Dim stAppName1 As String Dim combine_files As String combine_files = (this pulls a path from a stored field on the open form) + "" + CStr("*.pdf")
stAppName1 = "C:a folder namepdftk.exe (combine_files) cat output C:folder where merged file will bemerged filename.pdf" Call Shell(stAppName1, 1)
With the code above, it doesn't seem to do anything.
Basically what I am trying to accomplish is uploading multiples file automatically into server. The code I am trying to use works great if the user wants to upload a single file manually because the code prompts you to choose the file and I am wondering if there is a way to tweak the code. here is the code I am using
Code: Private Sub Form_Load() Dim objFTP As FTP Dim strfile As String
I added to my database a button to ouput the data to PDF. It works as it should. We do print out the letters in paper and put a copy in the folder from the client (connected with the ID nr). From time to time we need to attach a PDF document to the letter and combine it. My question is now if it is possible to have some code to the button that when it finish the output to PDF it will combine all the PDF files that are in the folder and put it in a second folder. After that, I need to put the combined PDF in another folder.
