PDA

Vollständige Version anzeigen : Löschen von Daten in bestimmten Datensätzen verhindern


Albi
31.10.2001, 21:30
Hallo alle zusammen,

ich habe folgendes Problem und weiß nicht mehr weiter.
Die folgende Prozedur bewirkt, daß wenn im Feld [sicherung] sich Eingaben befinden, der entsprechend dazugehörie Datensatz nicht mehr editiert werden kann.

Private Sub Form_Current()

If Not IsNull(Me!Sicherung) Then
Me.AllowEdits = False ' ist gedruckt, es darf nicht mehr editiert werden
Else
Me.AllowEdits = True ' ist noch nicht gedruckt, darf editiert werden
End If

End Sub

wie müßte die Prozedur aussehen, wenn nur bei der Eingabe von z. B. der Zahl 1 die Daten nicht mehr editiert werden können? Bei allen anderen Eingaben soll das Editieren möglich sein. Weiterhin besteht das Problem, daß sich die Sperrung nur auf das Hauptformular auswirkt und nicht auf die entsprechend verknüpften Datensätze in Unterformularen. Gibt es eine Möglichkeit, daß auch diese von der Sperrung betroffen sind?

Besten Dank im Voraus.

Albert

WalterS
31.10.2001, 21:36
Hi Albert!
So:
If Me!Sicherung = '1' Then
Me.AllowEdits = False ' ist gedruckt, es darf nicht mehr editiert werden
me!U_Form.Form.AllowEdits = False
Else
Me.AllowEdits = True ' ist noch nicht gedruckt, darf editiert werden
me!U_Form.Form.AllowEdits = True
End If

End Sub

Albi
31.10.2001, 22:39
Hi WAlter

dein Vorschlag funktioniert super!! Danke

vielleicht könntest du mir nochmal helfen. Die beschriebene Prozedur verhindert jetzt zwar, daß die Felder im Haupt- und Unterformular nicht mehr editiert werden können, ich habe jedoch festgestellt, daß sich der gesamte Datensatz noch löschen läßt. Kann man dies auch noch unterbinden ????

Gruß Albert