Søgning efter records

I will take a look at this too Susanne!

Thanx Terry :)

the easiest method to do this is actually use the combo box wizard. It asks you if you want to find a record on the form.

I will still take a look though!

when I get the correct database :o)

I really hope you have just recieved it - lol

that helped :o)

Hi Susanne, I have sent the dB return, any commants?

Hi Terry
yes just recieved your mail a few minutes ago - terrific job :)

Hvorfor er det nødvendigt at oprette et objekt?? Troede i min naivitet at jeg kunne nøjes med

'Me.Recordset.FindFirst "[Navn] = '" & Me!txtSoegNavn & "'"

_____________________________________________________
Private Sub txtSoegNavn_AfterUpdate()
'Søg efter instruktør hvis instruktør ikke findes fremkommer msgBox
    On Error GoTo ErrHandler
   
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Navn] = '" & Me!txtSoegNavn & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
   
    Exit Sub
   
ErrHandler:
MsgBox "Instruktøren findes ikke.", vbOKOnly + vbInformation, "Ingen poster fundet!"
   
    Exit Sub
   
End Sub
_____________________________________________________________

Ser du også har oprettet en combo - good ides :)
Owe Y some extra for this - lol

Private Sub cboSearchID_AfterUpdate()
' Find instruktør ud fra InstruktoerID

    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[InstruktoerID] = '" & Me![cboSearchID] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
     
End Sub
__________________________________________________________________
_______________________________________________________________

No you dont owe me extra for the combo.
If you look at the code from the combo it is very much like thatused in the txtSoegNavn field. Actually I got the combo box wizard to create this for me.
For some reason it doesnt work in your form, I think its because you are using an SQL statment as the record source. Anyway I just made another form and created a combo with the wizard there then stole the code!

Får ingen ErrorMsg hvis instruktøren ikke findes...

Er det fordi Err også skal dim???

Hi Susanne, soory forgot to look at that!
It isnt an ERROR if a record isnt found!

Private Sub txtSoegNavn_AfterUpdate()

    On Error GoTo ErrHandler
   
   
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Navn] = '" & Me.txtSoegNavn & "'"
    If Not rs.NoMatch Then
        Me.Bookmark = rs.Bookmark
    Else
        MsgBox "Instruktøren findes ikke.", vbOKOnly + vbInformation, "Ingen poster fundet!"
   
    End If
   
    Exit Sub
   
ErrHandler:
        MsgBox "ERROR: " & Err.Description
       
    Exit Sub
   
End Sub

> terry
Nej selvfølgelig du har ret - det er ikke en error hvis der ikke findes records.... Tænkte igen for abstrakt..........

Sometimes Access VBA makes me feel VERY stupid :(

Thnx for helping me :-)

You have to start somewhere Susanne, and even after many years of programming its sometimes hard to see the forest for the trees :o)

Right Y are - and I´m NOT going to give up :)

Er sgi alt for stædig - lol

Thanks, and watch out for those trees :o)