opdater felt?

Hej Faroe,

Hvad er Søgetekst og Søgefilter? Hvor sætter du dem?

jeg bruger ca. denne kode (SøgeFilter =NewFilter)

Function NewFilter()
Dim sFilter As String

   
    sFilter = "1 "
       
    If Not fldIsEmpty(Me.fld1) Then
        sFilter = sFilter & " AND dbFld1 = " & Me.fld1
       
    End If
   
    If Not fldIsEmpty(Me.fld2) Then
        sFilter = sFilter & " AND dbFld2 = " & Me.fld2
       
    End If
   
       
   
   
    Me.Filter = sFilter
   
    If sFilter = "1 " Then 'No filter
        Me.FilterOn = False
    Else
        Me.FilterOn = True
    End If
   
    Me.tglFilter.Value = Me.FilterOn
   
    Me.Refresh
   
End Function

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

P.S. Har du ikke fri i dag, det er jo grundlovsdag :-)

problemet er at søgefeltet bliver ikke opdateret før man trykker Enter

Jo, jeg har taget mig den frihed at arbejde hjemme i dag (som selvstændig har man jo aldrig rigtig fri ;o)

Jeg har lige siddet og leget lidt med det!
Jeg har lavet denne kode som virker:

Private Sub søgefeltet_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode <> 113 Then ' "KeyCode = 113"  ={F2}
      Me.Refresh
      SendKeys "{F2}", False
     
      Me![søge underfrmular].Form.Filter = "DitFelt Like '" & ME!Søgefeltet & "*'"
      Me![søge underfrmular].Form.FilterOn = True
    End If
End Sub


Forskellen er False i sendkeys i stedet for True.

Fungerer fint, tak for hjælpen :-)

kan du lige lave et svar, så du kan få poins :-)

ah, thnx :)