title image


Smiley Re: Aendern von Datensaetzen sperren
Hallo Namenskusine,ich hab es über ein Symbol in der Symbolleiste gelöst(entsperren geht genauso):Public Function DatenSperre() frmname = Screen.ActiveForm.Name If frmname = "Firmendaten" Then If Forms!firmendaten.NewRecord = True Then MsgBox ("Sperren im neuen Datensatz nicht erlaubt!") Exit Function End If Forms!firmendaten!Firmenname.SetFocus End If If frmname = "Personendaten" Then If Forms!Personendaten.NewRecord = True Then MsgBox ("Sperren im neuen Datensatz nicht erlaubt!") Exit Function End If Forms!Personendaten!Nachname.SetFocus End If gblnbearbeiten = False Set v = CommandBars("Symbolleiste Firmen") Set gSperrenFirmen = v.Controls("Sperren") Set gEingabeFirmen = v.Controls("Eingabe") gSperrenFirmen.Visible = False gEingabeFirmen.Visible = True Forms!firmendaten!eingabe.Visible = False Forms!firmendaten.AllowEdits = False Forms!firmendaten.AllowAdditions = False Forms!firmendaten.AllowDeletions = False Forms!firmendaten![Personendaten Unterformular].Form.AllowEdits = False Forms!firmendaten![Personendaten Unterformular].Form.AllowAdditions = False Forms!firmendaten![Personendaten Unterformular].Form.AllowDeletions = FalseEnd FunctionGruß,Renate

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: