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

gelöst Abruf von Daten aus einer Accessdatenbank und weitere Verarbeitung in einem Bericht

Mitglied: Aldarin

Aldarin (Level 1) - Jetzt verbinden

22.06.2007, aktualisiert 25.06.2007, 5668 Aufrufe, 6 Kommentare

Daten aus einer Accessdatenbank abrufen und in der selben Datenbank weiterverarbeiten und innerhalb eines Berichts in ein Label schreiben.

Hallo,

ich habe folgendes Problem:

Ich möchte Daten aus einer Accessdatenbank abrufen (ein einziges Datenbankfeld, was zu einer gewissen ID gehören soll) und diese Daten dann mit einen vorgegeben Text umgeben und anschließend in ein Label schreiben.

Die Vorgehensweise habe ich mir so vorgestellt.

1. Ich stelle eine Verbindung zu der Datenbank an sich (es ist die selbe Datenbank in der das Script liegen soll) auf.
2. Ich rufe das Feld ab und speicher es in einem String1.
3. Ich packe dann String2 und String3 UM den String... Quasi String4 = String2 & String1 & String3
4. Ich schreibe den String4 in das gewünschte Label

Das ist alles was es machen soll.

Irgendwelche Ansätze, Ideen, Hilfen?
Ich bin noch sehr neu auf dem Gebiet von VBA...

Wenn es jemand schonmal gemacht hat, wäre ich über ein Script oder Hilfe sehr dankbar.

Mit freundlichen Grüßen,
Daniel
Mitglied: AndreasHoster
22.06.2007 um 11:43 Uhr
Wenn es unbedingt ein Label und VBA sein muß (Beim Ereignis Öffnen Eintragen):

Private Sub Report_Open(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = Application.CurrentDb().OpenRecordset("Select ID from Tabelle1 where ID='xxx'")
rs.MoveFirst
Me.Name_Bezeichnungsfeld.Caption = "String1" & rs!ID & "String2"
rs.Close
End Sub
Bitte warten ..
Mitglied: Aldarin
22.06.2007 um 12:52 Uhr
Hey Andreas,

soweit hab ich das ganze eingebaut und angepasst, jedoch kriege ich die Sub nicht als Ereignis zu "Beim Öffnen".

Habe ich etwas falsch gemacht? In dem Menü bei den Berichteigenschaften kann ich die Sub nicht finden und nicht auswählen. Sie existiert aber im Visual Basic Editor von Access.

Grüße,
Daniel
Bitte warten ..
Mitglied: AndreasHoster
22.06.2007 um 13:40 Uhr
Wenn Du in der Entwurfsansicht des Bericht bist, dann die Eigenschaften des Berichts öffnen (Rechtsklick in der oberen Linken Ecke wo die Lineale zusammenstossen) oder irgendwo mir Rechtsklick -> Eigenschaften und dann Bericht auswählen.
Dann den Reiter Ereignis auswählen, dort den Eintrag beim Öffnen suchen.
Dort im Drop-Down Feld [Ereignisprozedur] auswählen, dann dahinter die Schaltfläche mit den ... anklicken.
Es geht der VBA Editor auf und der Bereich Private Sub Report_open .... End Sub sollte dann schon drinstehen. Dann noch den Code reinkopieren (falls der noch fehlt).
Dann Speichern.
Fertig.
Bitte warten ..
Mitglied: Aldarin
22.06.2007 um 14:03 Uhr
Hallo Andreas,

ich hab das Script wie folgt angepasst:

Option Compare Database

Private Sub Report_Open(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = Application.CurrentDb().OpenRecordset("Select Neben_Sonstiges from T_Hauptdaten where ID=Forms!Form_F_Menu_Haupt.ID")
rs.MoveFirst
Me.Bezeichnungsfeld159.Caption = "Text1 " & rs!Neben_Sonstiges & " Text2."
rs.Close
End Sub

Hab es auch in die Ereignisprozedur eingetragen.
Wenn ich die Tabelle nun öffne bekomm ich folgenden Fehler:

Laufzeitfehler '3061':
1 Parameter wurden erwartet, aber es wurden zu wenig Parameter übergeben.

Beim klick auf Debuggen wurde mir folgende Zeile angezeigt:
Set rs = Application.CurrentDb().OpenRecordset("Select Neben_Sonstiges from T_Hauptdaten where ID=Forms!Form_F_Menu_Haupt.ID")

Wenn ich die Abfrage (auf der der Rest des Berichts basiert) öffne wird mir jedoch bei ID sowie Neben_Sonstiges angezeigt und beide sind mit Werten gefüllt.
Stimmt evtl. etwas nicht mit der Abfrage: where ID=Forms!Form_F_Menu_Haupt.ID ?
Die Abfrage soll die ID aus dem Hauptformular (F_Menu_Haupt) aus dem Feld ID zum Vergleichen abrufen.

Grüße,
Daniel
Bitte warten ..
Mitglied: AndreasHoster
22.06.2007 um 15:01 Uhr
Solange Forms!Form_F_Menu_Haupt.ID innerhalb der " steht, wird es nicht ausgewertet, sondern so als String übergeben.
Außerdem habe ich aus Vsersehen zuviel Klammern bei CurrentDB gemacht.
Also eher so:
Set rs = Application.CurrentDb.OpenRecordset("Select Neben_Sonstiges from T_Hauptdaten where ID=" & Forms!Form_F_Menu_Haupt.ID)
Bitte warten ..
Mitglied: Aldarin
25.06.2007 um 09:33 Uhr
Hey Andreas,

danke für deine Hilfe.
Es funktioniert nun. Nur das ich bei Forms!Form_F_Menu_Haupt das Form_ wegmachen musste. Obwohl er es als Form_F_Menu_Haupt in Visual Basic gespeichert hat. Dennoch vielen Dank. Ich werde das ganze nun noch anpassen und dalnn läuft das! Super!

Vielen Dank,
Daniel
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Powershell Abruf von Daten aus einem Array

gelöst Frage von derhoeppiBatch & Shell5 Kommentare

Hallo, ich habe ein globales Array aus dem ich bestimmte Daten haben möchte. Das Array $a umfasst folgende Felder: ...

Windows Server

LDAP Daten anderer Domain abrufen

gelöst Frage von it4baerWindows Server3 Kommentare

Hallo, ich habe mir ein kleines Script gebastelt um auf den LDAP zuzugreifen. Hier möchte ich die UserIds auslesen ...

Microsoft Office

Kopieren von auszuwählenden Daten in weitere Tabelle

Frage von dus100Microsoft Office1 Kommentar

Hallo, wie einige andere auch habe ich ein Problem bei der Erstellung von Makros in VBA. Ich nutzeExcel für ...

Windows Netzwerk

Verarbeitung Gruppenrichtinie

gelöst Frage von Philipp711Windows Netzwerk3 Kommentare

Hallo, ich hätte eine kleine Frage zur Verarbeitungsreihenfolge vom Gruppenrichtlinien. Konkret geht es darum: Wie werden "überschneidende" Einstellungen angewendet? ...

Neue Wissensbeiträge
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 8 StundenHumor (lol)1 Kommentar

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 20 StundenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 21 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 1 TagMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server40 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing19 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...