VBA OpenForm with WhereCondition + LIKE on different fields

[Gicu]

@moke -sorry, I worked with Giorgio on another thread where he uploaded a sample:
https://www.accessforums.net/showthr...352#post474352

[moke123]

@moke -sorry, I worked with Giorgio on another thread where he uploaded a sample:
https://www.accessforums.net/showthr...352#post474352

Thought I was going blind. Didn't see any sample in this thread.

[Giorgio]

Thanks Vlad, I used your modified DB (the one in which the switchboard is unachanged, I inputted 11111111 as a phone number to be searched and it crashed. I do not understand why it does not happen to you...

Vlad, my experience taught me to trust you ... I checked on two other machines, one the server where the DB is actually stored and another one that works through the LAN, both of them show no problems, so it looks like it is my computer or my office installation... In any case decompiling and compilind did not evidentiate any error...
Is there a way I can check my pc to better locate the problem?

this is what I found on the register of events (it's at the same time of the last crash)

- <Event xmlns="http://schemas.microsoft.com/win/2004/08/events/event">- <System>
  <Provider Name="Microsoft-Windows-Security-SPP" Guid="{E23B33B0-C8C9-472C-A5F9-F2BDFEA0F156}" EventSourceName="Software Protection Platform Service" /> 

  <EventID Qualifiers="16384">1003</EventID> 

  <Version>0</Version> 

  <Level>4</Level> 

  <Task>0</Task> 

  <Opcode>0</Opcode> 

  <Keywords>0x80000000000000</Keywords> 

  <TimeCreated SystemTime="2021-04-02T16:07:57.3415329Z" /> 

  <EventRecordID>38144</EventRecordID> 

  <Correlation /> 

  <Execution ProcessID="0" ThreadID="0" /> 

  <Channel>Application</Channel> 

  <Computer>PTF03</Computer> 

  <Security /> 

  </System>


- <EventData>
  <Data>0ff1ce15-a989-479d-af46-f275c6370663</Data> 

  <Data>1: 3178076b-5f4e-4ace-a160-8aae7f002944, 1, 1 [(0 [0x00000000, 1, 0], [(?)( 1 0x00000000)(?)( 2 0x00000000 3 0 msft:rm/algorithm/hwid/4.0 0x00000000 0)(?)(?)(?)(?)])(1 )(2 )(3 )]</Data> 

  </EventData>




</Event>

[Gicu]

Hi Giorgio,
Have you compared the Access build numbers (under File\Account\About Access) in the ones that work against the one that doesn't? Maybe a recent Office update is messing up yours. What happens in the new one I've sent you today, is that working? How about if you try to search for a fax or email that doesn't exist, do you get the same problem with each of those search results forms?

You could try to run the Office Repair (https://support.microsoft.com/en-us/...e-a6b40c5bb88b) or as the last resort re-install it.

Cheers,
Vlad

[Giorgio]

Thanks again Vlad, in your sample it works perfectly, when I put it in my database I get an error:
Runtime Error 3265 not found in this collection
and debugging it the yellow flag goes on

Set qdf = CurrentDb.QueryDefs("qrySearch")

I'm getting mad.. And yes the access versions are all identical and yes the error is happening in every search
Trying the Office repair
Did the Office repair, both quick and complete... no changes...

[Gicu]

You need to copy the query called qrySearch from my sample into your db. You should really leave just one form for the results as they are all identical, it is just the Where condition in the Docmd.OpenForm that is different and that is not in the results form(s).

Cheers,
Vlad

[Giorgio]

You need to copy the query called qrySearch from my sample into your db. You should really leave just one form for the results as they are all identical, it is just the Where condition in the Docmd.OpenForm that is different and that is not in the results form(s).

Cheers,
Vlad

Good morning Vlad. I did it and now it works, thanks a lot. And I managed to unify the result forms in only one. It took a while to understand but now it works.Have a wonderful Easter Vlad and, again, thanks a lot for your help

[Gicu]

Thank you Giorgio, Happy Easter to you too!
Cheers,