Autor Thema: form Abfrage per Script  (Gelesen 1495 mal)

Offline MrMagoo

  • Senior Mitglied
  • ****
  • Beiträge: 359
  • Geschlecht: Männlich
  • AAAhhh
form Abfrage per Script
« am: 17.11.03 - 15:43:37 »
Hallo zusammen,

in der Formelsprache gibt es ja folgende Formel zur Abfrage einer Maske um z.B. Tochterdokumente zu erstellen

@If(Form != "Maske1" ;@Prompt([OK];"Failure";"If you want to create ...you have to select an other Mask");@Command([Compose];"";"Mask"))
Ist es auch möglich dies in Script Abzufragen. Also nur wenn ein Dokument einer bestimmten Maske makiert ist, wird das neue Dok erstellt.

Danke

Driri

  • Gast
Re:form Abfrage per Script
« Antwort #1 am: 17.11.03 - 15:51:00 »
Hi,

sollte z.B. so gehen :

Dim ws as New NotesUIWorkspace
Dim uidoc as NotesUIDocument
Dim doc as NotesDocument

Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document

If doc.Form <> "Maske1" Then
   MessageBox...
   Exit Sub
Else
   ...
End If

Offline MrMagoo

  • Senior Mitglied
  • ****
  • Beiträge: 359
  • Geschlecht: Männlich
  • AAAhhh
Re:form Abfrage per Script
« Antwort #2 am: 17.11.03 - 16:06:58 »
Danke für die Antwort @Driri,
macht er so aber leider nicht, bei
set doc = uidoc.doument  gibt es die Fehlermeldung "Object Variable not set" ich will dies in einer Ansicht benutzen in der dann ein doc ausgewählt ist
Gruß

Offline MrMagoo

  • Senior Mitglied
  • ****
  • Beiträge: 359
  • Geschlecht: Männlich
  • AAAhhh
Re:form Abfrage per Script
« Antwort #3 am: 17.11.03 - 16:15:27 »
ich bin jetzt mal mit einer collection auf das Dok gegangen, sagt jetzt TypeMismatch bei If doc.Form <> "Maske"  Then

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set collection = db.unprocessedDocuments
   Set doc = collection.GetFirstDocument
   If doc.Form <> "Maske"  Then
      Msgbox "Please select an other dok"

   Else
      Msgbox "Geht doch"      
   End If
End Sub
« Letzte Änderung: 17.11.03 - 16:16:08 von MrMagoo »

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:form Abfrage per Script
« Antwort #4 am: 17.11.03 - 16:24:06 »
... noch ne kleine Korrektur

If doc.Form(0) <> "Maske1" Then

ata
Grüßle Toni :)

Offline MrMagoo

  • Senior Mitglied
  • ****
  • Beiträge: 359
  • Geschlecht: Männlich
  • AAAhhh
Re:form Abfrage per Script
« Antwort #5 am: 17.11.03 - 16:25:42 »
thx ata
so funzt es
Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set collection = db.unprocessedDocuments
   Set doc = collection.GetFirstDocument
   If doc.form(0) <> ("Maske")Then
      
      Msgbox "Please select..."
      
   Else
      Msgbox "Geht doch"      
   End If
End Sub

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz