Avatar billede marwied Nybegynder
07. juli 2004 - 10:47 Der er 2 kommentarer og
1 løsning

msgbox når post ikke findes

Jeg har følgende kode som bruges til at finde en post i en formular og den virker fint, men jeg vil gern have msgbox som fotæller når den ikke finder nogen post (jeg kan godt finde ud at lave en msgbox). Jeg har prøvet med if-sætningerne og NoMatch men jeg kan ikke får det til at fungere. Kan det have noget at gøre med at jeg bruger RecordsetClone??


Private Sub SøgFU_nummer_AfterUpdate()
' Søg efter den post, der svarer til tekstboksen.
    Dim rs As Object

    Set rs = Me.RecordsetClone
    rs.FindFirst "[FU_nummer] =" & Me![søgFU_nummer]
    Me.Bookmark = rs.Bookmark
    [søgFU_nummer] = ""
         
    End Sub
07. juli 2004 - 10:49 #1
Private Sub SøgFU_nummer_AfterUpdate()
' Søg efter den post, der svarer til tekstboksen.
    Dim rs As Object

    Set rs = Me.RecordsetClone
    rs.FindFirst "[FU_nummer] =" & Me![søgFU_nummer]
    If Rs.Nomatch then
        msgbox "Ingen post!", vbinformation
    else
        Me.Bookmark = rs.Bookmark
        [søgFU_nummer] = ""
    endif
         
End Sub
Avatar billede marwied Nybegynder
07. juli 2004 - 11:28 #2
Det kører. Super tak skal du have! Jeg havde glemt "Else" og så giver det jo ikke logik.
07. juli 2004 - 11:30 #3
Nej, hende Else er vigtig ;)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester