On no data - fjerne vinduet om canceled

Setwarnings True og false

Den kode, som kalder formularen, kan f.eks. have en On Error Resume Next i starten:

On Error resume next
Docmd.OpenForm "Din formular",,,,,

Ordren er:
    DoCmd.SetWarnings False
    DoCmd.SetWarnings True
Vh Henrik13

mlhave->Er det egentlig ikke en rapport, du mener? En formular har da ikke en "On no data"-event!?

Men det ændre ikke på at mit svar skulle virke, da din sidste msgbox stammer fra din knap, som kalder rapporten/formularen

henrik13> Jeg haved årøvet med SetWarnings, men den virkede ikke.

thomasjepsen> du har ret det var en rapport keg mente og du havde ret i at det var i koden der kalder formularen af problemet lå. Her er den samlede kode - jeg har bare markeret en msgbox ud der viste Err.Description.

Private Sub cmdDownlines6_Click()
On Error GoTo Err_cmdDownlines6_Click

    Dim stDocName As String

    stDocName = "rapMLMDownlines_6"
   
    stLinkCriteria = "[tblMedlemmer.DistributørNr]=" & "'" & Me![DistributørNr] & "'"
    DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Exit_cmdDownlines6_Click:
    Exit Sub

Err_cmdDownlines6_Click:
    'MsgBox Err.Description
    Resume Exit_cmdDownlines6_Click
   
End Sub

fint, det gir det samme resultat, ja :o)