Beiträge von Westenseer

mein Script sihet nun so aus:

Dim Session As New NotesSession
Dim db As notesdatabase
Set db = session.CurrentDatabase

Views = db.Views

Forall View In Views
If View.Name = "Meine Dokumente" Then
Call View.remove 'HIER kommt der Fehler
End If
End Forall

Harald

Hallo Taurec,
Du hast ja Recht, aber dann bekomme ich auch eine Fehlermeldung:
"Notes error: Index kann nicht auf dem Server erstellt werden. (Meine Dokumente)"
Darf die DB eventl. nicht indiziert sein ?

Harald

Hallo,
ich habe da ein Problem mit dem Löschen einer Privaten View per Agent durch den User.

die Formel meines Agenten lautet:

Dim Session As New NotesSession
Dim db As notesdatabase
Set db = session.CurrentDatabase
Dim Ansicht As NotesView

Views = db.Views

Forall View In Views
If View.Name = "Meine Dokumente" Then
Set Ansicht = db.GetView(View.name)
If Ansicht.IsPrivate Then
Call Ansicht.remove
Exit Forall
End If
End If
End Forall

Der Agent greift sich noch die gewünschte Ansicht, aber bei der Abfrage, ob die Ansicht privat ist kommt immer der Fehler,
"Object Variable not set". Der Fehler kommt aber nur bei den Usern, bei mir als Admin läuft's einwandfrei.
Ich habe dem User schon mal Entwicklerrechte eingeräumt, aber das greift auch nicht.
Was mache ich denn da falsch ?

Danke schon mal für Eure Tipps.

PS. ich weiss sehr wohl, dass zu diesem Thema Einträge hier im Forum sind. Die beziehen sich aber leider nicht auf mein Problem.

Gruß
Harald

taurec, Diali,
vielen Dank für die schnelle Hilfe.
Leider lässt sich mein Problem nicht durch tauschen der Dimensionen lösen.
Da ich meine Werte aus einer Liste hole, werde einfach für die Dimensionierung zuvor die Anzahl der Einträge der Liste ermitteln.
Das müsst eigentlich funktionieren.

Gruß Harald

Hallo,
kann man ein mehrdimensionales Array nicht zur Laufzeit redimensionieren ?
z.B.

Z=0
For I = 1 to 99
redim preserve Array( Z , 2)
'hier dann die Werteübergabe
Z = Z + 1
next

ich erhalte immer einen "subcript out of range"
das erste redim funktioniert, aber nach dem "next" kommt der Fehler.
Was mache ich denn da falsch, oder geht's so überhaupt nicht ??
In der Hilfe/Forum habe ich leider zu "redim eines mehrdimensionalen Arrays" nicht gefunden.

Gruß Harald

und ich dachte ich wäre im falschen Film, weil ich das nicht auf die Reihe bekam bzw. meine Hilfe nicht das her gab, was Taurec mir mitteilen wollte.
Im Endeffekt habt ihr mir ja helfen können.

Vielen Dank dafür

Gruß Harald

ja, so mache ich es ja auch.

Dim ProfilDoc As NotesDocument
Set Profildoc = db.GetProfileDocument("Profil")
Empfänger = Evaluate(|Empfänger|,ProfilDoc)

ich bekomme aber die Formel für Pickliststring nicht zusammengebastelt.
Wo muss ich denn dort "Empfänger" eintragen ?

taurec,
ja, pickliststring.....
aber wie komme ich damit an ein Profiledokument ?
Denn das ist doch in keiner Ansicht aufgelistet.

Hallo @All,
ich möchte ein Dokument an ausgesuchte Empfänger verteilen.
Die Empfänger habe ich in einem ProfilDoc hinterlegt.
Beim Verteilen möchte ich nun aus diesen hinterlegten Namen auswählen können.
Das ganze soll dann via Schaltfläche erfolgen.
Da vor dem Versand aber noch diverse Prüfungen erfolgen, habe ich das Ganze per Script programmiert.
Wie kann ich denn dort jetzt noch eine Auswahlbox implementieren ?

Gruß Harald

Hallo Dirk,
vielen Dank für Deinen Tipp.
Ich habe es jetzt folgendermaßen gelöst:

Die aktuelle Woche ermittele ich per Formel.
Dann hole ich mir die gewünschte Woche aus dem Dokument und errechne die Differenz zur aktuellen Woche.
Diese Differenz multipliziere ich mit 7 und erhalte dann die Tage (ausgehend vom heutigen Datum) um per "call Datum.adjust(-Tage)" das entsprechende Datum zu errechnen.
Um jetzt noch das Datum der einzelnen Wochentage zu bestimmen, benutze ich dann noch einmal .adjust() um ausgehend von Heute das Datum für die einzelnen Wochentage zu setzen.
Kalppt bestens ;-))

Gruß Harald

Guten Morgen @All,
ich möchte gern ein Tagesdatum aus einer zurückliegenden Woche ermitteln.
z.B. welchen Datum hatten wir am Donnerstag in der 37. Woche dieses Jahres.
Hat da Jemand einen Typ für mich ?

Gruß Harald

Diali,
ist schon merkwürdig. Überall in meinem Code benutzte ich die Wertzuweisung ans UiDoc ohne "call" und das klappt auch bestens.
Nur hier scheint es nur MIT "call" zu funktionieren. Zumindest ist beim erneuten Test der Fehler nicht mehr gekommen.
Vielen Dank

Gruß
Harald

PS.
wie funktioniert das mit dem "Code in Tags" packen ?

Diali,
jo, da hast Du Recht.
Aber nur wenn ich es in Verbindung mit "Call" verwende, ohne "Call" geht's nur mit meinem Code.
Ich werde es nun noch einmal mit der "Call" Variante testen.

Diali,

nee, Dirk
so nimmt's Notes nicht.
Der Code arbeitet ja auch einwandfrei, er tut alles was er soll.
Nur im Debugger tritt das Problem auf.

Guten Morgen Dirk,
das Problem tritt im PostOpen-Event auf.

If Left( nuidoc.FieldGetText("Genehmigung_angefordert"), 3) = "ANF" And Cint(nuidoc.FieldGetText("PlusMinus"))/60  < Cint(nuidoc.FieldGetText("genehmigt_sind_bis_X_Stunden")) Then


    nuidoc.FieldSetText("Genehmigung_angefordert"), ""


  If session.CommonUserName = nuidoc.FieldGetText("Abteilungsleiter") Then
     Msgbox "Die angeforderte Genehmigung ist hinfällig geworden !"
     Sichern_ist_OK = True
     nuidoc.save
     nuidoc.Close(True)
  End If


End If

Der Code wird sauber bis zum letzten End If durchlaufen und dann kommt die Meldung. Noch bevor eine weitere Zeile Code angepackt wird.

Gruß Harald

%edit
habs mal in [ code]-Tags gepackt. /diali

Guten Morgen @all,
ich erhalte im Debugger eine Fehlermeldung, mit der ich nicht so recht etwas anfangen kann.

"Überlauf des Script-Stapels"

Die Meldung erhalte ich nur im Debugger, ansonsten läuft das Programm fehlerfrei und macht auch alles was es machen soll.
Was dazu Jemand etwas näheres ?

Gruß Harald

taurec,
vielen Dank für den Auszug aus der VBA-Hilfe. Leider kann ich bei mir eine solche Auflistung nicht finden.

Gruß Harald

Diali,
Bingo !!

habe meine Formel entsprechend angepasst und es klappt ;-)))

xlsheet.UsedRange.sort xlapp.Range("F1"), 1, , , , , , 0, 1, False, 1, , 0

aber wo bitte kommen die ganzen leeren Parameter her, in der VBA-Hilfe habe ich dazu nichts gefunden.
Hast Du da Quellen (Buchempfehlung o.ä.) in denen ich dazu etwas nachlesen kann oder ist das Dein Wissen.

nochmals Vielen Dank fpr die Hilfe

schönen Gruß vom Westensee
Harald

Diali,
Danke für den Hinweis. Aber ich habe die Parameter doch genau in der Reihenfolge angegeben, wie sie im Makro gelistet waren.
Was muss ich den da ändern ?

Sorry Diali,
auch wenn ich überall "xlapp" verwende, kommt der Fehler mit dem Hinweis "Bezug ist ungültig"