Hallo,
ich habe über den Adminclient eine DB gelöscht, mit der Option alle Repliken.
in den Anforderungen auf den Administrtionsserver habe ich das löschen der Datenbank bestätigt.
Warum muss ich das auf allen Servern bestätigen?
reicht das nicht auf den einen Server?
Muss ich noch was im Serverdokument einstellen das der Server das darf.
Danke
ja ihr habt recht
die sache ist die, date ohne $ und ausserdem muss man im BS in den Ländereinstellungen das kurzdatum nur richtig verwalten, dann klappts auch mit der anzeige dd.mm.yyyy
Danke euch
habe ich versucht...geht aber nicht
x1 = date$
x2 = Format(x1,"dd.mm.yyyy")
er zeigt sonstwas aber kein datum
ich lasse mir über Date$ das aktuelle Datum ausgeben, klappt auch
aber wie bekomme ich bei einstelligen tagen oder monaten die null dazu
FALSCH: 18.2.2008 -> RICHTIG: 18.02.2008
Hallo
hast du nach jeder spalte eine spalte mit den Wert -1:-1:-1
eingetragen. auch diese spalte werte als farbe anzeigen und spalte verstecken
dann sollte jede spalte seine farbe haben und nach rechts alles normal sein
'- Notes- Fenster- Auslesen, bevor die Anwendung gestartet wird
wHandle = GetActiveWindow()
'- Anwendung starten
ok = ShellExecute( 0, open, xFile, 0 , 0 , 3 )
'- Notes- Fenster minimieren, damit die aufgerufene Applikation in den Vordergrund kommt
Call ShowWindow( wHandle , SW_MINIMIZE )
das war es
Danke allen
ich habe das jetzt über Shell gemacht
result = Shell(filePath, 3)
aber auch hier bleibt Word im Hintergrund.
man sieht word starten und danach kommt das Notesdok wieder in den Vordergrund.
jemand eine Idee?
Hallo,
Ich starte über ein Hotspot mit
Call ShellExecute(0, "Open", filePath , 0, 0, 3)
eine Datei.
Problem ist das die Anwendung nicht im Vordergrund bleibt.
Der Parameter 3 sagt doch aber Vordergrund.
Hat wer eine Idee?
Version Notes 6.5.4
Hallo,
ich hatte hier im Forum mal gesucht nach RichText kopieren.
dort war auch etwas script, leider funktioniert das nicht.
2. Frage gibt es eine Möglichkeit das RT-Feld zuvor zu leeren (löschen) das nichts darin ist
Dim doc As NotesDocument
Dim rtitem2 As NotesRichTextItem
Dim rtitem1 As NotesRichTextItem
Dim ws As New Notesuiworkspace
Dim uidoc As Notesuidocument
Set uidoc = ws.CurrentDocument
Call uidoc.Save
Set doc = uidoc.Document
' hier muss das uidoc noch geschlossen werden
Call uidoc.close
Set rtitem1 = doc.getfirstitem("test")
Set rtitem2 = doc.getfirstitem("test2")
Call doc.save(True, True)
Hallo
gibt es eine Möglichkeit, über eine Notes.ini-Variable oder anderes festzulegen, wo der client die temp-Dateien speichert, wenn ich einen Anhang über den Button öffnen starte.
Danke
ich habe das Script so übernommen, wenn im Feld kein Anhang ist
bekomme ich an der Stelle
Forall o In rtitem.EmbeddedObjects
die Meldung "Typ Mismatch"
genau da wollte ich ja den Sprung haben, das er erkennt das das feld leer ist
Hallo
wie kann ich den Inhalt eines RichText Feldes prüfen ob dort ein Anhang drinnen ist oder leer.
wollte es mit :
Set rtitem = doc.GetFirstItem( "Attach" )
If ( rtitem.EmbeddedObjects = "" ) Then
Goto Ende
End If
machen aber das geht nicht
Danke
ja genau das war es
Danke
manchmal ist es so einfach, aber die idee ist nicht da
Danke nochmals
naja
mein Problem ist, wie bekomme ich nach dem sichern des doc und dem schliessen
Call uidoc.Save
Call uidoc.Close
das document wieder geöffnet auf den monitor
Danke
Hallo,
ich möchte in einem Doc eine art Zähler einbauen, d.h. wenn ich auf eine schaltfläche klicke, soll ein feld hochgezählt werden.
die user haben aber eigentlich leserrechte, das heißt ich will das doc öffnen - bearbeiten - feld setzen - speichern - doc schliessen und wieder öffnen.
habe auch ein feld saveoptions so das nicht gefragt wird, ob gespeichert werden soll.
aber irgendwie bekomme ich das doc nicht wieder auf. oder gibt es eine bessere lösung.
Danke
Dim Session As New NotesSession
Dim db As NotesDataBase
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set db = Session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set uidoc = workspace.EditDocument( True )
Zaehler = Cint(uidoc.FieldGetText("Zahl"))
Call uidoc.FieldSetText( "Zahl", Cstr( Zaehler + 1) )
Call uidoc.FieldSetText("SaveOptions","1")
Call uidoc.REFRESHHIDEFORMULAS
Call uidoc.Save
Call uidoc.Close
??? öffnen des docs
