Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

DCount Funktion in Access 2003

Frage Entwicklung VB for Applications

Mitglied: crack24

crack24 (Level 2) - Jetzt verbinden

26.06.2013, aktualisiert 11:12 Uhr, 2395 Aufrufe, 9 Kommentare, 1 Danke

Hallo,

ich möchte bei einem neuen Auftragsdatensatz prüfen ob die Bestellnummer für diesen Kunden schon vorhanden ist, damit keine Bestellungen doppelt erfasst werden.

Ich habe dazu folgende Funktion, aber anscheinend sind da noch syntaktische Fehler drin
01.
Sub Check_Bestellnummer() 
02.
    If DCount("*", "Fertigung", "[Kunden_Bestell_Nr]='" & Me![Kunden_Bestell_Nr] & "' AND [F_KundenID]='" & Me![KID] & "'")> 0 Then 
03.
        MsgBox "Ein Auftrag mit dieser Bestellnummer ist schon vorhanden!" 
04.
    End If 
05.
End Sub
Wennn ich nur die Bestellnummer überprüfe, für alle Kunden, dann gehts. Aber wenn ich noch die Prüfung mit der Kundennummer dranhänge, funktioniert es nicht.

Sieht da vielleicht jemand auf die Schnelle den Fehler?

Viele Grüße
crack
Mitglied: Biber
26.06.2013 um 09:59 Uhr
Moin crack24,

und wenn du zwischen den beiden Bedingungen noch ein " AND " spendierst?

Grüße
Biber
Bitte warten ..
Mitglied: crack24
26.06.2013 um 10:27 Uhr
Hallo Biber,

ich hatte den Beitrag nachträglich nochmal bearbeitet, kann sein dass wir uns da überschnitten haben.

Ich habe das AND jetzt drin, aber irgendwo hakt es noch.
Bitte warten ..
Mitglied: Biber
26.06.2013, aktualisiert um 10:57 Uhr
Moin crack24,

dann können nur die Datentypen von "F_KundenID" und "Me![KID"] auseinanderlaufen.
Laut Syntax erwartest du für dieses Datenbank-/Formularfeld-Pärchen einen Text-Datentyp.
Ist dem so in der Tabelle und im Formular?

Wenn ja, muss eines der Beiden noch geTRIMmed werden?

Grüße
Biber
[Edit] Ähhm .. okay... einiges pricht auch für colinardos hinweis auf die fehlende Klammer-Zu.
Die hab ich auch übersehen.
Vergiss meinen Kommentar.
[/Edit]
Bitte warten ..
Mitglied: colinardo
26.06.2013, aktualisiert um 11:03 Uhr
Hallo crack,
fehlt da nicht die schließende Klammer von DCount am Ende?:
If DCount("*", "Fertigung", "[Kunden_Bestell_Nr]='" & Me![Kunden_Bestell_Nr] & "' AND [F_KundenID]='" & Me![KID] & "'") > 0 then
Bitte fasse deinen Code in "Code" Tags ein damit Sonderzeichen hier nicht unterschlagen werden, merci.

Grüße Uwe
Bitte warten ..
Mitglied: crack24
26.06.2013 um 11:19 Uhr
Stimmt, die Klammer fehlte. Habe ich ergänzt und in Code Tages eingefasst.

@Biber
Da scheint das Problem zu liegen. "F_KundenID" ist Zahl (Long Integer) in der Tabelle und "KID" ist ein Kombinationsfeld. Lass ich dann die Hochkommata und Anführungszeichen einfach weg oder muss man für Zahlen noch etwas spezielles beachten?
Bitte warten ..
Mitglied: colinardo
26.06.2013 um 11:43 Uhr
Zitat von crack24:
Lass ich dann die Hochkommata und Anführungszeichen einfach weg oder muss man für Zahlen noch etwas
spezielles beachten?
einfach die Hochkommas weglassen und den Wert deines Kombinationsfeldes zur Sicherheit zusätzlich noch in eine Dezimalzahl konvertieren
CDec(Me![KID])
Bitte warten ..
Mitglied: Biber
26.06.2013, aktualisiert um 11:52 Uhr
Moin crack24,

tja, ACCESS-SQL ist bei mir auch schon ein paar Tage her -aus dem Gedächtmis heraus würde ich einen String dann mit "cLng()" konvertieren - oder mit CAST()/CONVERT(),
Alle diese Funktionen sind in ACCESS-SQL vorhanden, inwieweit die in der be###enen Hilfe dokumentiert sind, wissen nur die Redmonder PraktikantInnen.

Grobe Richtung:
01.
If DCount("*", "Fertigung", "[Kunden_Bestell_Nr]='" & Me![Kunden_Bestell_Nr] & _ 
02.
   "' AND [F_KundenID]=cLng('" & Me![KID] &  "')") > 0 then..
cLng kann aber auch nur einen String in Long konvertieren, der eine Zahl repräsentiert
-> ->cLng("66")==66; cLng("GDAGD")==#Tilt#

Grüße
Biber
Bitte warten ..
Mitglied: crack24
26.06.2013 um 13:07 Uhr
Ich hab es jetzt hinbekommen, sogar ohne Konvertierung.

01.
Sub Check_Bestellnummer() 
02.
If DCount("*", "Fertigung", "[F_Knd_Besl_Nr]='" & Me![F_Knd_Besl_Nr] & "' AND [F_KNrID] = " & Me![KID]) > 0 Then 
03.
MsgBox "Ein Auftrag mit dieser Bestellnummer ist schon vorhanden!" 
04.
End If 
05.
End Sub
Damit läuft es. Vielen Dank für eure Hilfe.
Bitte warten ..
Mitglied: colinardo
27.06.2013 um 12:17 Uhr
Noch zur Info: Bitte markiere den Beitrag als gelöst. Siehe dazu die FAQ
Danke
Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Dcount in VBA
gelöst Frage von Anna2701VB for Applications4 Kommentare

Habe hier einen kurzen Code zum Filtern und würde hier gerne eine "Fehlermeldung" ausgeben lassen, wenn die eingegebene ID ...

Microsoft Office
Access - VBA - Anzahl von Unterordnern in Access, DIR funktion liefert falsches Ergebnis
gelöst Frage von thomas1972Microsoft Office2 Kommentare

Hallo, ich versuche aus einem Verzeichnis die Anzahl Unterordner sowie die Anzahl von Dateien auszulesen Leider erkennt dieser sowohl ...

Datenbanken
Access 2010 Datenbank Funktionen dokumentieren(auslesen) Tool
gelöst Frage von Anulu1Datenbanken3 Kommentare

Hallo, wir haben Access 2010 , Lexware, Excel Tabellen für Lagerverwaltung , Bestellung Stücklisten usw miteinander verbunden. Die Funktionen ...

Entwicklung
Powershell: Timer-Funktion und Progressbar-Funktion
gelöst Frage von SaschaRDEntwicklung8 Kommentare

Hallo zusammen, ich benötige bei 2 Funktionen in Powershell etwas Unterstützung: Fall-1: Ich habe eine Timer-Funktion die eine Anzahl(X) ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 7 StundenApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 13 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 13 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 1 TagInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless19 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Windows Server
Remotesteuerung der Sitzung (Kennung XX) fehlgeschlagen
gelöst Frage von Stefan91Windows Server14 Kommentare

Hallo Zusammen, seit kurzem bekomme ich oben genannte Fehlermeldung, wenn ich versuche eine Remotesitzung über den Taskmanager fernzusteuern (Rechtsklick ...