Beiträge von holger20062011

Recovery Options hab ich gefunden. Dort steht idres

Wie ich erfahren habe, wurde von unserem PC-Betreuer der Pfad "Notes_TempDir=z:\ts\ts_temp" in die Notesd.ini eingefügt. Er ist zuständig für Citrix, da unsere Notesclients unter Citrix 6.5 laufen. Mergfürdigerweise scheint dieser Fehler nicht bei allen Benutzern aufzutreten. Egal ob diese ihr Kennwort geändert haben oder nicht. Es scheint wohl so zu sein, dass der Notesclient beim ersten Start eine Backupdatei der ID an die Datenbank idres.nsf sendet. Wenn die User das Fenster wegklicken, können sie normal weiterarbeiten. Wie komme ich denn an die "Recovery Options im Certifier ?"

Ist mit der Wiederherstellungsdb die idres.nsf gemeint ?

Guten Morgen zusammen,

seit kurzem taucht bei 2 Usern ein Nachfragefenster nach einer tmpid.ide auf. Wir haben mit den Usern das Kennwort neu gesetzt. Erst schien es zu funktionieren. Nach kurzer Zeit erscheint das Nachfragefenster wieder. Wir haben auch die Notes.ini nach Einträgen von tmpid.ide durchsucht. Leider ohne Erfolg. Der Pfad für die normale ID ist richtig gesetzt. Die ID existiert auch. Der User klickt das "Suchen in Fenster" weg und arbeitet normal weiter. Auffällig ist der Pfad wo gesucht wird. "notesF4E98F"
Vielleicht weis jemand Rat. In der Adminhilfedatenbank habe ich nichts zur tmpid.die gefunden

Muss natürlich so heissen

.......
Set item=doc.ReplaceItemValue("Projektstatus","Umsetzung der Programmierung")

.......

Hat sich erledigt !

Hallo zusammen,

ich habe folgendes Problem, was in der Vergangenheit auch funktionierte, jetzt aber komischer weise nicht mehr. Ich will den Wert eines Feldes, dieses ist vom Typ "Dialogliste" per Script ändern. Komischerweise sehe ich im Debugger auch die Änderung. Es wird auch gespeichert.

Die Änderungen sind aber nicht vorhanden.

Ich verwende folgendes Script

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim Item As NotesItem

Set db=session.CurrentDatabase
Set view=db.Getview("Admin\Statusänderung")
Set doc=view.GetFirstDocument

While Not (doc Is Nothing)

Set item=doc.GetFirstItem("Projektstatus")

If doc.GetItemValue("Projektstatus")(0)="in Bearbeitung" Then
Set item=doc.ReplaceItemValue("in Bearbeitung","In Analyse")
End If

If doc.GetItemValue("Projektstatus")(0)="in Testphase" Then
Set item=doc.ReplaceItemValue("in Testphase","Testphase")
End If

If doc.GetItemValue("Projektstatus")(0)="in Programmierung" Then
Set item=doc.ReplaceItemValue("in Programmierung","Umsetzung der Programmierung")
End If

' Call doc.ComputeWithForm(False,False)
Call doc.Save(False,False)
Set doc=view.GetNextDocument(doc)
Wend
End Sub

Auch das ComputewithForm bringt nichts.

Das ist ja nun nicht weltbewegendes, ich finde aber den Fehler nicht. Weiss jemand Rat ?

Ich verwende folgendes Script

Sub Click(Source As Button)
'---Exportiert die Ansicht in eine neue Excel-Datei
'---Notwendige Änderungen:
'---Es sind noch die beiden Zeilen in die Ansicht einzufügen
'---Dim gThisview As notesView im globalen-Teil
'---Set gThisview = Source.view im Postopen-Ereignis der Ansicht
'---Bemerkung: Zur Beschleunigung können an den genanten Stellen im Script Änderungen vornehmen
' Print "Start: " & Now()
Dim session As New NotesSession
Dim doc As notesdocument
Dim intRow As Integer, intColumn As Integer, intColumnExport As Integer, i As Integer, k As Integer, l As Integer, notExport As Integer
Dim intHideColumns(9) As Integer
Dim strV As String
Dim strTitle,OldLetter As String
Dim objExcel As Variant, mySheet As Variant
On Error Resume Next


Set objExcel = CreateObject("Excel.Application")

If objExcel Is Nothing Then
Msgbox "Excel kann nicht gestartet werden."
Exit Sub
End If

objExcel.Visible = True
objExcel.Workbooks.Add("z:\softwareentw.xlt")

Set mySheet = objExcel.ActiveWorkbook.ActiveSheet
mySheet.name = "Softwareentwicklung"

' With mysheet.PageSetup
' .LeftFooter="Erstellt am: &D" + Chr(10) + "Erstellt um: &T"
' End With

For k=0 To 9
intHideColumns(k)=-1
Next

'---Kopfzeile bestimmen:
intRow = 0
intColumn=-1
IntColumnExport = -1
Forall c In gThisview.Columns
intColumn=intColumn+1
If c.IsHidden = True Then
For k=0 To 9
If intHideColumns(k)=-1 Then
intHideColumns(k)=intColumn
Exit For
End If
Next
Else
intColumnExport = intColumnExport +1
If c.Title="" Then
strTitle="Buchstabe"
Else
strTitle=c.Title
End If
Print strTitle & "Sp: " & intColumn+1 & " Ze: " intRow+1
mySheet.PageSetup.PrintTitleRows="$1:$1"
mySheet.Cells(intRow+1,intColumnExport+1).Value = StrTitle
mySheet.Cells(intRow+1,intColumnExport+1).Interior.ColorIndex =15

End If
End Forall
Dim z As Integer

'---Zugriff auf Ansichtswerte des Dokuments:
Set doc = gThisview.GetFirstDocument
intRow=1
While Not ( doc Is Nothing )
IntColumn=-1
IntColumnExport = -1
Forall v In doc.ColumnValues
notExport=False
IntColumn=IntColumn+1
'---Falls Spalte versteckt, nicht exportieren:
For l=0 To 9
If IntHideColumns(l) = IntColumn Then
notExport=True
End If
Next
If notExport=False Then
intColumnExport = intColumnExport +1
If Isarray(v) = True Then
strV=ArrayToList(v,";")
Else
strV=Cstr(v)
End If
'---Zur Beschleunigung nächste Zeile auskommentieren und die übernächste Zeile das Kommentarzeichen wieder rausnehmen:
' mySheet.Cells(intRow+1,intColumnExport+1).Value = RemoveAllSubstring( ReplaceAllSubString(StrV,";",",") , Chr(&H7F) )
If mySheet.Cells(intRow+1,intColumnExport+1).Value = mySheet.Cells(intRow,intColumnExport+1).Value Then
mySheet.Cells(intRow,intColumnExport+1).Value=""
End If
mySheet.Cells(intRow+1,intColumnExport+1).Value = StrV
End If
End Forall
intRow=intRow+1
Set doc = gThisview.GetNextDocument(doc)
Wend

For z = 1 To intColumnExport+1
mySheet.Columns(z).autofit
Next
'___________________________________________________________________________

objExcel.ScreenUpdating = True
objExcel.Application.Run("softwareentw1!Softwareentwicklung")

' Print "Ende: " & Now()
End Sub

Hallo zusammen,

ich habe eine View die ich per Button nach Excel exportiere. Dies klappt auch soweit. Wir setzen Office 2010 ein. Nun musste die View um eine Spalte "DB Art" erweitert werden. In der Maske, aus der die View die Daten bezieht gibt es dieses Feld nicht. Ich habe nun in der Spalte unter Formel den Wert "SEDB" hinterlegt. In der View wird dieses auch korrekt angezeigt. Leider ist diese Spalte nach dem Export aber leer. Muß ich tatsächlich dieses Feld in der Maske hinterlegen und anschließend alle Dokumente mit ToolsRefreshAll Docs neu berechnen lassen Weiß jemand Rat ?