title image


Smiley Re: A00 Wie hebt man den 'Nur Lesen Status' eines subForm auf?
Hallo Markus,was du beschreibst, kommt mir ein bisschen merkwürdig vor. Wenn du beim Anzeigen eines Datensatzes me.AllowEdits = False setzt, warum kannst du dann auf den Button "Bearbeiten und Hinzufügen" klicken? Meiner Meinung nach sollte das nicht gehen! Weiter: Du schreibst, das du nach bearbeitung des letzten Feldes im Formular ins UFO springen willst. Wie machst du daß? Mit der Maus, oder über die Tastatur? Machst du es über die Tastatur, so könnte es sein, das einfach nur die Reihenfolge der Elemente im Formular nicht richtig ist.Trotzdem: Wenn dein Fehler tatsächlich darin besteht, daß der Zugriff auf das UFO verboten ist (das kann irgendwann einmal eingestellt und mit abgespeichert worden sein) so kannst du ihn mitme!.Form.AllowEdits = True/Falseu.s.w. explizit über die Schaltfläche "Bearbeiten und Hinzufügen" ändern. Ich stelle übrigens nicht die Eigenschaft eines Formulars / Unterformulars ein, sondern stelle die entsprechenden Eigenschaften für jedes Feld einzeln ein. Dann treten Probleme mit gesperrten Schaltflächen gar nicht erst auf. Ich verwende dazu z.B. den folgenden Code:Im Formular habe ich eine Umschaltfläche "Ändern", die die EreignisprozedurPrivate Sub Ändern_Click() ÄndernZulassen Me.Ändern Me.Stammnr.SetFocusEnd Subhat. ÄndernZulassen ist dabei eine Prozedur, die so aussieht:Private Sub ÄndernZulassen(zulassen As Boolean) Dim cnt As Control For Each cnt In Me.Detailbereich.Controls Select Case cnt.ControlType Case acTextBox, acComboBox cnt.Locked = Not (zulassen) Case acComboBox cnt.Form.ÄndernZulassen zulassen 'Diese Prozedur ist im UFO definiert! 'Weitere Fallunterscheidungen, falls nötig. Konstanten siehe Onlinehilfe unter ControlType End Select Next cntEnd subSchließlich noch die folgende Ereignisprozedur beim Anzeigen der Daten:Private Sub Form_Current() Me.Ändern = Me.NewRecord 'neue Datensätze sind bearbeitbar, alte nur auf Knopfdruck ÄndernZulassen Me.Ändern End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: