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, 1297 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
VB for Applications
Excel VBA Sortierung von Daten (5)

Frage von easy4breezy zum Thema VB for Applications ...

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

Frage von nicki01 zum Thema Microsoft Office ...

VB for Applications
gelöst VBA-Makro verschwindet nach Speichern (5)

Frage von lupi1989 zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (33)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

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

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...