Search results

Minty, Your solution worked. This seems to be the hardest part for me to understand is how to concatenate the query. THANK YOU! The_Doc_Man For some reason, my Loop and rs.close got deleted from my close. Thank you for the help as well.

I have the following code that does the following Loop through a table that contains ".jpg". When found, run my MetaTag procedure. Next I want to update the record with the MetaTag info. I can get the first part to work but some how can't see what I am missing to get the UPDATE query to work...

I wanted to show you all the final product. I still need to do some tweaking but the code is working perfect. As you can see, because I am using a tabular form, all the fields get populated when I run the code. I have some ideas but for now I am happy with the direction it is going and much of...

Steve thank you and THANK you to the others that have helped me here and not making me feel like an idiot. I haven't used Access like this in years and it's been tuff getting back in the saddle. It's been fun but head banging at the same time. Just to let you know, I do a lot of research...

I am using Windows 7. I did a repair once before and if I need to reinstall it I will if you think that would help. Steve, I ran your example and it worked perfect! So I am thinking it might be something with my code. Can I use you code in my project? I have never had the need to use Shell...

Mark, This is the exact way I call this. I call the procedure from a button Private Sub Command8_Click() Call getFileMetadata("C:\Users\Jim\Google Drive\Genealogy\01-People\01.1-Ray Side", "Isaac Ray Story.jpg", "photo") End Sub This is the code I use. Option Explicit Public Function...

Got it now. I selected it, closed the program and started it again. I am still getting that darn error 91 With block variable on this line: Set objFolderItem = objFolder.ParseName(fileNm) But now I have the Shell32 command loaded. I also notice the following is set to nothing. Set...

That selection doesn't show it. :(

I post a screen shot that I hope is helpful. ALT-F11 Tools Reference

That could be a problem because I don't see Microsoft Shell Controls and Automation to select from. How can I get it because it seems to be missing.

Here is what I did Dim objShell As Object ' New SHELL32.Shell Dim objFolder As Object ' New SHELL32.Folder Dim objFolderItem As Object ' New SHELL32.FolderItem ' Set objShell = New Shell Set objShell = CreateObject("Shell.application") Set objFolder =...

Sorry about that. Line: Dim objShell As New SHELL32.Shell Error: Complier error user-defined type not defined

I have searched and search with no luck. I have a Access 2010 table that has links to all my pictures (jpgs) and I want to read in the IPTC metadata and display it on the form. I found the following code but get errors with the SHELL32 section. I call the program this way and this is the code...

Steve that is great site ana bookmarked it. Now I need to learn how to read and display the IPTC metadata for the photo. This one is going to take a bit of research I am sure. Thanks again for all your help! Jim

Thank you. I will check it out. Jim

I found a setting under OPTIONS that shuts it off. Not sure if that is the best way, but will try yours as well. My next query I am going to work on is the compare the 2 tables. If the file is in Catalog but not in Import, then delete the one in Catalog. This has been a fun project and will be...

Steve, The program is now working PERFECT! Thank you so much for helping this old man with this. It turned out the extra code in my module was the problem. One last question. When I run the query within the form, is there a way to not have the user be prompted with the screen, "You are about...

Steve. Thank you! It looks like it is working. I'll let you know more later. Thanks again! Jim

I'll go back and review those parts and didn't know I had the DELETE code in there twice. My bad.. Thank you and I will let you know how it goes. Jim

Steve, Thank you for being patient with me. I haven't been good in explaining my code. Call ListFilesToTable([Directory], , True) --- This calls the routine that creates the Import table DoCmd.OpenQuery "MergeData" --- This calls the query that adds the data to Catalog. If ran...