Office: Tabtaste deaktivieren

Hallo, ich bin's mal wieder mit einer banalen Frage, aber bei funktioniert das nicht

Ich möchte im Formular die Tabtaste "ausschalten", also habe ich folgende Sub geschrieben:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 9 Then
KeyCode = 0
End If
End Sub

Nur es ändert sich nichts! Ich hüpf immer noch von feld zu Feld !?

 

Hallo Anna,

wenn Du einen Keycode in einem Textfeld abfangen möchtest musst Du das Ereignis dort auswerten.

Code:

Private Sub Feldname_KeyDown(KeyCode As Integer, Shift As Integer)  'Tab - Taste unterdrücken
 If KeyCode = 9 Then
    DoCmd.CancelEvent
 End If
End Sub

 

Moin allerseits,

nur als dusselige Frage eines definitivnichtaccessors: Das Textfeld befindet sich in einer Userform? Gibt es dort die Eigenschaft für jedes Control TabStop ja/nein?.

In XL ließe sich das dann über eine Schleife in der Userform_Init/activate abschalten.

Sinngemäß: Wenn Controltype = TextBox dann .TabStop = false ... oder so ähnlich.

Schöne Grüße

 

Hallo Euch beiden!
Ich habe das Problem, dass ich die Tabtaste in der gesamten Form dekativieren will, weil ich das Phänomen habe, dass es bei der Navigation mit Tab plötzlich zum Speichern des Datensatzes (der aber leer ist) kommt, und ich nicht weiß wieso.
Die Form enthält Kombinationsfelder, ein Textfeld und Buttons für Löschen, Speichern und Form schliessen. Alle sind mit VBA und nicht mit Makros ereignisgesteuert.
Da stellt sich für mich die Frage: Löst eine Tab, wenn es auf einen Button springt dessen Ereignis aus? Dann könnte ich nur bei diesem Controlobject dieTab deaktivieren.

 

Moin Anna,

selten genug dass ich vermute, dass (zumindest ich) das Problem nur sinnvoll angehen kann, wenn Du den Code der Userform hier mal hochlädst. Leider ist das für den Export-Code etwas aufwändig, aber dann könnte man auch die Userform mal besichtigen.

Dann würde sich vielleicht auch der Satz verstehen lassen: "Alle sind mit VBA und nicht mit Makros ereignisgesteuert."
Nur zu - irgendwie lässt sich das lösen ...

Grüße

 

Okay - the other way round ...
Bau Dir eine Userform, die ein paar Textboxen und einen Togglebutton enthält. Der verpasst Du dann folgenden Code:

Code:

Option Explicit

Private Sub UserForm_Activate()
Dim ctr As Control
    For Each ctr In Controls
        If Left(TypeName(ctr), 4) = "Text" Then
            ctr.TabStop = False
        End If
    Next
    TextBox1.SetFocus
    ToggleButton1 = False
End Sub

Private Sub ToggleButton1_Click()
Dim ctr As Control

If ToggleButton1 = True Then
    For Each ctr In Controls
        If Left(TypeName(ctr), 4) = "Text" Then
            ctr.TabStop = True
        End If
    Next
Else
    For Each ctr In Controls
        If Left(TypeName(ctr), 4) = "Text" Then
            ctr.TabStop = False
        End If
    Next
End If

    TextBox1.SetFocus
End Sub

USF starten, tabsen, toggeln und staunen
Damit sollte sich wohl auch in AC Dein Thema [entsprechend angepasst] lösen lassen.

Grüße

 

Hallo Anna,
ein Datensatz wird in Access immer dann gespeichert, wenn das letzte Feld in der Tab-Reihenfolge verlassen wird und der Poiniter dann zum nächsten Datensatz springt. Dies ist auch dann der Fall, wenn das Feld über die Pfeiltasten verlassen wird.
Sperrst Du das letzte Feld, geht der Effekt auf das vorletzte Feld über. Es ist also ziemlicher Unfug das über Tastenprüfungen zu steuern.

Wenn Du lediglich das Speichern eines "leeren" Datensatzes verhindern möchtest, ist es doch sinvoller den Datensatz, bzw. seine Felder im Formularereignis "Vor Aktualisierung" (Before_Update) auf Inhalt und Gültigkeit zu prüfen und dann im Fehlerfall das Speichern mit "DoCmd.CancelEvent" abzubrechen. Dann bleibt der Datensatzpointer im selbigen Satz und Du bist sicher, dass die eingegebene Daten im Fall der Speicherung Deinen Vorstellungen entsprechen.

@d'r Bastler: In diesem Zusammenhang ist zu beachten, dass Access eben NICHT Excel ist. Das VBA ist zwar in weiten Teilen gleich, aber das Objektmodell und die Eventsteuerung, z.B. bei Userforms unterscheiden sich schon ziemlich.

 

Hallo andyfau,
na jetzt weiß ich wenigstens, wieso ein leerer DS gespeichert wird. Wie frage ich aber alle Felder im Before_Update alle Felder nach "IstNichtNull" ab?

 

Es reicht doch ein Feld, welches auf keinen Fall leer sein darf. Außerdem gibt es in den Feldeigenschaften "Gültigkeitregel" und "Gültigkeitsmeldung".
Ansonsten mit VBA

Code:

If Not IsNull(Me.Feldname) And Me.Feldbame <> "" Then
   msgbox "alles gut"
End If

 

andyfau, dann hab ich zu kompliziert gedacht - DANKE!!

 

Moin andy,
dass AC N I C H T XL ist und es Unterschiede gibt, ist mir durchaus bewusst, weswegen ich bei AC Themen auch eher Fragen stelle, die dem Schema "um die Ecke denken" entsprechen. Angeblich - so sagen mir berufenere Quellen als ich - soll aber folgender Code in einer AC Form durchaus funktionieren. Und s o w e i t weg, wäre der ja dann doch nicht.

Code:

Option Explicit

Private Sub Form_Activate()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If Left(TypeName(ctrl), 4) = "Text" Or Left(TypeName(ctrl), 4) = "Togg" Then
            ctrl.TabStop = False
        End If
    Next ctrl
    Me.TextBox1.SetFocus
    Me.ToggleButton1.Value = False
End Sub

Private Sub ToggleButton1_Click()
    Dim ctrl As Control
   
    If Me.ToggleButton1.Value = True Then
        For Each ctrl In Me.Controls
            If Left(TypeName(ctrl), 4) = "Text" Then
                ctrl.TabStop = True
            End If
        Next ctrl
    Else
        For Each ctrl In Me.Controls
            If Left(TypeName(ctrl), 4) = "Text" Then
                ctrl.TabStop = False
            End If
        Next ctrl
    End If
   
    Me.TextBox1.SetFocus
End Sub

Über den Toggle wird ausgewählt ob nur die TextBoxen einen TabStop haben, oder nichts.
Freue mich, wenn's funktioniert- falls nicht: wieder was gelernt
Schöne Grüße

 

Hallo!
Ich habs mit der Gültigkeitsregel "ist null" probiert, da passiert nichts - es erscheint auch kein Meldungstext.
in VBA hab ich den Code in allen Varianten probiert:
Das Feld ist ein Tabellen-textfeld und wenn ich das Feld im Lostfocus-Ereignis abfrage ob es NULL oder leer ist funktioniert es, ABER die Meldung kommt auch wenn ich das Fenster aus einem anderen Fenster aufrufe!

Private Sub InfText_LostFocus()
If IsNull(InfText.Value) Or InfText.Value = "" Then
MsgBox "Da fehlt das Wichtigste!"
InfText.SetFocus
End If
End Sub

Ich wollte auch, dass das Textfeld wieder den Focus bekommt, wenn ich das Feld verlasse - nix!
Ich hab's auch im BeforeUpdate-Ereignis des folgenden Feldes probiert - bringt auch nichts!

 

Hallo @d'r Bastler,
der Code funktioniert, keine Frage. Ich wollte Dir nicht zu nahe treten.

Mir ging es eher darum die Verarbeitung von Daten als grundlegend zwischen Excel und Access verschieden darzustellen.
In Excel findet das Meiste in den Tabellen direkt statt (Formeln, Summen, etc). Ein Userform wird ja mehr oder weniger nur darübergelegt.
Eine Datenbank lebt von Tabellen und ihren Beziehungen untereinander, was in Excel herzustellen sehr aufwendig, wenn nicht gar unmöglich ist. In den Tabellen wird tunlichst nicht gerechnet, konsolidiert und analysiert. Dazu gibts die Abfragen, Dynasets und Recordsets. Erst dann kommen Formulare und Reports ins Spiel.

Grundlegend ist der Speichermechanismus eben auch völlig anders. In Excel wird immer die gesamte Tabelle gespeichert und das erst explicit wenn der der Anwender es sagt. (von Sicherheitszwischenspeicherung mal abgesehen). Access speichert immer datensatzweise und das auch schon beim internen Satzwechsel, ohne weiteres Zutun des Anwenders.

 

Du fragst da offensichtlich ein Tabellen- oder Abfragefeld ab und nicht das Formularfeld. Das müsste doch mit "Me." beginnen.

 

Hallo andyfau, ja ich habe in einer Form die gebundenen Felder eingefügt. Im Detailbereich habe ich das Textfeld InfText eingefügt. Das Feld muß auf alle Fälle ausgefüllt werden.
Meine Überlegung: 1. wenn das Feld verlassen wird, 2. wenn das folgende Feld mit Tab angesteuert wird, soll der Inhalt geprüft werden. Es funktioniert ja bei InfText_Lostfocus. Aber wenn ich aus meiner Hauptform das Erfassungsform aufrufe erscheint schon der Hinweistext aus der Msgbox - und ich weiß nicht warum. Mein Erstes Feld das nach dem Öffnen angesprungen wird ist das Titelfeld "infTitel"