MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 25.05.2018, 07:19   #1
mrxad81
Neuer Benutzer
Neuer Benutzer
Standard Acc2013 - Kopieren aus Unterformular in Textfeld eines variablen Registersteuerelements

Guten Morgen,

ich habe folgende Problemstellung:

Ich habe eine Hauptformular ("frm_1_Gremien") welches ein Unterformular ("frm_s_Gremien") beinhaltet. Weiterhin beinhaltet das Hauptformular ein Registersteuerelement mit den Registernamen "1","2","3",... etc.

Das Registersteuerelement "1" beinhaltet ein Textfeld "Thema1",
das Registersteuerelement "2" beinhaltet ein Textfeld "Thema2" usw.

Das Unterformular beinhaltet ein Textfeld "Thema".

Ich möchte nun die Daten aus dem Textfeld "Thema" (aus dem Unterformular) in das Textfeld "Thema1" oder "Thema2" etc. kopieren, je nach dem welches Registersteuerelement gerade aktiviert/sichtbar ist.

Ich habe das bisher versucht so zu lösen:

If MsgBox("Sollen die Daten ins Protokoll übernommen werden?", vbYesNo, "Datenübernhame") = vbYes Then
Me.Parent.Thema1 = Me.Thema
End If

In dieser Form werden natürlich die Daten leider nur in das Textfeld des Registers "1" kopiert.
Ich möchte dies jedoch variabel kopieren, in das Registersteuerelement, welches aktiviert/sichtbar ist.

Könnt Ihr mir weiter helfen?
Zur Not könnte ich mir auch vorstellen das vor dem kopieren eine Abfrage kommt, in welches Register kopiert werden soll.
mrxad81 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.05.2018, 08:44   #2
markusxy
MOF Meister
MOF Meister
Standard

Zitat: von mrxad81 Beitrag anzeigen

In dieser Form werden natürlich die Daten leider nur in das Textfeld des Registers "1" kopiert.
Ich möchte dies jedoch variabel kopieren, in das Registersteuerelement, welches aktiviert/sichtbar ist.

Eine Möglichkeit wäre zu prüfen, welches Register sichtbar ist und dann in das richtige Feld einzutragen.

Es gibt auch die Möglichkeit, weniger Register zu verwenden - oder je nach Erfordernis überhaupt auf das Register zu verzichten - und erst zur Laufzeit ein entsprechendes UnterFormular zu laden. Dann kann der Name des Feldes immer gleich lauten.

Solche Änderungen sind aber immer tiefgreifend und gut zu überlegen.

LG Markus
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.05.2018, 09:06   #3
mrxad81
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke für den Hinweis.

Wie könnte ich das realisieren, also prüfen welches Register sichtbar ist und dann in das Textfeld dieses Registers rein kopieren?
(Bin Anfänger ;-)
mrxad81 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.05.2018, 09:18   #4
markusxy
MOF Meister
MOF Meister
Standard

Ich arbeite nie mit Registern.
Du scheinst aber zu wissen wie man sie deaktiviert.
Statt den Status also zu ändern prüfst du den Status nur.

Wenn es nicht klappt so poste deinen Versuch.
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.05.2018, 11:34   #5
mrxad81
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Wie lautet denn der Befehl zur Prüfung auf Sichtbarkeit?
Es sind letztendlich alle Register aktiviert. Ich möchte aber zu dem was ausgewählt ist springen.

If [Register1].visible = True then

???
mrxad81 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.05.2018, 11:50   #6
markusxy
MOF Meister
MOF Meister
Standard

Zitat: von mrxad81 Beitrag anzeigen

Wie lautet denn der Befehl zur Prüfung auf Sichtbarkeit?
Es sind letztendlich alle Register aktiviert. Ich möchte aber zu dem was ausgewählt ist springen.

If [Register1].visible = True then

???

Wie gesagt keine Ahnung.
Aber es gibt ja die Hilfe, weißt du wie man die benützt?
Wie ich sehe zeigt die TabControl.Value Eigenschaft die gewünschten Infos.
Lies es dir durch und versuche es anzuwenden - außer du willst dich nicht weiter entwicklen.
LG Markus
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 28.05.2018, 10:03   #7
mrxad81
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ich komme hier leider nicht wirklich weiter.
Hab versucht im Netz noch Infos hierzu zubekommen,
leider ohne Erfolg.

Hat niemand eine Idee wie der Code für die Abfrage lautet?
mrxad81 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 28.05.2018, 12:13   #8
maikek
MOF Guru
MOF Guru
Standard

Moin,
probier doch mal aus, ob dies Verfahren http://www.donkarl.com?FAQ4.17 auch z.B. per Buttonklick für das Kopieren der Texte funktioniert.
maike

__________________

Bitte dein Thema auf erledigt setzen, wenn's durch ist!
MOF Access Stammtisch in Bremen
maikek ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 28.05.2018, 12:49   #9
Beaker s.a.
MOF Koryphäe
MOF Koryphäe
Standard

Code:

    Dim ctl As Access.Control

    Select Case DeinRegisterControl.Value
    Case 1
        Set ctl = Me.Parent.Controls("Thema1")
        ctl.Value = Me.Controls("Thema").Value
'usw.
    End Select
oder, wenn die Zielcontrols einen "Index" im Namen tragen; - den Index der Register entsprechend anpassen, dann geht auch so
Code:

    Dim ctl As Access.Control

    Set ctl = Me.Parent.Controls("Thema" & DeinRegisterControl)
    ctl.Value = Me.Controls("Thema").Value

edit:
Code korrigiert.

__________________

--
S.M.I.²L.E.

Geändert von Beaker s.a. (28.05.2018 um 14:17 Uhr).
Beaker s.a. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 28.05.2018, 13:09   #10
gpswanderer
MOF Guru
MOF Guru
Standard

Hallo,
der TE hat zu Office-Lösung gewechselt.

__________________

Gruß
Klaus
Office2016, Win10
gpswanderer ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:09 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.