Aktion durch anwählen eines bestimmten Registersteuerelementes

[smily68]

Hallo

Ich habe in meinem Formualr zwei Registersteuerelemente. Ich möchte nun, wenn ein im ersten Registersteuerelement ein Register anwähle, der Fokus auf ein bestimmtes Feld im zweiten Registersteuerelement springt.

Ich habe nichts gefunden, wo ich einen Code hinterlegen kann. Ich habe nur folgende Möglichkeiten gefunden einen Code zu hinterlegen.
- Registersteuerelement (dies ist allgemein und es gibt keine unterscheidung des Registers)
- Seite (hier muss ich, wenn ich das Register angewählt habe, noch einen Klick im Register selber machen)

Gibt es eine Möglichkeit einen Code zu hinterlegen, der ausgeführt wird, wenn ein Register anwähle?

Gruss Daniel

[database]

Hallo,

Annahme:

Access 2010

Register 1 ... heißt regEins
Register 2 ... heißt regZwei

Auf regZwei befindet sich ein Textfeld  'txtFeld' auf Registerblatt 2

Gewünscht ist beim Aktivieren des ersten Registerblattes auf regEins das Textfeld auf regZwei den Focus erhält.

Code im Klickereignis von regEins:

Code [Auswählen] Erweitern


Private Sub regEins_Click()

    If Me.regEins = 0 Then
        Me.regZwei.Pages(1).Controls("txtFeld").SetFocus
    End If

End Sub


HTH

[smily68]

Hallo

Ich habe Access 2007.  Wenn ich deinen Code nehme passiert nichts. Liegt das an der Version 2007?



Private Sub tabAuftrKopf_Click()

    If Me.regAuftrKopf_Kopf = 1 Then
        MsgBox "Test"
        Me.tabMenu.Pages(1).Controls("cmdPos").SetFocus
    End If

End Sub

Gruss Daniel

[bahasu]

Hi,

> Ich habe nichts gefunden, wo ich einen Code hinterlegen kann

eventuell kommst Du mit dem Register-Ereignis "Bei Änderung" an Dein Ziel.
Dort kann eine Routine hinterlegt werden in der Art:
Select Case Me.Register_Dein_R
       Case 0

       Case 1
End Select

So etwas setze ich unter a2007 ein.

Harald

Nachtrag:
0, 1 sind die Nummern der Register
Das Click-Ereignis konnte ich bei meinen früheren Versuchen nur anwenden, wenn ich NEBEN einem Register-Reiter geklickt hatte.

[DF6GL]

Hallo,


Wie heißen denn nun die Register-St.-El.?

Code [Auswählen] Erweitern

Private Sub regAuftrKopf_Change()
   If Me!regAuftrKopf= 1 Then    Me!cmdPos.SetFocus   ' 1 == Seitenindex des gewünschten "Reiters"
End Sub


reicht

[database]

Hallo,

wie DF6GL schon angemerkt hat ...

Code [Auswählen] Erweitern


Private Sub tabAuftrKopf_Click()

    If Me.regAuftrKopf_Kopf = 1 Then


... kann da was am Register-St.Element-Namen nicht stimmen 

[smily68]

Hallo


Mit Change funktioniert es, mit click jedoch nocht, ob der Code sauber hinterlegt ist beim Click-Ereignis.

Gruss Daniel

[database]

Hallo,

Mit Change funktioniert es, mit click jedoch nocht

Das hat auch bei 2003 Probleme gemacht.
Wahrscheinlich sind die Steuerelemente von 2007 und 2010 NICHT gleich aufgebaut.
Wenn's aber mit dem Change-Ereignis läuft solls gut sein