Search results

It seems that because of the misscomminication there is one last obstacle left. This is the original code: If blnNext_i Then .FindNext "artOms LIKE ""*" & strOms & "*""" ElseIf blnPrev_i Then .FindPrevious "artOms LIKE ""*" & strOms & "*"""...

OK guys, I found out what the problem was. A huge MISCOMUNICATION between me and the other person. I will sort it out and give you the detailed story ;-) Thanks again guys.

Hi Jal, Again thanks for the quick reply. There is only 1 version of access installed. (access 97) I put the split code in the form. I think its realy realy strange because the code works perfect on my laptop.

There is no error message. The function simply doesnt work. I put a trace on the split function but it doesnt even get there. And I use the same search criteria as I use on my laptop where the function DOES work. Im lost here.

One more question ;-) How can it be that on my laptop (Windows XP (SP2) and office 97) it works perfect. But on the pc of my friend (Windows XP (SP2), office 97) the newely built function doesnt work? He recieved the correct file.

IT WORKS!!!!!!!!!! WOOOOOOOOOOOW You guys are the greatest... This was very important to me. Thanks again everybody..

OK..I adjusted the code to this: Const comma = "," Dim words() As Variant, word As Variant If Not IsNull(txtOms) Then words = Split(txtOms, comma) For Each word In words sWhere = sWhere & " [artOms] Like '*" & Trim(word) & "*' AND " Next word If InStr(sWhere, " AND ") > 0 Then sWhere =...

Thanks again bro.. But I have no clue as how to use it with my search function I am lost here :-(

Thanks bro, I read the whole topic but I couldnt find wich references to use. MS DAO 3.6 object... MS ActiveX Data objects 2.1.. OLE automation MS 8.0 object library are all checked...

Hello Guys, Access 97 doesnt recognize the .split function in my code: 'op omschrijving Dim words() As String, word As Variant If Not IsNull(txtOms) Then words = Strings.Split(Me.txtOms, ",") ' For Each word In words sWhere = sWhere & " [artOms]...

Guys.. I figured it out after days of testing ;-) Initially I had the following apps installed on my Windows XP system: Visual studio 2008 MS SQL Server 2005 MS Office 2007 (which I uninstalled) and MS office 97 Now I completely formated my system, put Windows XP (SP2) on it and only office...

Thanks Pat, But the thing is: I have an application that is built in Access 97 At home I have Access 97 installed. But when I open it I can't see the database window. Even if I hold down the 'shift' key. The program uses an autoexec to startup. So basically I want to see the database window...

Hello, I have to adjust a database for somebody who has developed it in access 97. I installed access 97 (next to my runnig version of 2007) but I cant open the database window. Holding the 'shift' key isnt working. I know the database starts from 'autoexec'. Can anybody please help. When I...

Jal...Thank you very much for your help. This is exactly what I needed. I am gonna use the "AND" operator on purpose because I want to find articles who match my criteria. Thank you very much again for all you help.

Hello, I got following now: Dim words() As String, word As Variant, collecWords As New Collection 'Split on each comma words = Strings.Split(strRELNaam, ",") ' "txt" is the name of of your textbox For Each word In words collecWords.Add Trim(word) Next word For Each word In collecWords 'build...

Thank you.. I will have a go at it right away... I'll keep you posted.

Thanks for the reply. But I just want to use 1 textbox. Could you please explain your anwser a little bit more into detail please?

Hello everyone, I have searched the forum but I just haven't found quite what I am looking for. I have a form with one unbound texbox (txtZoekenOpTrefwoordCursusCode). My search function as shown below works great with 1 keyword. If Me.txtZoekenOpTrefwoordCursusCode = "" Or...

Bro, You are a lifesaver!!! Thank you very much it works perfect. Thank You Thank you thank you!!!!!

Hello, Here is the textfle i am trying to remove the first 5 lines. I hope you can find it. thanks in advance.