title image


Smiley Fehlermeldung Aktion Openreport wurde abgebrochen!
Hallo, habe ein Accessdb unter 97 über Netzwerklaufwerk laufen.

sporadisch bekomme ich folgende Fehlermeldung wenn ich einen Bericht über Knopfdruck generieren möchte:

"Sie haben eine Methode des DoCmd-Objects verwendet, um in VB eine Aktion durchzuführen, haben dann aber in einem Dialogfeld auf "Abbrechen" geklickt.

...z.B. mit der Close-methode ein geändertes Formular geschlossen und haben dann

in dem dialogfeld, das sie danach fragt,ob sie an dem formular vorgenommenen änderungen speichern möchten,auf abbrechen geklickt". verstehe leider diesen Hinweis nicht.



Folgender Code verwende ich zum Bericht erstellen:



Private Sub Bericht_Click()

On Error GoTo Err_Bericht_Click



' Dim stDocName As String



'stDocName = "Analyse_Bericht"

'DoCmd.OpenReport stDocName, acPreview, , "Berichtsnummer=" & Me!feld0



Dim stDocName As String

Dim db_Abfrage As Database

Dim tb_Abfrage As Recordset

Dim Mldg, Titel, Wert1, Wert2

Mldg = "Berichtsnummer eingeben:" ' Aufforderung festlegen.

Titel = "Berichtsnummer:" ' Titel festlegen.

' Meldung, Titel und Standardwert anzeigen.

'BerichtNr = InputBox(Prompt:=Mldg, Title:=Titel, XPos:=2000, YPos:=2000)



If IsNumeric(Me!feld0) And Me!feld0 >= "1" Then

stDocName = "Analyse_Bericht"

Set db_Abfrage = CurrentDb()

Set tb_Abfrage = db_Abfrage.OpenRecordset("Select * From Analyse where Berichtsnummer =" & Me!feld0 & "")

If tb_Abfrage.BOF = True Then

MsgBox "Keine BerichtsNr vorhanden, bitte erneute Eingabe!"

Else

Bearbeiter = InputBox("Optional noch weitere Bearbeiter eingeben?")

If StrPtr(Bearbeiter) = 0 Then

'"Abbrechen"

MsgBox "Anwendung Bericht wird geschlossen!"

End

tb_Abfrage.Close

Set tb_Abfrage = Nothing

Set db_Abfrage = Nothing

End If

Filename = InputBox("Optional noch einen Berichtsnamen zu BerichtNr_" & Me!feld0 & " eingeben?")

If StrPtr(Filename) = 0 Then

'"Abbreichen"

MsgBox "Anwendung Bericht wird geschlossen!"

End

tb_Abfrage.Close

Set tb_Abfrage = Nothing

Set db_Abfrage = Nothing

End If

If Filename "" Then Filename = "_" & Filename





Beanstandung = tb_Abfrage!Beanstandungsort

Analysatorname = tb_Abfrage!Analysatname

DoCmd.OpenReport stDocName, acPreview, , "Berichtsnummer=" & Me!feld0





End If

Else

MsgBox "BerichtNr muss eine Zahl >=1 sein, bitte erneute Eingabe!"

End If

tb_Abfrage.Close

Set tb_Abfrage = Nothing

Set db_Abfrage = Nothing

Exit_Bericht_Click:

Exit Sub



Err_Bericht_Click:

MsgBox Err.Description

Resume Exit_Bericht_Click



End Sub





hoffe jemand kann mir weiterhelfen, vielen dank.



Grüße

Steffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: