Search results

Pretty grim to have to split and loop on every item! If you have 100 items and no repeats then you're close to 1000 iterations :oops:

Your description gives the feeling that you have a flaw in your tables design. If all products are available to all warehouses then you should have a single products table and a separate table for warehouses, and then a junction table for WarehouseProducts. Then, when you get a new product you...

You're welcome! (y) (I'm guessing that you took the above 'Returns' code from here and hand-edited it to resemble what is output by the function because you still have double quotes around (New) !)

Just in case it isn't obvious from the code, the trick is to add the delimiter you use to separate your values in the string before and after the value you seek. That way you avoid matching on partials. However, you also have to avoid the gotcha where the string being searched does not have a...

You could equally have removed the extra ( before .Column ! (Apologies, I didn't test 😁 ) Glad it works for you

Try this variation Dim strSelected As String Dim varItem As Variant Dim delim As String delim = ", " With Me.lstLiveWorksOrderList For Each varItem In .ItemsSelected If InStr(delim & strSelected & delim, (.Column(2,varItem) & delim) = 0 Then...

UPDATE tblItems SET ITPath = '1 > 3', Item = '(New)', InUse = True WHERE flocID = 7 and DocNo = 1; The two statements above are exactly the same, except using the single quotes prevents with having to futz with your triple double quotes when building your SQL string, and is handled...

Why are you removing the quotes from {0} and '(New)'? ITPath and Item appear to be string datatypes, no? For {3} You need to build the SQL more explicitly (use {3} and {4}). strSql = StringFormatSQL("UPDATE tblItems" & _ " SET ITPath = {0}," & _...

Hi Albert, just a quick heads up, due to this site's propensity to attract spammers, you will need to have around 100 posts before you will be able to post links. (y) d

This description, which I did not fully understand, is a bit of a 'code smell' that you have poor/sub-optimal table design. The answers here are really just band-aids to work around what should be extremely simple with better designed tables.

If notes will be the same for every possible inserted record then you can try: oDB.Execute "INSERT INTO Discrepancies( Accession, Main_Family, Genus, Infra, Raw_Box, Collection, Notes) " & _ "SELECT B.Accession, B.Family, B.Genus, B.Infra, B.BoxNo, B.Collection, '" &...

What is your question? Do you have an error? It looks like you need an extra space at the end of the above: "WHERE A.Main_Family ='" & sFamily & "' " & _ ^ | space here Also here...

No, it wasn't. Just cool your boots. It's OK to disagree without resorting to acting like you're in the playground.

Wow! :oops: Can they do this anonymously? Do you get any idea of who reported it?

QED Try it for any mod! The ignore button isn't there. You can't ignore mods.

Is that because you only Debug.Print when you are in a Level <> 1 ? Perhaps move that line outside the End If ?

Can you give us an example of such a library?

If Colin's links above don't help, then post the code you use and explain where it faults for you. Are you saying your target machines do not have the required dll's registered on them?

What results do you get when you try using Doc's suggested search?

Not me. You. You're the mod. Guess you have to evaluate everything in terms of whether Jon might end up bankrupt now. I reckon everyone has a fair idea of where the line might be - now they will have to think harder about how close they want to sail.