Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Access 97: Per VBA auf ein Steuerelement verweisen
zurück: Schreibkonflikt weiter: Excel Runden Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
janpaet
Im Profil kannst Du frei den Rang ändern


Verfasst am:
03. Feb 2007, 09:58
Rufname:

Access 97: Per VBA auf ein Steuerelement verweisen - Access 97: Per VBA auf ein Steuerelement verweisen

Nach oben
       Version: Office 95

Hallo,
ich würde gern in einer Tabelle (name, eigenschaft) den Namen und die Eigenschaften von Steuerelementen eines Formulars speichern.

Also bspw.: name = "lblName", eigenschaft = "Caption".

Via VBA möchte ich dann auf das Steuerelement und dessen Eigenschaft verweisen, um dann bspw. den Wert in einer Variablen zu speichern,
also in der Art: variable = Me!lblName.Caption

Begonnen habe ich wie folgt:
Code:
    Dim rs As Recordset
   
    Set rs = CuerrentDb.OpenRecordset("tabellenname")
    Do While Not rs.EOF
        variable = Me(rs.Fields("name"))
    Loop
Das würde soweit funktionieren aber wie bekomme ich jetzt noch Me(rs.Fields("name")) die Eigenschaft rs.Fields("eigenschaft") hinzugefügt?
Wenn mir da jemand weiterhelfen kann?
Gruß Jan
derArb
getting better


Verfasst am:
03. Feb 2007, 10:33
Rufname: derArb
Wohnort: Berlin


AW: Access 97: Per VBA auf ein Steuerelement verweisen - AW: Access 97: Per VBA auf ein Steuerelement verweisen

Nach oben
       Version: Office 95

hallo,

aus Blickis Beispiel DB hilft vielleicht Folgendes
Code:
    'Listbox auslesen
    Dim strSQL As String
    Dim ctl As Control
   
    For Each ctl In Me.Controls
        If Left(ctl.Name, 1) = "F" And ctl.ControlType = acListBox Then
            Me(ctl.Name) = Me(ctl.Name).Column(0, 0)
            strSQL = "INSERT INTO Archiv (Feldbezeichnung, Wert) " & _
                     "VALUES ('" & ctl.Name & "', '" & Me(ctl.Name) & "')"
            Debug.Print strSQL
            CurrentDb.Execute strSQL
        End If
    Next ctl
Code:
' Textbox_auslesen_u_speichern()
    For Each ctl In Me.Controls
        If Left(ctl.Name, 2) = "TF" And ctl.ControlType = acTextBox Then
            'Me(ctl.Name) = Me(ctl.Name).Column(0, 0)
            strSQL = "INSERT INTO Archiv (Feldbezeichnung, Wert) " & _
                     "VALUES ('" & ctl.Name & "', '" & Me(ctl.Name) & "')"
            CurrentDb.Execute strSQL
        End If
    Next ctl
' variable = Me!Bezeichnungsfeld.Caption (Bezeichnungsfeld auslesen)
' anstelle ACTextBox für Bezeichnugsfeld AcLable ?

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
janpaet
Im Profil kannst Du frei den Rang ändern


Verfasst am:
03. Feb 2007, 11:36
Rufname:

AW: Access 97: Per VBA auf ein Steuerelement verweisen - AW: Access 97: Per VBA auf ein Steuerelement verweisen

Nach oben
       Version: Office 95

Sry, da hab ich mich wohl undeutlich ausgedrückt.
In einer Tabelle habe ich eine Auswahl von Steuerelementnamen meines Formulars gespeichert.

Über diese Namen erstelle ich jeweils ein Control, meinetwegen:
Code:
    Dim rs As Recordset
    Dim ctl As Control
   
    Set rs = CurrentDb.OpenRecordset("tabellenname")
    Set ctl = Controls(rs.Fields("name"))
Soweit so gut.
Jetzt habe ich das Steuerelement lblName (welches im Formular auch existiert).
Ansprechen möchte ich es über die Caption Eigenschaft, also via: lblName.Caption
Meine Frage, wie kann ich über rs.Fields("eigenschaft"), in dem Fall wäre der Eintrag "Caption", die Eigenschaft Caption dem Steuerelement lblName zuweisen, um schreiben zu können: variable = lblName.Caption?
Denn andererseit kann es auch mal der Name einer Combobox sein, dann würde ich ".Column" anfügen müssen.

Gruß Jan
Willi Wipp
Moderator


Verfasst am:
03. Feb 2007, 15:55
Rufname:
Wohnort: Raum Wiesbaden


Re: Access 97: Per VBA auf ein Steuerelement verweisen - Re: Access 97: Per VBA auf ein Steuerelement verweisen

Nach oben
       Version: Office 95

Hi janpaet,

das koenntest Du etwa ueber die Auflistung Properties so machen
Code:
    strVariable = ctl.Properties(rs!Eigenschaft)

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
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: laufende Nummer per Buttonklick übertragen 2 janosch1979 1200 04. Jul 2007, 10:23
janosch1979 laufende Nummer per Buttonklick übertragen
Keine neuen Beiträge Access Tabellen & Abfragen: Per Access Preise vergleichen 1 Sauhund17 688 26. Jun 2007, 15:23
Gast34566 Per Access Preise vergleichen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle per INSERT INTO m. Werten o. Quelltabelle erweitern? 6 Zamp 802 25. Jun 2007, 19:13
Zamp Tabelle per INSERT INTO m. Werten o. Quelltabelle erweitern?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage filter per Formular setzen 2 blabub 1748 15. Jun 2007, 11:19
Gast Abfrage filter per Formular setzen
Keine neuen Beiträge Access Tabellen & Abfragen: Zählen per Aktualisierungsabfrage 5 Globber 795 15. Apr 2007, 10:37
KlausMz Zählen per Aktualisierungsabfrage
Keine neuen Beiträge Access Tabellen & Abfragen: SQL Abfrage einem Steuerelement zuweisen 1 dadoener 1400 15. März 2007, 11:57
rita2008 SQL Abfrage einem Steuerelement zuweisen
Keine neuen Beiträge Access Tabellen & Abfragen: In einem Formular auf eine Dokumentation verweisen 2 Lindnermaic 609 16. Jan 2007, 12:16
Gast In einem Formular auf eine Dokumentation verweisen
Keine neuen Beiträge Access Tabellen & Abfragen: Access Höhe eines Rechteck per VBA Code regulieren 2 Gast1 1835 30. Dez 2006, 16:13
Gast Access Höhe eines Rechteck per VBA Code regulieren
Keine neuen Beiträge Access Tabellen & Abfragen: Per Dropdownliste neue Sätze anlegen? 1 Gast 689 28. Nov 2006, 10:18
GJ Per Dropdownliste neue Sätze anlegen?
Keine neuen Beiträge Access Tabellen & Abfragen: Per Abfrage Zeilenwerte aus einer Tabelle in mehren Spalten 2 missionhro 806 24. Jul 2006, 12:13
missionhro Per Abfrage Zeilenwerte aus einer Tabelle in mehren Spalten
Keine neuen Beiträge Access Tabellen & Abfragen: Export per VBA 1 chris1337 718 09. Mai 2006, 15:39
Nouba Export per VBA
Keine neuen Beiträge Access Tabellen & Abfragen: per Abfrage gleich 50 Datensätze anfügen? 1 Nicole_Mehnert 791 03. Apr 2006, 19:25
Nouba per Abfrage gleich 50 Datensätze anfügen?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln