Textbox sauber machen.

[Atwist]

Hallo Leute,


Ich habe 3 Textbox die ich mit einen Button leer machten will aber ich bekomme dass nicht hin.
Einen Button ist gemacht bei Eigenschaft hab ich bei Handlung Eingabe entfernen (hoffe dass es die richte Umschreibung ist, benutze eine andere Sprache)
Mit Makro Aufnahme hab ich es auch versucht bringt ach nichts.
Hat jemand ein Beispiel wie ich es machen kann.

Ich danke im Voraus.

[lorbass]

Stelle uns bitte eine anonymisierte / verfremdete Beispieldatei zur Verfügung. Als angemeldeter Benutzer kannst du diese mit deinem nächsten Beitrag unmittelbar hier im Forum hochladen.

Dann wird sich sicher jemand finden, der dir alles Notwendige einbaut und die ergänzte Beispieldatei wieder hochlädt, so dass du die Lösung nachvollziehen kannst.

Gruß
lorbass

[Atwist]

Hallo

Im Formular "zoekscherm" gibt es einen schalt-flache mit der Name "knop", diesen soll die Eingabefelder "Artiast naam", "Titel naam" und "jaartal" wieder leer machen.

Die Datei ist ein Database über die "TOP 2000" ein Holländische Radio Programm der in der letzte Woche des Jahres die Top 2000 von 1936 bis jetzt auf Sender bringen.
In Holland ist dass ganz groß, auch für die Holländer die über die ganze Welt über dass Internets zuhören.

https://copy.com/8IVYteUnJ0tWNpCY

Datei ist zu groß daher einen Link.

Ich hoffe Sie können mir helfen.

[mikele]

Hallo,

das folgende Makro sollte dein Problem lösen:

Code: Alles auswählen

sub leegmaken (event)
	formular=event.source.model.parent
	afields=array("txtfilter-artiest","txtfilter-titel", "txtfilter-jaar")
	for i=0 to 2 
		ofield=formular.getbyname(afields(i))
		ofield.text=""
	next
end sub

[Atwist]

Hallo Mikele,

Danke es funktioniert.
Gehe jetzt mal gucken wie die Makro funktioniert

[F3K Total]

Hallo,
ich habe noch eine Version, die die Felder in der Filtertabelle zu Null setzt. Dann wird das Formular erneut geladen. D.h. ein Druck auf den Button mit folgendem Code löscht die drei Filterfelder und zeigt dann wieder alle Datensätze im Formular an.

Code: Alles auswählen

Sub S_Clear_Filter
    oFormFilter = Thiscomponent.drawpage.forms.Filter
    acolumns =  oFormFilter.columns  
    for i = 1 to acolumns.count - 1
        acolumns(i).updatenull
    next i
    oFormFilter.updaterow
    oFormFilter.reload
End Sub

Gruß R

[Atwist]

F3K Total,

Danke diesen Makro Arbeitet noch schöner, muss jetzt heraus finden wie diesen funktioniert.
Wie die Makro von Mikele funktioniert kann ich schon ein bissen verstehen.
Aber ich mach mich mal schlau.

Vielen dank