docmd.cancelevent

Hvis du åbner rapporten fra en kommandoknap i en formular, kan du indsætte flg. kode i kommandoknappens hændersesprocedüre:

On Error GoTo fejl
DoCmd.OpenReport "Rapport1", acPreview, "", ""
fejl:
DoCmd.CancelEvent

Du kan iøvrigt bruge den til at fange alle fejl.

Not sure what you are trying to do, but the no data event gets fired IF there is no data. Then you could show a message and then stop the report from being opened by SETTING cancel to true. EXAMPLE>

msgbox "NO Data ...."
Cancel = True

terry problemet er at når jeg åbne rapporten fra formen åbner jeg to rapport og hvis den ene er tom kommer der fejlmeddelse
"openReport-handlingen blev annulleret." det er den meddelse jeg vil have fjernet/fanget men !!!!!!

Hvis du benytter Docmd.CancelEvent i rapporten's NoData, og åbner den fra databasevinduet, så fungerer den. Men hvis du åbner den fra en formular, får du en fejl, idet du også skal fejlbehandle formularens Docmd.OpenReport. Det er derfor jeg i mit svar også har indsat en On Error.

Med andre ord: Den fejl du får, kommer ikke fra rapporten, men fra formularen.

Juks-> Normal plejer jeg at ignorere alle fejl på den slags knapper.
Jeg ville således blot skrive:

On Error resume next
docmd.Openreport "DinRapport", acviewpreview


Derved undgår du fejlmeddelelsen.
Der er ikke den store risiko ved denne grovsortering af fejl, da det er meget begrænset hvilke typer fejl, som kan opstå ved denne handling.

/Thomas

jeg har fundet ud af det jeg fjerner bare err.desription , men ville gerne have fat i fejlnr. det kunne jeg ikke lige få til at virke men roder med det senere nu fjerner jeg bare fejlen . tak for hjælpen

hvilke variabler kan indeholde værdien Null og kan variable det ?

hov så har jeg det problem at den ikke køre koden færdig den skulle meget gerne også åbne rapport2 selvom der ikke er en rapport1

kode
...........
On Error GoTo Err_Kommandoknap18_Click
bolstatus = False
   
    Dim stDocName As String
    Dim stDocName1 As String
   
    stDocName = "faktura"
    DoCmd.OpenReport stDocName, acPreview
    stDocName1 = "faktura_med_cd"
    DoCmd.OpenReport stDocName1, acPreview, "", ""

Exit_Kommandoknap18_Click:
    Exit Sub

Err_Kommandoknap18_Click:
 
    'MsgBox Err.Description
    Resume Exit_Kommandoknap18_Click
   
End Sub
..........

så smider jeg bare resume derop eller ?
køre den så også videre selvom der er en rapport1
--------------
On Error GoTo Err_Kommandoknap18_Click
bolstatus = False
   
    Dim stDocName As String
    Dim stDocName1 As String
   
    stDocName = "faktura"
    DoCmd.OpenReport stDocName, acPreview
  Exit_Kommandoknap18_Click:
stDocName1 = "faktura_med_cd"
    DoCmd.OpenReport stDocName1, acPreview, "", ""


   

Err_Kommandoknap18_Click:
 
    'MsgBox Err.Description
    Resume Exit_Kommandoknap18_Click

glem lige de sidste to spg , jeg tror jeg er ved at være træt ren vollapyk
Sov godt

Skal lige bruge et par timer til at dechiffrere dine kommentarer. Er også brugt - så tak i lige måde :o)