Recent content by John Sh

I'm running Access 2016 and currently running an update. I am writing the sql in the vba editor. OK. I've run this after the update and it seems to be working properly now. Apparently some sort of bug in my setup. My apologies for wasting your time and my thanks to all for your efforts. You are...

I appreciate the reduction in typing and will implement that. I actually did know that but typed the extra anyway. Back to my original question. The code above produces a result only if "SpellMain" is true, regardless of the state of the other flags. The first criteria of the WHERE clause...

It's complicated, but. 1) run a scan of all the relevant raw files using a recursive function. Every specimen in the collection has been photographed. Each raw file is about 70mb. 2) record the family name of each box of images. 3) record the Accession number of each image in a box, along with...

The booleans are independent of each other and can be either true or false. They are the result of a series of spell checks. If any one of them is true then "Notes" is set to indicate a spelling error. The text in the fields that have been spell checked and found to be in error will change to...

I have a series of 5 boolean controls where any one of them being true will cause text in a control to change. I can't get the code to work without the first criteria being true. I have tried all manner of variations without success. Do I need to use a single sql statement for each boolean, or...

The existing data errors are confined to the older entries and do not affect current data input, so it is mainly a case of cleaning up as time permits. All new critical data input is controlled by dropdown lists and while it is still possible to select the wrong item in a list, any item selected...

I have created a form that has all the inherent errors in the main table with links to spelling corrections, duplicate entries, family/genus mismatches and a host of other problems. The idea is to bring all these errors into a single hub where the supervisors can work their way through. Many of...

The "findfirst" statement that works The code that finally worked is a slight variation on your suggestion, rs1.FindFirst "[family] like '" & "*" & sStr & "*'" Where sStr is the result of left(str,nlen) Many thanks. John

Thanks to all. I will try "like" and see how it goes. I haven't heard of "Simil" but will have a look at it and MajP's demo. The database I am working on was created in the 1980s and had nothing like a combo box so it was a case of whatever was entered was accepted. I am now cleaning up that...

I have a situation where a number of entries have been mis-spelled and I need to find the correct spelling in a reference list. As an example, the mis-spelled word is "Dryopteriaceae" and the correct spelling is "Dryopteridaceae". My idea is to start with the full word and work backwards until a...

Good morning David and thank you. In the load event, "sViewer = Photos.exe" . This is passed to a shell object and opens whatever the default viewer happens to be. I've tried this with a couple of different viewers and it opens whatever I set in settings as the default. The path, obviously...

Some of the computers are on a uni network so should be using the same viewer and I can control that to a certain degree. It's the couple of private machines that are of concern. I will try the suggestions put forward and see how that works, otherwise I might have to limit this particular...

Thanks David. My description maybe misleading. Firstly, I am displaying 70 mb NEF files that Access cannot handle, so have to use external software. I need to be able to display the images in the default viewer on various computers, so have to be able to determine the default for each machine. I...

Thanks. I'll give it a try.

I am using the following code to open a picture viewer via vba oShell.NameSpace(0).ParseName(sPath).InvokeVerb "Open" Then this code to close the viewer Dim Exe As Object For Each Exe In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & sViewer & "'")...