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

Frage Entwicklung VB for Applications

Mitglied: Aldarin

Aldarin (Level 1) - Jetzt verbinden

22.06.2007, aktualisiert 25.06.2007, 5664 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
Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 10 StundenInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Verschlüsselung & Zertifikate

19 Jahre alter Angriff auf TLS funktioniert immer noch

Information von BassFishFox vor 17 StundenVerschlüsselung & Zertifikate1 Kommentar

Interessant zu lesen. Der Bleichenbacher-Angriff gilt unter Kryptographen als Klassiker, trotzdem funktioniert er oft noch. Wie wir herausgefunden haben, ...

Windows 10

Windows 10 Fall Creators Update - Neue Funktion Hyper-V Standardswitch kann ggf. Fehler bei Proxy Configs verursachen

Erfahrungsbericht von rzlbrnft vor 1 TagWindows 104 Kommentare

Hallo Kollegen, Da wir die Gefahr lieben, haben wir bei einigen Usern nun mittlerweile das Creators Update drauf. Einige ...

Sicherheit

TLS-Zertifikat und privater Schlüssel von Microsofts Dynamics 365 geleakt

Information von Penny.Cilin vor 1 TagSicherheit

Microsoft hat versehentlich das TLS-Zertifikat inklusive dem privaten Schlüssel seiner Business-Anwendung Dynamics 365 geleakt. TLS-Zertifikat und privater Schlüssel von ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless19 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

Netzwerkmanagement
NAS über zwei weitere Ethernet Anschlüsse verbinden
gelöst Frage von Sibelius001Netzwerkmanagement17 Kommentare

Sorry - ich bin hier wahrscheinlich als kompetter IT Trottel unterwegs. Aber eventuell kann mir jemand ganz einfach helfen: ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...