Hallo allerseits,
ich habe folgendes Problem. Auf einer Maske soll nach bestimmten Kreterien gesucht werden. Damit die Abfragen, denen ich die Parameter übergebe, funktionieren müssen gewisse Felder gefüllt sein. Dafür habe ich folgenden VBA Code geschrieben :
Private Sub AbfrageStart_Click()
1 If Not IsNull(Me![KostenstelleDropDown] Or 2 Me![VonDatum] Or Me![bisDatum]) = True Then
3
4 If IsNull(Me![RechnungsArtDropDown]) 5 Then
6 Me![RechnungsArtID] = "wie ""alle"""
7 End If
8
9 10DoCmd.OpenQuery "abf_KontoAusgehendeRechnungen"
11
12 Me![abf_KontoAusgehendeRechnungen 13 Unter].Form.Requery
14
15 DoCmd.Close acQuery, 16 "abf_KontoAusgehendeRechnungen"
17
18 Me![Gesamt] = DSum("AR_Betrag", 19 "abf_KontoAusgehendeRechnungen")
20
21 Else
22 MsgBox ("Bitte alle Felder ausfüllen")
23 End If
24
25 End Sub
Wenn die Felder vonDatum, BisDatum nicht gefüllt sind (Zeile2) bekomme ich immer den Fehler "Sie haben die vorherige Operation abgebrochen" und werde auf Zeile 10 verwiesen.
Hoffe es gibt ein paar VBA Cracks da draussen. Ich bin auf jeden Fall mit meinem Kenntnissen am ende.
Gruß Codon