Supportnet / Forum / Datenbanken

Hi, ich habe mir folgenden VBA Code auf meine Schaltfläche "Neu" programmiert, doch wenn in CDNr nichts steht, und ich auf "NEU" klicke, bekomme ich die Meldung "Typen unveträglich". Warum? [Code] Private Sub Neu_Click() On Error GoTo Err_Neu_Click Dim PrüfCDNr As Integer Dim PrüfSpieler1 As Integer CDNr.SetFocus If CDNr.Text = 0 Then PrüfCDNr = 0 ElseIf CDNr.Text = "" Then PrüfCDNr = 1 Else PrüfCDNr = 2 End If Spieler1.SetFocus If Spieler1.Text = "" Then PrüfSpieler1 = 0 Else PrüfSpieler1 = 1 End If If PrüfCDNr = 0 Then MsgBox "Bitte vergeben Sie für den Film eine CD-Nummer die größer als 0 ist.", vbInformation, "Hinweis" CDNr.SetFocus Exit Sub ElseIf PrüfCDNr = 1 Then MsgBox "Bitte vergeben Sie für den Film eine CD-Nummer.", vbInformation, "Hinweis" CDNr.SetFocus Exit Sub ElseIf PrüfSpieler1 = 0 Then MsgBox "Bitte wählen Sie mindestens einen Schauspieler aus.", vbInformation, "Hinweis" Spieler1.SetFocus Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.Zähler = Me.RecordsetClone.RecordCount Me.CDNr.SetFocus End If Exit_Neu_Click: Exit Sub Err_Neu_Click: MsgBox Err.Description Resume Exit_Neu_Click End Sub [/Code]

Da kenn ich net so richtig aus !
Aber kann es sein dass du einer Textvariablen eine Zahl zuweisen willst oder umgekehrt ? °;-)
Have Fun

Nein, denn ein Integer ist eine Variable für Zahlen, das andere ist nur die Überprüfung was in dem Textfeld steht. :-)

If CDNr.Text = 0 Then
PrüfCDNr = 0
müßte das nicht so heisen:
If CDNr.Text = "0" Then
PrüfCDNr = 0
°;-)

Ja, das wars, danke!!

Dann war Antwort 1 also doch schon richtig. °;-)
Weiterhin viel Spaß und Erfolg

• Grundsätzliche Frage
• Typen unverträgliche Laufzeitfehlerehler 13 Sql
• unverträglicher Datentyp
• Acces Berechnetes Feld in Bericht summieren
• Hallo, ich möchte eine Berichtsabfrage mit Eingrenzung auf ein Datum