Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Frage Entwicklung VB for Applications

Mitglied: Anna2701

Anna2701 (Level 1) - Jetzt verbinden

04.04.2014, aktualisiert 09:24 Uhr, 1350 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 Mit VBA Zertifikate auslesen (3)

Frage von it4baer zum Thema VB for Applications ...

Microsoft Office
gelöst VBA - aktuelle Kalenderwoche ermitteln (3)

Frage von Ghost108 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel-Formel oder VBA (7)

Frage von nicki01 zum Thema Microsoft Office ...

VB for Applications
Dateien in Tabellenblat mit VBA beladen (8)

Frage von lupi1989 zum Thema VB for Applications ...

Neue Wissensbeiträge
Multimedia

Raspberry Pi als Digital-Signage-Computer

(1)

Information von BassFishFox zum Thema Multimedia ...

Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows Server
Kennwort vergessen bei Hyper vserver 2012r (26)

Frage von jensgebken zum Thema Windows Server ...

Router & Routing
Freigabe aus anderem Netz nicht erreichbar (21)

Frage von McLion zum Thema Router & Routing ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (19)

Frage von Michael-ITler zum Thema Batch & Shell ...

Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail (18)

Frage von ahstax zum Thema Visual Studio ...