Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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 in VBA

Frage Entwicklung VB for Applications

Mitglied: Anna2701

Anna2701 (Level 1) - Jetzt verbinden

04.04.2014, aktualisiert 09:24 Uhr, 1320 Aufrufe, 4 Kommentare

Habe hier einen kurzen Code zum Filtern und würde hier gerne eine "Fehlermeldung" ausgeben lassen, wenn die eingegebene ID nicht in der Tabelle vorhanden ist. Ein Kollege hat mir geraten dies mit Dcount zu versuchen, woran ich kläglich gescheitert bin.


Private Sub CmdFilter_Click()
Dim FilterID As Long
FilterID = InputBox("Bitte geben Sie den Adressat an: ")
Me.Filter = "Adressat = " & FilterID
Me.FilterOn = True
End Sub
Mitglied: colinardo
LÖSUNG 04.04.2014, aktualisiert um 09:24 Uhr
Moin Anna,
wenn das Feld Adressat ein Zahlenfeld in der Datenbank ist machst du es so.
01.
Dim FilterID as Long 
02.
FilterID = InputBox("Bitte geben Sie den Adressat an: ") 
03.
if DCount("[Adressat]","DeineTabelle","[Adressat] = " & FilterID) > 0 then 
04.
   Msgbox "Adressat gefunden" 
05.
Else 
06.
   Msgbox "Kein Adressat mit der ID gefunden" 
07.
End if
Falls Adressat ein String-Feld sein sollte muss der Wert FilterID noch von einfachen Anführungszeichen umschlossen werden: DCount lautet in diesem Fall dann:
DCount("[Adressat]","DeineTabelle","[Adressat] = '" & FilterID & "'")
Den Tabellennamen "DeineTabelle" musst du natürlich noch anpassen.

Grüße Uwe
Bitte warten ..
Mitglied: Anna2701
04.04.2014 um 09:25 Uhr
Daaaanke
Bitte warten ..
Mitglied: Anna2701
04.04.2014 um 10:25 Uhr
Ich bin so ahnungslos ^^
Wenn ich das Formular öffne, möchte ich, dass mir alle Datensätze angezeigt werden.
Habe sowas mal probiert, es funktioniert aber nicht

Private Sub Form_Load()
Me.FilterOn = False
txtAdressat = ""
End Sub
Bitte warten ..
Mitglied: colinardo
04.04.2014, aktualisiert um 11:03 Uhr
Ich bin so ahnungslos ^^
Dagegen hilft: https://www.google.de/search?q=access+kurs+online
und die
VBA/VBS/WSH/Office Developer Referenzen

In welchen Modus öffnest du dein Formular denn überhaupt ? Standardmäßig werden alle Datensätze angezeigt wenn man ein Formular öffnet... Wir kennen hier die Daten deines Formulares nicht, und können leider nicht hellsehen, also bitte mehr Informationen ...

Mach dafür bitte eine neue Frage auf, das gehört hier nicht mehr rein ... Danke.

Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst EXCEL VBA Zellen verbinden. MERGE (6)

Frage von Aximand zum Thema VB for Applications ...

VB for Applications
gelöst VBA Excel Skript - Hilfe! (1)

Frage von Compu2017 zum Thema VB for Applications ...

Microsoft Office
VBA Code zum Kopieren von einzelnen Zellen in Excel (3)

Frage von SebastianL zum Thema Microsoft Office ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Netzwerke
LAN2LAN Verbindung sehr langsam flaschenhals gesucht (27)

Frage von PixL86 zum Thema Netzwerke ...

LAN, WAN, Wireless
Rogue Access Point (20)

Frage von Axel90 zum Thema LAN, WAN, Wireless ...

Webbrowser
Windows 7 unbeliebte Internetseite sperren (13)

Frage von Daoudi1973 zum Thema Webbrowser ...

E-Mail
Fake E-Mail in Outlook für Demonstartionszwecke (12)

Frage von sascha382 zum Thema E-Mail ...