if sats med 2 muligheder

Du må have et unikt felt i tabellen Brev, der relaterer sig til et andet felt i en anden tabel, så du hele tiden er siker på, at du måler på den rigtige kunde.

Det skulle vel ikke väre nödvändigt da qryMarkeraBrev markerer om de er printet eller ikke?

Den skal fölgende:
Tjekke i table Brev om brevet er printet ud eller ikke. Er det ikke skal det printes ud. Er der ikke nogle breve at printe skal den komme med meddelelsen at der ikke er nogle breve at printe.

Du kan bruge en funktion, der hedder DLOOKUP:

If DLOOKUP("Printed", "Brev", "kriterie til at finde den rigtige row i tabellen Brev") = "Ja" Then

  Msgbox "Der findes intet at printe"

Else

    stDocName = "repBrev"
    DoCmd.OpenReport stDocName

Response = acDataErrContinue
prompt = "Vill du markera breven som utskrivna?"
    If MsgBox(prompt, vbYesNo) = vbYes Then

    stDocName = "qryMarkeraBrev"
    DoCmd.OpenQuery stDocName
    End If

End If

kjulius > Jeg tror ikke det er det der menes. Se min kommentar. Jeg tror simpelthen der kan være flere breve der ikke er printet, og rickie efterlyser en simpel løkke, der løber alle postrer igennem og udskriver dem, hvis feltet printet er = false.

Det er som Mugs skriver. Jeg skal pröve at forklare lidt bedre.
Har lavet en formel hvor der bookes breve. Når et brev er booket har det "status not printed". Når det er printet opdaterer qryMarkeraBrev det til status printed.
Når man trykker på skriv ud og der ikke findes nogle breve at skrive ud så skal der komme en msg (VbOKOnly) som forklarer at der ikke er nogle breve at skrive ud. Hvis der er breve at skrive ud så skal den köre:
stDocName = "repBrev"
    DoCmd.OpenReport stDocName

Response = acDataErrContinue
prompt = "Vill du markera breven som utskrivna?"
    If MsgBox(prompt, vbYesNo) = vbYes Then

    stDocName = "qryMarkeraBrev"
    DoCmd.OpenQuery stDocName
    End If

:-)

Okay, men så kan du vel bruge funktionen DCOUNT i stedet (eller måske ikke *G*):

If DCOUNT("Printed", "Brev", "Printed = 'Ja'") = 0 Then

  Msgbox "Der findes intet at printe"

Else

    stDocName = "repBrev"
    DoCmd.OpenReport stDocName

Response = acDataErrContinue
prompt = "Vill du markera breven som utskrivna?"
    If MsgBox(prompt, vbYesNo) = vbYes Then

    stDocName = "qryMarkeraBrev"
    DoCmd.OpenQuery stDocName
    End If

End If

Jeg går her ud fra, at den kode du opgiver rent faktisk udfører loopet og udskriver alle breve, hvor der ikke er en markering for udskrevet. Denne formodning er baseret på, at du ikke angiver noget kriterie før kaldet af koden, altså går jeg ud fra, at det er alle breve der bliver udskrevet og evt. efterfølgende markeret som udskrevet. Måske et forkert resonnement?

Noget i denne stil (Jeg er lidt presset på arbejde og har ikke tid til at prøve den):

Dim db As Database, Rst As Recordset
Set db = CurrentDb
Set Rst = db.OpenRecordset("Brev",dbOpenDynaset)
While Not Rst.EOF
If printet = false then
stDocName = "repBrev"
DoCmd.OpenReport stDocName
end if
Rst.MoveNext
Wend
Rst.Close
Set Rst = Nothing

Mugs > det er det jeg skal bruge. Den virker bare ikke som tänkt.....måske når du har mere tid ;-)

Får du nogen fejl?

Nej det gör jeg ikke men den skriver ud uanset om det er printet eller ikke. Her er koden:

Private Sub SkrivUt_Click()
DoCmd.SetWarnings False

Dim db As Database, Rst As Recordset
Set db = CurrentDb
Set Rst = db.OpenRecordset("tblBrev", dbOpenDynaset)
While Not Rst.EOF

    If Printet = False Then
    stDocName = "repBrev"
    DoCmd.OpenReport stDocName

    stDocName = "qryMarkeraBrev"
    DoCmd.OpenQuery stDocName
    End If

Rst.MoveNext
Wend
Rst.Close
Set Rst = Nothing

End Sub

:-)

Lukker