Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
DCount-Runtime error 2001 und DCount
zurück: Zu schwierig für einen Anfänger? weiter: Verknüpfte Tabelle löschen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Nightwish
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Jun 2007, 16:30
Rufname:
Wohnort: Greenville, SC, USA

DCount-Runtime error 2001 und DCount - DCount-Runtime error 2001 und DCount

Nach oben
       Version: Office 2003

Hallo allerseits,

ich sitze jetzt schon eine Weile an einem Stueckchen VBA-Code.

Ich habe eine Tabelle PART mit Datenfeldern "customer_dwg_id" (Datentyp LONG INTEGER) und "part_dwg_index" (Datentyp TEXT).
Ich wuerde gerne verhindern, dass ein neuer Datensatz mit dem part_dwg_index von 'a' eingefuegt wird, dazu soll die Anzahl der bereits vorhandenen Datensaetze mit dem part_dwg_index von 'a' gezaehlt werden.

Jedenfalls, der Debugger haelt bei mir immer an der Stelle mit der DCount() Funktion an, mit der Fehlermeldung
Zitat:
RUNTIME ERROR '2001': YOU CANCELED THE PREVIOUS OPERATION
Liegt es evl. an Unvertraeglichkeiten von den Datentypen???
Habt ihr sonst noch Ideen, was der Fehler sein koennte?
Oder vielleicht habt ihr auch eine andere Idee, wie ich Duplikate (doppelte Datensaetze) verhindern koennte?

Hier ist das Stueckchen "Problemcode"
Code:
Public Sub AddRecord_Click()
    Dim userMsg As String
    Dim LTotal As Integer
   
    LTotal = 0
    LTotal = DCount("[customer_dwg_id]", "PART", "part_dwg_index = 'a'")
    If LTotal = 1 Then
        ' Message box for confirmation of data base entry'
        userMsg = MsgBox("Record has been added to print list database!", _
                         vbOKOnly + vbExclamation, "Done!")
      Else
        userMsg = MsgBox("Record already exists in database Record not " & _
                         "added to database!", vbOKOnly + vbExclamation, _
                         "Not done!")
    End If
End Sub

_________________
There is such a lot of world to see Smile
Nightwish
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Jun 2007, 17:04
Rufname:
Wohnort: Greenville, SC, USA


AW: DCount-Runtime error 2001 und DCount - AW: DCount-Runtime error 2001 und DCount

Nach oben
       Version: Office 2003

Halloechen nochmal,

ich hab den Code jetzt noch ein weiteres Mal durchgeschaut, und mit der Syntax hat wohl folgende Zeile nicht gestimmt:
Code:
    LTotal = DCount("[customer_dwg_id]", "PART", "[part_dwg_index] = 'a'")
Die eckigen Klammern haben gefehlt!
Jetzt laeufts!

_________________
There is such a lot of world to see Smile
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Error 3090 Mehr als 1 AutoWert Feld 2 akdes 86 10. März 2014, 12:44
akdes Error 3090 Mehr als 1 AutoWert Feld
Keine neuen Beiträge Access Tabellen & Abfragen: DCount 17 Unwissender2012 489 17. März 2012, 11:14
Willi Wipp DCount
Keine neuen Beiträge Access Tabellen & Abfragen: Dcount Funktion Syntaxfehler 1 benutzer31337 192 27. Feb 2012, 11:55
KlausMz Dcount Funktion Syntaxfehler
Keine neuen Beiträge Access Formulare: Fehlermeldung "Syntax error (missing operator) in query 6 arwar 288 18. Jan 2012, 14:56
arwar Fehlermeldung "Syntax error (missing operator) in query
Keine neuen Beiträge Access Tabellen & Abfragen: Syntax Error in SQL-Anweisung (selbstgebastelt in VBA) 9 Christine_Steinmeier 685 26. Sep 2011, 11:18
Christine_Steinmeier Syntax Error in SQL-Anweisung (selbstgebastelt in VBA)
Keine neuen Beiträge Access Formulare: #Error abfangen in Formularfeld 2 sk42 277 19. März 2011, 00:51
KlausMz #Error abfangen in Formularfeld
Keine neuen Beiträge Access Formulare: Error 3022 Abfangen und Datensatz zurücksetzten 1 derdem 285 28. Jan 2011, 01:21
Fritzerich Error 3022 Abfangen und Datensatz zurücksetzten
Keine neuen Beiträge Access Formulare: Laufzeitfehler 2001 4 wimmera 396 30. Jun 2010, 15:42
Gast Laufzeitfehler 2001
Keine neuen Beiträge Access Formulare: Laufzeitfehler 2001 bei Formular öffnen? 1 sterbhai 993 23. März 2009, 10:52
sterbhai Laufzeitfehler 2001 bei Formular öffnen?
Keine neuen Beiträge Access Formulare: Umstieg auf XP jetzt kommt Fehler Runtime error 2147467259 5 cala24 2308 11. Feb 2009, 17:57
trekking Umstieg auf XP jetzt kommt Fehler Runtime error 2147467259
Keine neuen Beiträge Access Formulare: Gegenteil von "on error resume next"? 1 phischi 1299 20. Nov 2007, 00:52
Nouba Gegenteil von "on error resume next"?
Keine neuen Beiträge Access Programmierung / VBA: Tabelle neu verknuepfen - error message 1 goepf 599 02. März 2007, 03:51
Gschaftlhuaba Tabelle neu verknuepfen - error message
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen