Meddelseboks ved forkert indtasning

Private Sub hentMedarbejderdata(Initialer)
    Set Db = OpenDatabase("C:\Users\Bruger\Documents\Medarbejderliste.accDB")
   
    Set medarbejder = Db.OpenRecordset("MA_liste")
   
    With medarbejder
        For r = 1 To medarbejder.RecordCount
            If LCase(Initialer) = LCase(.Fields(2)) Then
                indsætBogmærke "texnavn", CStr(.Fields(3))
                indsætBogmærke "texmail", .Fields(5)
                indsætBogmærke "textel", .Fields(6)
                Rem... o.s.v.
                Rem...
               
                medarbejder.Close
                Exit Sub                    'her forlades loopet
            End If
            .MoveNext
        Next r
    End With
   
Rem Ej fundet, da der ikke er flere medarbejdere
    MsgBox "Initialerne: " & Initialer & " kunne ikke findes i databasen"
   
    medarbejder.Close
    Db.Close
End Sub

Hej supertekst

Det viker næste, det er bare et lille problem.

Boksen komme fint op, men den stopper ikke de andre processer (koder) nå jeg siger ok til boksen så overføre den de forkerte initialer og gemmer met word dokument som om et er galt!!!

Er der mulig at stoppe alle processer indtil man har skrivet rigitg initialer ???

Hvis du ændre din Sub til en Function og lade den returnere om Initaler var ok eller ej - så kan du styre det videre forløb.

Hej Supertekst

Jeg har ændret Sub til Function i koden, men den overføre stadigvæk et forket indtastet intialer. Hvad gør jeg forkeret?????????

Private Function hentMedarbejderdata(Initialer)

    Set db = OpenDatabase("C:\Users\Bruger\Documents\03 Casper\01 Sager\Erling Sørensen\Dokumentskabeloner\Medarbejderliste.accDB")
   
    Set medarbejder = db.OpenRecordset("MA_liste")
   
    With medarbejder
        For r = 1 To medarbejder.RecordCount
            If LCase(Initialer) = LCase(.Fields(2)) Then
                indsætBogmærke "texnavn", CStr(.Fields(3))
                indsætBogmærke "texmail", .Fields(5)
                indsætBogmærke "textel", .Fields(6)
                Rem... o.s.v.
                Rem...
               
                medarbejder.Close
                Exit Function
            End If
            .MoveNext
        Next r
    End With
   
    Rem Ej fundet, da der ikke er flere medarbejdere
    MsgBox "Initialerne: " & Initialer & " findes ikke, indtast gyldige initialer "

    medarbejder.Close
    db.Close
End Function

Det er strukturen der ikke er korrekt. At ændre til Function er ikke tilstrækkeligt. Den skal kaldes og returnere et svar, som du så kan teste.

Hej Supertekst

Jeg er ikke med på hvordan det gøres, at kaldes og returnere et svar?????

Eks.:

Private Sub Illustration()
Dim Initialer As String
    Initialer = "xx"
    If hentMedarbejderdata(Initialer) = True Then
Rem        ...Ok-proces
Rem        ...
    Else
        MsgBox "Initialerne: " & Initialer & " findes ikke, indtast gyldige initialer "
Rem        ... Fejl-process
    End If
End Sub
Private Function hentMedarbejderdata(Initialer)
    Set Db = OpenDatabase("C:\Users\Bruger\Documents\03 Casper\01 Sager\Erling Sørensen\Dokumentskabeloner\Medarbejderliste.accDB")
    Set medarbejder = Db.OpenRecordset("MA_liste")
   
    With medarbejder
        For r = 1 To medarbejder.RecordCount
            If LCase(Initialer) = LCase(.Fields(2)) Then
                indsætBogmærke "texnavn", CStr(.Fields(3))
                indsætBogmærke "texmail", .Fields(5)
                indsætBogmærke "textel", .Fields(6)
                Rem... o.s.v.
                Rem...
               
                medarbejder.Close
                hentMedarbejderdata = True
                Exit Function
            End If
            .MoveNext
        Next r
    End With
   
    Rem Ej fundet, da der ikke er flere medarbejdere
    medarbejder.Close
    Db.Close
   
    hentMedarbejderdata = False
End Function

Jeg kan ikke få det til at virke. Hvad gør jeg forkert??????

Det er jo svært at sige når jeg ikke kan se din kode.

Tror ikke jeg kan hjælpe dig mere..

Den ny kode gøre værke fra eller til

Den overføre fint brugeroplysninger for en rigitg person i min database, men hvis person ikke findes i min database så forsætter den som om intet var hent. Meningen med de kode var da at den skulle stoppe og fortælle at person ikke fandtes - ikke eller har jeg misforstået din kode?

Lukket