title image


Smiley TIPP: Mehrere Formularfelder leeren
Verschiedene Möglichkeiten:



1. Über den Namen gehen (einfacher, aber nicht so flexibel):

1a. genau deine 1 Felder "txt1" ... "txt10" leeren (was macht man, wenn es mal 11 werden!?):



Private Sub btnInhalteLoeschen_Click()

Dim I as Long

For I = 1 to 10

Me("txt" & I) = Null

next I

end sub



oder auch

1b. alle Felder, deren Name mit "txt" beginnt, leeren:



Private Sub btnInhalteLoeschen_Click()

Dim C as Control

For Each C in Me.Controls

If Left(C.Name,3) = "txt" then C.Value = Null

next I

end sub



oder auch

1c. alle Textfelder leeren:



Private Sub btnInhalteLoeschen_Click()

Dim C as Control

For Each C in Me.Controls

If C.Controltype = acTextBox then C.Value = Null

next I

end sub





2. Die Tag-/Marke-Eigenschaft auswerten (flexibler, leicht auch auf andere Steuerelemente ausweitbar):



Private Sub btnInhalteLoeschen_Click()

Dim C as Control

For each C in Me.controls

If C.tag = "x" then C.Value = Null

next C

end sub



Du musst dazu natürlich in der Entwurfsansicht die Tag-Eigenschaft aller zu leerenden Steurelemente entsprechend setzen.


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: