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
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:
Private Sub regEins_Click()
If Me.regEins = 0 Then
Me.regZwei.Pages(1).Controls("txtFeld").SetFocus
End If
End Sub
HTH
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
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.
Hallo,
Wie heißen denn nun die Register-St.-El.?
Private Sub regAuftrKopf_Change()
If Me!regAuftrKopf= 1 Then Me!cmdPos.SetFocus ' 1 == Seitenindex des gewünschten "Reiters"
End Sub
reicht
Hallo,
wie DF6GL schon angemerkt hat ...
Private Sub tabAuftrKopf_Click()
If Me.regAuftrKopf_Kopf = 1 Then
... kann da was am Register-St.Element-Namen nicht stimmen ???
Hallo
Mit Change funktioniert es, mit click jedoch nocht, ob der Code sauber hinterlegt ist beim Click-Ereignis.
Gruss Daniel
Hallo,
ZitatMit 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 ;D