Domino 9 und frühere Versionen > ND6: Entwicklung

querysave Datumfeld

<< < (2/4) > >>

emadowo:
Hallo!

Hab eine Msgbox vor ExitSub eingegeben, und diese wird auch ausgegeben. Es kommt somit die erste Msgbox, dann die zweite Msgbox, dann schließt sich das Dokument ohne es zu speichern - einfach weg, das erfaßte, im nirwana, niente, nothing  :-:  Vermutlich wird die Zeile gotofield.. nicht ausgeführt.

Vielen Dank für weitere Tipps! :-))

Untitled:
Also ich hab das eben getestet und bei mir funktioniert dein Code.

Die Frage stellt sich mir, warum wird das Doc geschlossen wenn du nur speicherst?

Wie wird das QueryClose aufgerufen? Durch "Ctrl + S"?

Bitte beschreibe mal ein bisschen das Umfeld.

Grüsse
Moritz

emadowo:
Hm, ich möchte ja speichern, aber er tus ja gar nicht. Das QueryClose wird durch Klick auf eine Schaltfläche "speichern" ausgelöst, hinter der ein "FileSave" steckt:@Command([FileSave]) und
@Command([FileCloseWindow]). Strg+S bewirkt dasselbe.

Btw: der Code für das Datumsfeld lautet dank der obigen Antworten jetzt anders:
               If Trim(source.document.VerBeginn(0)) = "" Then
      Msgbox ("Bitte erfassen Sie den Vertragsbeginn!")
      source.gotofield("VerBeginn")      
      continue = False
      Msgbox ("Testmeldung - verschwindet wieder!")
      Exit Sub
   End If

Das Umfeld beschreiben? Was meinst damit?

emadowo:
Oh, sorry, Strg+S bewirkt nicht dasselbe. Also:

wenn ich über meine Schaltfläche "Speichern" (command(FileSave) + CloseWindow) rausgehe, treten oben beschriebene Probleme auf, wenn ich über Strg+S raus möchte, funktioniert die Formel, der Cursor geht zum Datumsfeld.

Ein erster Erfolg, juhu! Jetzt müßt ich nur noch wissen, wo ich welche "FileSave"-Kommandos ins script einbauen muß, dann hau' ich die @-Formel aus der Schaltfläche raus. Vermutlich wärs das.

Hier nochmal das ganze Script:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   
   If (source.document.VerArt(0) = "") Then
      Msgbox ("Bitte erfassen Sie die Vertragsart!")
      source.gotofield("VerArt")
      continue = False
      Exit Sub
   End If
   
   If (source.document.VerTitel(0) = "") Then
      Msgbox ("Bitte erfassen Sie den Vertragstitel!")
      source.gotofield("VerTitel")
      continue = False
      Exit Sub
   End If
   
   If (source.document.VerPartner(0) = "") Then
      Msgbox ("Bitte erfassen Sie den Vertragspartner!")
      source.gotofield("VerPartner")
      continue = False
      Exit Sub
   End If
   
   If (source.document.Verantwortlich(0) = "") Then
      Msgbox ("Bitte erfassen Sie die verantwortliche Abteilung!")
      source.gotofield("Verantwortlich")
      continue = False
      Exit Sub
   End If
   
   If (source.document.Verwahrort(0) = "") Then
      Msgbox ("Bitte erfassen Sie den Verwahrort!")
      source.gotofield("Verwahrort")
      continue = False
      Exit Sub
   End If
   
   If Trim(source.document.VerBeginn(0)) = "" Then
      Msgbox ("Bitte erfassen Sie den Vertragsbeginn!")
      source.gotofield("VerBeginn")      
      continue = False
      Exit Sub
   End If
   
End Sub

koehlerbv:
Und was steht in Deiner Schaltfläche konkret? Verwendest Du @PostedCommand für FileClose Window?

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete