Supportnet / Forum / Skripte(PHP,ASP,Perl...)
macro über einen command button
Frage
hallo,
habe eine macro geschrieben, dass die felder in einem formular löscht. dies möchte ich per knopfdruck haben.
wie geht das?
Antwort 1 von bambambigelow
hier ist der code
Sub ResetAllFields()
Dim feld As FormField
For Each feld In ActiveDocument.FormFields
If feld.Range.Bookmarks.Count > 0 Then
Select Case feld.Type
Case wdFieldFormTextInput
feld.Result = ""
Case wdFieldFormDropDown
feld.DropDown.Value = 1
Case wdFieldFormCheckBox
feld.CheckBox.Value = False
End Select
End If
Next
End Sub
Sub ResetAllFields()
Dim feld As FormField
For Each feld In ActiveDocument.FormFields
If feld.Range.Bookmarks.Count > 0 Then
Select Case feld.Type
Case wdFieldFormTextInput
feld.Result = ""
Case wdFieldFormDropDown
feld.DropDown.Value = 1
Case wdFieldFormCheckBox
feld.CheckBox.Value = False
End Select
End If
Next
End Sub
Antwort 2 von ClemBra
Nach dem Code ist es MsAccess. Warum schreibst du dass nicht direkt dazu??
Und dabei ist das kein Makro, sondern Code.
Auf den Button rechte Maustaste->Ereignis (oder doppelklick Links) und dann auf "Code-..."
Da entweder den obigen Code direkte eingeben oder, falls der öfters verwendet wird, einfach den Funktionsnamen, damit die Funktion aufgerufen wird.
Und dabei ist das kein Makro, sondern Code.
Auf den Button rechte Maustaste->Ereignis (oder doppelklick Links) und dann auf "Code-..."
Da entweder den obigen Code direkte eingeben oder, falls der öfters verwendet wird, einfach den Funktionsnamen, damit die Funktion aufgerufen wird.
Antwort 3 von bambambigelow
Danke Dir,
habe es jetzt schon hinbekommen.
habe es jetzt schon hinbekommen.