Beiträge von Bernd99

Hallo RockWilder

leider funktioniert die DB bei mir nicht

ich habe Notes 5

kannst Du mir die DB als 5er Version zur Verfügung

stellen ?

Gruss

Bernd99

Hallo zusammen,

wie kann ich ein Feld mit Lotus Script verbergen ?

Ich stehe mit der Hilfe auf Kriegsfuß !!!!!!!!

Ich finde einfach keine Methode um das per Script zu steuern.

Ich stehe glaub ich auf meiner eigenen Leitung. - HIIILFE.

Schon mal Danke im Voraus :-o

Hallo,

hier ein kleines Beispiel:

bei Querysave fölgendes eintragen:

If ( source.FieldGetText( "Thema" ) = "" ) Then
Messagebox ( "Sie haben keineThema gewählt ")
Call source.GotoField( "Thema" )
continue = False

end if

ich glaube das Beispiel ist eindeutig.

Gruss

Bernd99

HAllo taurec (Kosmokraten taurec ?)

Ich habe es mal so probiert:

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.Refresh

und es hat funktioniert.
Manchmal hat man schon einen großen hänger.

Danke und Gruss

Bernd99 auch MDI genannt

Hallo Notesfreaks,

ich habe da mal wieder ein Problem.

Ich möchte in einem Document gerne ein paar Felder aktualisieren.

Das Geht auch wunderbar mir einem Button: @Command([ViewRefreshFields])

Da ich in diesem Dokument aber nicht zwei Buttons drücken will und der zweite Lotus Script enthält, würde ich gerne das @Command([ViewRefreshFields]) in einem Scriptausdruck mit anhängen.

Leider habe ich keine entsprechenden Befehle gefunden bzw es hat nichts funktioniert was ich so in der Noteshilfe gelesen habe.

Gruss

Bernd99

Hallo Leute,
ich habe leider gerade einen kleinen Hänger.

Ich habe ein Feld in dem steht ein Verteiler. Ich möchte nun in einem anderen Textfeld die Namen aus dem Verteiler anzeigen lassen.
Wie kann ich das per Formelsprache oder Scriptsprache realisieren.

Vielen Dank im Voraus

Bernd99

Hallo und danke,

ich hatte in der Notes Hilfe dann auch FieldAppendText gefunden.
Die Suchfunktion in der Hilfe ist echt Schei......... !

Ich habe mein Problem dann so gelöst:

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument

Dim item As NotesItem

Set uidoc = workspace.CurrentDocument
Set note = uidoc.Document
Dim r As Variant
Dim session As New notessession
Set uidoc = workspace.CurrentDocument


Call uidoc.FieldAppendText ( "Readers2", " ; "& session.CommonUsername & " "& Cstr(Date()&" - "&Cstr(Time())))

So kann ich direkt den User das Datum und die Zeit anfügen.

Gruss
Bernd99
:lol:

HAllo Forumsuser,

ich möchte in einem Dok einen Lesernachweis erstellen.
Ich hatte mir das wie folgt gedacht:

In einer MAske habe ich das unsichtbare Text-Feld "Readers"
Eigenschaft = Bearbeitar und folgende Formel hinterlegt:
@Name([CN];@UserName) +" Datum: "+@Text(@Now)

Dann habe ich noch eine Teilmaske mit dem gleichen Feld "Readers"

Die Teilmaske rufe ich mit einem Button auf und schon kann ich den Leser des Dokuments ablesen.

Nur hat die Geschichte einen Fehler. Wer auch immer das Dok öffnet sieht nur sich als Leser, d.h. der Feldwert wird immer überschrieben.
Ich möchte aber eine schöne lange Liste mit Lesern.

Dann habe ich ein zweites Textfeld "Readers2" erstellt.

Ich würde gerne bei dem Ereignis Querysave den Feldinhalt(Text) aus dem Feld Readers in dem Feld Readers2 anfügen.

Ich weiß allerdings nicht wie ich das in Notes Script machen soll.

es scheind keine Funktion append Text zu geben.

Ich bin für jeden Lösungsansatz dankbar.

Gruss
Bernd99

Hallo,

erstmal vielen Dank für die schnelle Info,

ich werde das gleich mal ausprobieren. Na ja und dann werden bestimmt noch ein bis zwei Fragen kommen.

Gruß

Bernd99

Hallo Forumuser,

ich habe folgendes Problem:

In einer Ansicht habe ich ein paar Summen aus denen ich gerne z.B. ein Balken-Diagramm in Notes erzeugen möchte.
Da sich die Summen aber ändern muß das dynamisch geschehen.

Unter Notes gibt es ja leider keine möglichkeit der Visualisierung oder doch ?

Ich hatte mir das so gedacht. Die Werte per DDE an Excel übertragen, und das Exceldiagramm dann in Notes einbinden(OLE ?). Die Aktion könnte ich ja auf einen Button legen.

Nur leider habe ich keine Ahnung wie man das im einzelnen Programmiert.
Hat jemand von euch vielleicht ein fertiges Beispiel ?

Bin für jede Hilfe Dankbar

Hallo dnotes,

ich habe die Fehlerroutine noch einwenig verbessert:

on error goto fehler

xxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxx

exit_fehler:
Exit Sub

fehler:

Msgbox "Achtung bla bla ! "

Resume exit_fehler

Das Doc wird mittlerweile von DB 1 nach DB 2 kopiert.

Doch wie bringe ich dem Doc bei das es jetzt das Antwortdokument eines anderen Hauptdokuments ist. Es soll ja in der DB2 wieder ein Antwortdoc werden.

Hoffentlich hat einer eine Idee wie es geht.

Gruss
Bernd

HI,

habe gerade den Fehler eingekreist (umzingelt) weiß aber nicht wie ich Ihn kriegen kann:-)

So der Agent und das Script funktionieren.

Mein Document wird von DB 1 nach DB 2 kopiert. Ich habe es nur nicht gefunden da es in DB2 nicht als Antwortdocument ankommt.

Wichtig ist das es auch in der Hauptansicht als Antwortdoc erscheint.

Wie komme ich an das Main_doc in DB 2 ???

Da schein in dem Script noch etwas zu fehlen ??

Danke und Gruss

Bernd99

HI,

2. Habe einen Agenten erstell der genau das macht
(in DB kopieren)
Fazit: Agent läuft doch nichts passiert

3. Benutzt Lotus Script siehe oben.
Es passiert nichts - keine Fehlermeldung - nichts

Den Agenten habe ich wie folgt aufgebaut:

neuer Agent - ausgewählte Documente

Aktion hinzufügen - in Datenbank kopieren

DB auswählen

Dan habe ich ihn gespeichert. Ein Doc ausgewählt und den Agenten gestartet. Man sieht kurz einen Fortschrittsbalken,aber das Doc wird nicht kopiert.

Gruss
Bernd

Hi,

die Fehlerroutine von Dir ist schon OK.

Ich habe aber leider Problem mit dem Doc kopieren.

1. Ich habe in DB 1 ein Antwortdoc markiert und dann kopiert
(mit der Maus) und dann in DB 2 eingefügt.
Fazit : Es geehhtt

2. Habe einen Agenten erstell der genau das macht
(in DB kopieren)
Fazit: Agent läuft doch nichts passiert

3. Benutzt Lotus Script siehe oben.
Dann kommt die Fehlermeldung: Invalid universal ID

Ich bin Manager für beide Datenbanken

Ich habs auch mal ohne alles nur mit call resp_doc.copyToDatabase versucht

Aber es passiert nichts der Debugger zeigt auch nichts?

HILFE ! HILFE !HILFE !HILFE !HILFE !HILFE !HILFE !

Gruss
Bernd

Hallo,

ich habe den Fehler gefunden es liegt daran , das ich server/verzeichnis , dbname eingetragen habe es muß aber

server, verzeichnis/dbname sein.

++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++
Dim s As New notessession
Dim ws As New notesuiworkspace

Dim db1 As notesdatabase
Set DB1 = s.currentdatabase

Dim DB2 As New notesdatabase
-- hier lag der Fehler ----
("008NotesKal01","Forschung/SchichtbuchRTK1.nsf")

Dim resp_doc As notesdocument
Dim main_doc As notesdocument

Set resp_doc = ws.currentdocument.document
Set main_doc = DB2.GetDocumentByUNID( resp_doc.~$Ref(0) )

If Not (main_doc Is Nothing) Then
Set new_doc = resp_doc.CopyToDatabase( DB2 )

End If
++++++++++++++++++++++++++++++++++++++++

Aber leider habe ich noch einen Fehler bei Set main_doc

der lautet : Invalid universal ID

Hoffenlich gibt es eine Lösung die ich auch verstehe

Gruss

Bernd

Hallo,

erstmal vielen Dank für die schnelle Hilfe.

Hier Dein/mein Quelltext:

++++++++++++++++++++++++++++++++++++++
Dim s As New notessession
Dim ws As New notesuiworkspace

Dim db1 As notesdatabase
Set DB1 = s.currentdatabase

Dim DB2 As New notesdatabase
("008NotesKal01/Forschung","SchichtbuchRTK1.nsf")

Dim resp_doc As notesdocument
Dim main_doc As notesdocument

Set resp_doc = ws.currentdocument.document
Set main_doc = DB2.GetDocumentByUNID( resp_doc.~$Ref(0) )

If Not (main_doc Is Nothing) Then
Set new_doc = resp_doc.CopyToDatabase( DB2 )

End If
++++++++++++++++++++++++++++++++++++++++

Leider gibt es noch eine Fehlermeldung:

"Database ... SchichtbuchRTK1.nsf has not opened yet

und zwar bei Set main_doc.

Ich habe einwenig die Noteshilfe durchsucht aber leider keine funktionierende Lösung gefunden.

Hast Du da einen Lösungsansatz ?

Gruss

Bernd

PS. Wer einen Reechtschreibfehler findet darf Ihn behalten.

Hallo,

ich habe folgendes Problem:

Es gibt zwei Datenbanken Schichtbuch 1 und Schichtbuch 2

Wenn ich in DB1 eine Anweisung(Antwortdokument) geschrieben habe möchte ich das Dok kopieren und dann in der Db2 einfügen.
(am besten per Lotusscript)

Das am besten unter Postsave.

Es muß aber auch geprüft werden ob ein Hauptdokument in DB2 vorhanden ist so das ich das Antwortdokument auch anhängen kann.

Ich bin erst Anfänger und wäre froh wenn mir jemand eine detailierte Lösung nennen könnte.

Gruss
Bernd