Office: (Office 2003) In VBA Abfrage ausführen

tropicana · 15. Februar 2007

Hallo Zusammen,

nach langer Zeit muß ich nun wieder in Access arbeiten.

Nachdem im Formular ein Button angeklickt wird soll eine Abfrage stattfinden.
Wenn Daten vorhanden soll gedruckt werden.
wenn keine Daten vorhanden nur ein Hinweis.

Wie kann man sowas realisieren?
Habe mal ein Beispiel angehängt.

Gruß
tropicana

:)

Hoschus · 17. Februar 2007

Hallo tropicana,

ich habe mir deine Datenbank nicht angesehen, aber realisieren lässt sich so etwas relativ einfach: Code:

Private Sub DeinButton_Click()

Dim db As Dao.Database
Dim rs As Dao.Recordset
Dim strSQL As String

strSQL = "SELECT * FROM DeineAbfrage/DeineTabelle"

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)

If rs.RecordCount > 0 Then ' Daten sind vorhanden
DoCmd.OpenReport "DeinBericht", acViewPreview
Else
MsgBox "Keine Daten vorhanden", vbOKOnly, "HINWEIS"
End If

rs.Close
Set rs = Nothing
Set db = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

tropicana · 17. Februar 2007

Hallo,

vielen Dank für die schnelle Antwort.

Genau das habe ich gesucht.
Irgendwie ein Blackout gehabt.

Nochmals Danke.

Gruß
tropicana

FW · 17. Februar 2007

... weniger aufwendig wären die Aggregatfunktionen, wie DCount oder DFirst oder gar das Report-Ereignis NoData...

Hoschus · 18. Februar 2007

Ja, ja, wenn es schnell gehen soll, denkt man natürlich nicht ausreichend nach. *stupid

FW hat natürlich Recht. *redface

Das Einfachste ist, das Report-Ereignis NoData zu verwenden, etwa in der Art: Code:

Private Sub Report_NoData(Cancel As Integer)

On Error GoTo Fehler

' Fehler ausgeben, wenn keine Daten vorhanden sind
MsgBox "Der Bericht" & Chr(13) & "'" & Me.Name & "'" & Chr(13) & _
"kann nicht angezeigt werden, da er keine Datensätze enthält." _
, 16, "Hinweis"

' Ausgabe abbrechen
DoCmd.CancelEvent
Application.Echo True

Ende:
Exit Sub

Fehler:
MsgBox "Fehler im Bericht '" & Me.Name & "' !" & Chr(13) & Chr(13) & _
"Fehler-Nr.: '" & Err.Number & "'" & Chr(13) & Chr(13) & _
"Fehler-Beschreibung: '" & Chr(13) & Err.Description & "'"
Resume Ende

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

tropicana · 18. Februar 2007

Hallo Zusammen,

auch Euch möchte ich danken.

Mit Euren Ideen werde ich mit Sicherheit weiterkommen.

Gruß
tropicana

Office: (Office 2003) In VBA Abfrage ausführen

In VBA Abfrage ausführen

In VBA Abfrage ausführen

In VBA Abfrage ausführen

In VBA Abfrage ausführen - Similar Threads - VBA Abfrage ausführen

Teil des Zellinhaltes abfragen in VBA

Auslesen einer Abfrage in VBA Modul

Automatisch aktualisierende Tabelle? Hilfe!! :-)

VBA Hilfe Abfrage ob UserForm vom anderen User geöffnet ist

Primärschlüssel/Fremdschlüssel aus 2.Tabelle automatisch einfügen

VBA Ja nein Abfrage mit Ausgabe

VBA: SQL Abfrage ausführen und Resultat in eine Tabelle schreiben