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, 1337 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
Datenbanken
gelöst Syntaxfehler VBA (6)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

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 ...

Neue Wissensbeiträge
Viren und Trojaner

Ransomware or Wiper? RedBoot Encrypts Files but also Modifies Partition Table

Information von BassFishFox zum Thema Viren und Trojaner ...

Notebook & Zubehör

WOL bei HP Notebooks

(6)

Erfahrungsbericht von Henere zum Thema Notebook & Zubehör ...

LAN, WAN, Wireless

Neue Cisco Catalyst-Serie 9000

Information von Kuemmel zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
Windows 10
Netzwerkkarte schaltet sich erst nach dem Logon ein (23)

Frage von DerWoWusste zum Thema Windows 10 ...

Windows Server
Seit IP Umstellung DC DNS Fehler (18)

Frage von Yaimael zum Thema Windows Server ...

Netzwerke
Mobile Einwahl IPSec VPN von iPhone iPad T-Mobile zur Pfsense (16)

Frage von Spitzbube zum Thema Netzwerke ...

Weiterbildung
gelöst Fest angestellter Admin oder Systemhaus Admin mit Kundenbetreuung? (15)

Frage von Voiper zum Thema Weiterbildung ...