MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Word
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 10.01.2017, 16:16   #16
Lisa-Asil
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Gerhard,

Du glaubst gar nicht, wie sehr Du mir geholfen hast. Vielen herzlichen Dank... ganz irre.

Ein nice to have hätte ich noch. Wie kann ich die Laufzeitfehlermeldung umgehen, wenn ich das Datum im Kalender lösche? Ich weiß, man kann es mit der Auswahl des Tagesdatums über den Kalender lösen, aber das ist ja nicht so nutzerfreundlich.

Grüße Lisa
Lisa-Asil ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.01.2017, 19:08   #17
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo Lisa,

dann musst du halt noch eine Abbruchsbedingung formulieren. Ich hab bei der Gelegenheit noch einmal umgestellt, deshalb hier nochmal das ganze Exit-Makro:
Code:

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
Dim aktuellesDatum As String
Dim sysdate As Date

'nur aktiv werden, wenn der Tag "SUBS_TERMIN" lautet:
If CC.Tag <> "SUBS_TERMIN" Then Exit Sub

'die beiden Datums festlegen
aktuellesDatum = CC.Range.Text
sysdate = Date

'abbrechen, wenn Inhalt des Steuerelements nicht datumskompatibel
If IsDate(aktuellesDatum) = False Then Exit Sub

'Neuberechnung nur starten, wenn Inhalt des Contentcontrols geändert wird
If ausgangsdatum = aktuellesDatum Then Exit Sub

    ActiveDocument.FormFields("SUBS_TAGE").Result = DateDiff("d", sysdate, aktuellesDatum)
    'MsgBox "Der Subs-Termin " & SUBS_TERMIN & "und das Sysdate " & Sysdate & " haben eine Differenz von Subs-Tagen " & SUBS_TAGE & "!"
    'Feld 91 TEST
    ActiveDocument.FormFields("TEST").Result = "??"
    
End Sub
Es empfiehlt sich übrigens, in den Eigenschaften des Controls die Option kann nicht gelöscht werden zu aktivieren. Andernfalls ist das ganze Control schnell versehentlich weg, wenn jemand den Inhalt löschen will.

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.01.2017, 16:28   #18
Lisa-Asil
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Gerhard,

hoffentlich letzte Frage: Wie bekomme ich es nun noch hin, dass das Feld SUBS_TAGE dann auch noch gelöscht wird? So funktioniert es nicht:
Code:

If IsDate(aktuellesDatum) = False Then 
ActiveDocument.FormFields("SUBS_TAGE").Result = ""
Exit Sub
Gruß Lisa
Lisa-Asil ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.01.2017, 17:36   #19
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo Lisa,

bei mir geht das genau so, wie du es geschrieben hast. Aber bei dir bleibt die zuletzt enthaltene Zahl stehen?

Springt das Makro denn überhaupt an? Das kriegst du raus, indem du z.B. temporär eine Messagebox einbaust, z.B. so:
Code:

If IsDate(aktuellesDatum) = False Then 
	msgbox "mach mich leer"
	ActiveDocument.FormFields("SUBS_TAGE").Result = ""
	Exit Sub
end if
Und verzeih noch eine dumme Frage: Du hast schon bemerkt, dass du das OnExit-Makro (über Ausführen >) zurücksetzen musst, wenn ein Fehler passiert ist? Anders wie bei "normalen" Makros kannst du nicht einfach nochmal neu starten.

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.01.2017, 15:21   #20
Lisa-Asil
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Gerhard,

ja, jetzt klappt es. Alles schick. Nochmals vielen Dank für Deine Hilfe und Geduld, Du bist echt eine Bank. Bleibt mir nur zu sage, schade, dass ich es nicht selbst hinbekommen habe, aber ich habe definitiv etwas dazu gelernt. Danke.

Gruß Lisa
Lisa-Asil ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:07 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.