Seite 1 von 1
Textbox sauber machen.
Verfasst: Sa 24. Okt 2015, 15:49
von 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.
Re: Textbox sauber machen.
Verfasst: Sa 24. Okt 2015, 19:26
von 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
Re: Textbox sauber machen.
Verfasst: So 25. Okt 2015, 14:12
von 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.
Re: Textbox sauber machen.
Verfasst: So 25. Okt 2015, 14:59
von 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
Re: Textbox sauber machen.
Verfasst: So 25. Okt 2015, 15:10
von Atwist
Hallo Mikele,
Danke es funktioniert.
Gehe jetzt mal gucken wie die Makro funktioniert
Re: Textbox sauber machen.
Verfasst: So 25. Okt 2015, 20:17
von 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
Re: Textbox sauber machen.
Verfasst: Mo 26. Okt 2015, 08:04
von 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