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

Frage Entwicklung VB for Applications

GELÖST

Access VBA Code um in If eine qry auf die Anzahl der Datensaetze zu pruefen

Mitglied: Shadow88

Shadow88 (Level 1) - Jetzt verbinden

05.06.2008, aktualisiert 06.06.2008, 9939 Aufrufe, 3 Kommentare

Hallo Leute,

evtl. könnt ihr mir hier weiter helfen.

Ich möchte über einen Button eine If Abfrage ausführen, die schaut ob sich in einem qry Datensätze befinden und dem entsprechend handelt.

Hier mein aktueller Code:

01.
'Abfrage ob Empfänger fehlt 
02.
 
03.
If qryEmpfaenger_fehlt < 0 Then 
04.
Form_frmMenueCheck.cmdCheckEmpf.ForeColor = RGB(0, 204, 0) 
05.
Else: Form_frmMenueCheck.cmdCheckEmpf.ForeColor = RGB(255, 0, 0) 
06.
txtAbfrage.Value = "2" 
07.
End If
01.
qryEmpfaenger_fehlt < 0 
: Müsste durch einen anderen Code ersetzt werden der prüft, ob der qry Datensätze enthält. Wenn er keine enthält, dann soll die Then Funktion aufgeführt werden und wenn er welche enthält, dann die Else.

Wie mache ich das?

Vielen Dank für Eure Hilfe!

Gruß,

Shadow88
Mitglied: Bolle97
06.06.2008 um 09:13 Uhr
Hallo,

ich denke hier sollte ein einfacher DCOUNT auf die Abfrage ausreichen.

z.B.

Dim lonAnzSätze as Long

lonAnzSätze = DCount("[beliebeigeSpalte]", "qry_name")

oder gleich

If DCount("[beliebeigeSpalte]", "qry_name") > 0 Then


Gruß - René
Bitte warten ..
Mitglied: Logan000
06.06.2008 um 09:13 Uhr
01.
Set db = DBEngine(0)(0) 
02.
Dim db As Database 
03.
Dim rs As DAO.Recordset 
04.
Set rs = db.OpenRecordset("MeineAbfrage", dbOpenSnapshot) 
05.
If if rs.RecordCount >0 then  
06.
   ' was immer ich tum möchte wenn DS vorhanden sind 
07.
end if
Bitte warten ..
Mitglied: Shadow88
06.06.2008 um 10:46 Uhr
Vielen Dank euch beiden!

Ihr habt mir sehr geholfen. =)
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Kreuztabelle Access + VBA Code
Frage von Dr.CornwallisMicrosoft Office7 Kommentare

Hallo zusammen, ich habe eine Kreuztabelle aus einer Query erzeugt, aus dieser entsteht wiederum ein Bericht, nun habe ich ...

VB for Applications
VBA Code Änderung Access 2010
gelöst Frage von Dr.CornwallisVB for Applications6 Kommentare

Liebe Gemeinde, ein Kollege hat mir einmal einen VBA Code zur Ermittlung des 1. und 5. Arbeitstags eines Monats ...

Datenbanken
Access mit VBA vorgefertigte Texte an Datensatz anfügen
gelöst Frage von Dr.CornwallisDatenbanken4 Kommentare

Hallo zusammen, ich habe ein Access Formular, mit einem Kombifeld kann ich einen Benutzer auswählen, darunter ist ein Textfeld ...

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

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 2 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 3 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 3 TagenSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 3 TagenSicherheit12 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Firewall
Penetrationstester-Labor - Firewalls
Frage von Oli-nuxFirewall10 Kommentare

Mich würde interessieren warum man beim Einrichten eines Penetrationstester-Labor (VMs) die Firewall der Systeme deaktivieren soll? Hat das nur ...

SAN, NAS, DAS
Wer kennt sich mit QNAP und CISCO aus ?
gelöst Frage von MachelloSAN, NAS, DAS9 Kommentare

Hallo Zusammen hier im Forum, Ich habe ein QNas 451+ und dieses NAS hat zwei GBit Lan Adapter die ...

Netzwerkgrundlagen
IPv6 Inter-VLAN Routing
gelöst Frage von clSchakNetzwerkgrundlagen9 Kommentare

Hi ich befasse mich gerade mit der Implementierung von IPv6 was bisher (in einem VLAN) korrekt funktioniert inkl. DNS ...

Windows Netzwerk
Zugriff auf den Desktop Ordner eines anderen Rechners in der gleichen Domäne
gelöst Frage von JensNomaWindows Netzwerk6 Kommentare

Guten Abend, ich war neulich mit unserem Admin am Tisch gesessen. Er an seinem Notebook angemeldet mit dem Domänen-Admin, ...