Søgning i database

Jeg ved godt man kan oprette en hændelse men der kommer også Erstat-funktion med og den ønsker jeg ikke.

http://www.activeserverpages.dk/aspdigital/kapitel2/search.asp

doh - sorry... forkert sted...

http://www.eksperten.dk/spm/94912

or
http://www.eksperten.dk/spm/94139

Hi Terry

I´ve allmost got it working, your answer on question http://www.eksperten.dk/spm/94912

But I get the error:

Compile error:
Sub og Function not defined

And a marking off this line:

If Not fldIsEmpty(Me.Søgefelt11) Then

Can you help me whith this one?

The fucntion is included in the other example: http://www.eksperten.dk/spm/94139

But its here too, just place it in a module!

Function fldIsEmpty(fld As Variant)
   
    If IsNull(fld) Or fld = \"\" Or IsNull(Len(fld)) Then
        fldIsEmpty = True
    Else
        fldIsEmpty = False
    End If
   
End Function

it just tests to see if anything is entered

I can´t figure it out. It is posible to mail you my database so you can have a look at it?

dkTeBrSa@Europe.lego.com

Note: the .com will not be included in the hyperlink!

Thanks a lot Terry.

I´ll post the correct code here later!!

Fomse:-)

Her er det rigtige svar fra Terry:

Dette er placeret i en hændelsesprocedure:

Private Sub Universalt_Click()
On Error GoTo Err_Universalt_Click

    Dim db As Database
    Dim tdf As TableDef
    Dim fld As Field
    Dim fld1 As Boolean
    Dim stDocName As String
    Dim stLinkCriteria As String
       
    Set db = CurrentDb
   
    stDocName = \"\"
    stLinkCriteria = \"\"
    fld1 = True

    If Not fldIsEmpty(Me.Søgefelt11) Then
    Set tdf = db.TableDefs(\"katalog\")
           
        For Each fld In tdf.Fields
         
        If fld.Type = dbText Or fld.Type = dbDate Then
            If fld1 Then
                stLinkCriteria = stLinkCriteria & \" [\" & fld.Name & \"] Like \'*\" & Me.Søgefelt11 & \"*\'\"
                fld1 = False
            Else
                stLinkCriteria = stLinkCriteria & \" OR [\" & fld.Name & \"] Like \'*\" & Me.Søgefelt11 & \"*\'\"
            End If
           
        End If
       
        Next fld
  End If
     
    Me.Filter = stLinkCriteria
    Me.FilterOn = True
   
\'DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Universalt_Click:
    Exit Sub

Err_Universalt_Click:
    MsgBox Err.Description
    Resume Exit_Universalt_Click
   
End Sub

Dette er placeret i et modul:

Function fldIsEmpty(fld As Variant)
   
    If IsNull(fld) Or fld = \"\" Or IsNull(Len(fld)) Then
        fldIsEmpty = True
    Else
        fldIsEmpty = False
    End If
   
End Function