Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
in einem Datensatz jedes Feld durchlaufen
zurück: Hauptformular nur zum suchen und anzeigen weiter: Bericht mit MultiPage 1x2 ueber VBA oeffnen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
ichweissnicht
VBA-Anfänger


Verfasst am:
26. Mai 2008, 11:52
Rufname:
Wohnort: Lehrte

in einem Datensatz jedes Feld durchlaufen - in einem Datensatz jedes Feld durchlaufen

Nach oben
       Version: Office 2k (2000)

Hallo zusammen!

Mein Problem ist folgendes.

Ich möchte Daten aus einem Recordset in die entsprechenden Felder eines Formulares schreiben. Den Datensatz habe ich ausgewählt mit rs.findfirst. Jetzt möchte ich gerne mittels for each .... next jedes Feld des Datensatzes durchlaufen und den Inhalt des Feldes in das gleichnamige Textfeld des Formulares schreiben.

Umgekehrt ist das leicht möglich. Ich durchlaufe jedes Steuerelement und wenn es eine entspr. Feld ist, hole ich mir aus dem Recordset die entsp. Daten. s. Code
Code:
    Dim ctl As Control
    Dim fil, fom As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb
    fom = Me.Parent.Name
    For Each ctl In Forms(fom).Controls
        If Left(ctl.Tag, 5) = "Anspr" Then
            fil = ctl.Name
            ctl = Me(fil)
        End If
    Next ctl

Ich hätte es gerne anders herum um den Tag für andere Sachen benutzen zu können.

Vielen Dank für Eure Hilfe

_________________
Ich lerne gerne dazu, man kann ja schliesslich nicht alles wissen, aber alles lernen.
JörgG
Access-Team


Verfasst am:
26. Mai 2008, 18:06
Rufname:
Wohnort: b. Dresden


AW: in einem Datensatz jedes Feld durchlaufen - AW: in einem Datensatz jedes Feld durchlaufen

Nach oben
       Version: Office 2k (2000)

Hallo,

Code:
    Dim i As Integer, db As DAO.Database, rs As DAO.Recordset
   
    Set db = CurrentDb
    Set rs = db.OpenRecordSet(". . .", dbOpenSnapshot)
    For i = 0 To rs.Fields.Count - 1
        Me("[" & rs.Fields(i).Name & "]") = rs.Fields(i)
    Next i
Idea Du kannst ja auch mehrere Tag's (zB ABC) setzen und führst die Prüfung mit:
Code:
    If InStr(1, Ctl.Tag, "A") > 0 Then
        '...
      ElseIf InStr(1, Ctl.Tag, "B") > 0 Then
        '...
      ElseIf InStr(1, Ctl.Tag, "C") > 0 Then
        '...
    End If
durch, bzw mit Select Case wenn es viele sind.
_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
ichweissnicht
VBA-Anfänger


Verfasst am:
27. Mai 2008, 08:21
Rufname:
Wohnort: Lehrte

AW: in einem Datensatz jedes Feld durchlaufen - AW: in einem Datensatz jedes Feld durchlaufen

Nach oben
       Version: Office 2k (2000)

Hallo Jörg,

Danke für Deine Hilfe, es klappt so wie ich mir das vorgestellt habe.
Ich hoffe das es so rum schneller geht als wenn ich die ganzen Steuerelemente durchlaufen lassen muss. So sind es nur ca. 34 Felder die gefüllt werden und anders sind es ca. 250 Steuerelemente. Außerdem ist es so für mich einfacher.

Noch einmal vielen Dank.

Gruß

Karsten

_________________
Ich lerne gerne dazu, man kann ja schliesslich nicht alles wissen, aber alles lernen.
JörgG
Access-Team


Verfasst am:
27. Mai 2008, 09:59
Rufname:
Wohnort: b. Dresden


AW: in einem Datensatz jedes Feld durchlaufen - AW: in einem Datensatz jedes Feld durchlaufen

Nach oben
       Version: Office 2k (2000)

Hallo,

Very Happy ja, mag zwar bei den heutigen Prozessorleistungen/-geschwindigkeiten nicht mehr das Problem sein, aber performancefreundlicher Code ist immer etwas wert Razz

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Leeres Feld mit "no info" ausfüllen 2 Gast 696 14. Feb 2005, 15:25
Gast Leeres Feld mit "no info" ausfüllen
Keine neuen Beiträge Access Tabellen & Abfragen: Feld in Tabelle mittels Aktualisierungsabfrage updaten 1 diso_de 788 11. Feb 2005, 15:45
stpimi Feld in Tabelle mittels Aktualisierungsabfrage updaten
Keine neuen Beiträge Access Tabellen & Abfragen: wie kann ich "#Fehler" aus dem feld rauslöschen? 5 drum_sax 613 04. Feb 2005, 14:40
stpimi wie kann ich "#Fehler" aus dem feld rauslöschen?
Keine neuen Beiträge Access Tabellen & Abfragen: Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info 2 Steve 914 14. Jan 2005, 00:43
Steve Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info
Keine neuen Beiträge Access Tabellen & Abfragen: Feld aus n Records in n Feldern eines Records zusammenfassen 0 frank58 588 31. Dez 2004, 12:05
frank58 Feld aus n Records in n Feldern eines Records zusammenfassen
Keine neuen Beiträge Access Tabellen & Abfragen: Bei der Aktualisierung eines Tabellenwertes neuen Datensatz 6 zheng 810 07. Dez 2004, 22:35
zheng Bei der Aktualisierung eines Tabellenwertes neuen Datensatz
Keine neuen Beiträge Access Tabellen & Abfragen: Aktionsabfrage in Formular -immer nur einen Datensatz ändern 6 blauvogel 1092 08. Okt 2004, 11:43
Skogafoss Aktionsabfrage in Formular -immer nur einen Datensatz ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz nach Datum suchen?? 1 Hansen 1390 04. Okt 2004, 12:16
stpimi Datensatz nach Datum suchen??
Keine neuen Beiträge Access Tabellen & Abfragen: bestimmte(n) Datensatz in abfrage ausschließen 2 Lene 3641 02. Sep 2004, 15:39
borstel bestimmte(n) Datensatz in abfrage ausschließen
Keine neuen Beiträge Access Tabellen & Abfragen: n:n Datensatz hinzufügen fehlgeschlagen 2 accesshasser 980 27. Aug 2004, 12:07
Pusteblume n:n Datensatz hinzufügen fehlgeschlagen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit YES/NO Feld 10 Annette G 883 17. Aug 2004, 11:46
Willi Wipp Abfrage mit YES/NO Feld
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Feld updaten bei Berichtaufruf 1 David 503 14. Jul 2004, 14:11
lothi Feld updaten bei Berichtaufruf
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA