Wer kann mir hier helfen??

[Mogwai]

In meiner Arbeit muss ich jetzt ein selbstgeschriebenes Microsoft Accsess Programm benutzen um Quartalsabschlüsse zu machen. Dummerweise kommt jetzt aber die Fehlermeldung "Laufzeitfehler 3464 - Datetypen in Kriterientypen unverträglich". Jetzt kann man natürlich auf Debuggen gehen und sich den Fehler selber anschauen. Da ich eine Absolute Null in sowas bin hab ich mir gedacht ich frag mal jemand der sich damit auskennt.
Hier jetzt noch der Fehler der mir beim Debuggen makiert wird.


If Summe = 20 Then
Reports!Quartalsabschluß.[Quartal_1].ControlSource = "Quartal 1"
Reports!Quartalsabschluß![QSumme1].ControlSource = "= sum([Quartal 1])"
Reports!Quartalsabschluß.[Quartal_2].ControlSource = "Quartal 2"
Reports!Quartalsabschluß![QSumme2].ControlSource = "= sum([Quartal 2])"
Reports!Quartalsabschluß.[Quartal_3].ControlSource = "Quartal 3"
Reports!Quartalsabschluß![QSumme3].ControlSource = "= sum([Quartal 3])"
Reports!Quartalsabschluß.[Quartal_4].ControlSource = "Quartal 4"
Reports!Quartalsabschluß![QSumme4].ControlSource = "= sum([Quartal 4])"
DoCmd.Close acReport, "Quartalsabschluß", acSaveYes
GoTo Druck
End If
Druck:
DoCmd.OpenReport "Quartalsabschluß", acViewPreview
Reports!Quartalsabschluß.Visible = True
Ende:
DoCmd.Close acForm, "Quartalserfassung", acSaveNo
End Sub
Private Sub Befehl18_Click()
On Error GoTo Err_Befehl18_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Befehl18_Click:
Exit Sub

Err_Befehl18_Click:
MsgBox Err.Description
Resume Exit_Befehl18_Click

End Sub



Die Fettgedruckte Zeile zeigt er mir als Fehler an. Is natürlich nicht der gesamte Programmcode. Wenn noch irgendetwas an Informationen fehlt, einfach sagen.
Der der mir eine Antwort geben kann die Funktioniert, kriegt beim nächsten Descentspielen eine Tüte Chips nach Wahl von mir .

PS: Ich hoffe ich hab jetzt nicht euren Respekt verloren wenn es nur ein total simpler Fehler is

[BruNP]

Vielleicht schmeckt ihm das scharfe ß nicht und er erkennt, dass man es nach der geltenden Rechtschreibung mit Doppel s schreibt

[Mogwai]

Das wäre sows simples... ich versuchs mal Morgen.

[LX]

uh.. irgendein VB Zeugs.

Keine Ahnung von den Access Schnittstellen die du da aufrufst..

Den Fehler würde ich so Interpretieren dass "acPreview" was du nach "Quartalsabschluß" übergibst nicht dem Typ entspricht denn
die Funktion "DoCmd.OpenReport" erwartet....
kannst ihn ja mal weg lassen und sehn was rauskommt :P

[trykyn]

das mit dem ß kann schon sein,

aber gibts den Report denn auch?? muss in der Datenbank vorhanden sein

[Worm]

Code: Alles auswählen

DoCmd.Close acReport, "Quartalsabschluß", acSaveYes <-
GoTo Druck
End If
Druck:
DoCmd.OpenReport "Quartalsabschluß", acViewPreview

Mal so ins blinde, "DoCmd.Open acReport, "Quartalsabschluss", acViewPreview" ?
Der andere syntax zwischen der ersten und letzten zeile des codes hier irritiert mich..

[LX]

Das ist Visual Basic. Man muss nicht alle Parameter angeben.

Konstruktionen wie MsgBox "Blabla",,,Icon.OK
sind auch möglich..

[trykyn]

und noch ein Gedanke:

Der markierte Command selbst ist ziemlich sicher nicht falsch (ausser das ß macht wirklich probleme was ich irgendwie nicht glaube), sondern der Fehler wird erst dabei gefunden.
Sprich der Fehler liegt IM Report, und wird beim öffnen entdeckt.

Da du ein Datatypunverträglichkeit hast, würde ich irgendwie vermuten dass der Fehler zB hier liegt:
Reports!Quartalsabschluß![QSumme1].ControlSource = "= sum([Quartal 1])"
ich würde intuitiv behaupten du willst da NICHT dan String "= sum([Quartal 1])" reinschreiben, sondern eben den entsprechenden zahlenwert der summe oder? probiers also mal die Anführungszeichen davon zu löschen also:
Reports!Quartalsabschluß![QSumme1].ControlSource = sum([Quartal 1])

[Mogwai]

Also den Report "Quartalsabschluss" gibt es aber wenn ich ihn öffnen will kommt die Fehlermeldung "Datentypen in Kriterienausdruck ist Unverträglich".

Edit: Also im Report sind wohl Steuerelemente die eine ungültige Steuerelementquelle haben. Das heißt wohl ich muss jetzt nur die richtige Steuerelementquelle finden. Weiß einer wie man das macht?