title image


Smiley TIPP: Eingabemodus des Formulars ändern
Z.B. so:



Private Sub Aendern_Click()

Me.DataEntry = False

Me.AllowAdditions = False

End Sub



Private Sub Neu_Click()

Me.DataEntry = True

Me.AllowAdditions = True

End Sub



Private Sub Form_Load()

Call Aendern_Click

End Sub



oder mit einer Umschaltfläche:



Private Sub Umschalt_Click()

If Nz(Me!Umschalt, False) Then

Me!Umschalt.Caption = "Neu"

Me.DataEntry = True

Me.AllowAdditions = True

Else

Me!Umschalt.Caption = "Ändern"

Me.DataEntry = False

Me.AllowAdditions = False

End If

End Sub



Private Sub Form_Load()

Call Umschalt_Click

End Sub





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: