When a user open a database, he has the error "Invalid or nonexistent document"And cannot open any document in the db
Here the code:
=====================
Sub Set_CurrentDB_Lang(plangue As String, pforce As Boolean)
Dim db As NotesDatabase
Dim sess As New NotesSession
Dim ndp_user As NotesDocument
Dim ndp_db As NotesDocument
Dim language As String
Dim txtError As String
On Error Goto ErrorHandler
Set db = sess.CurrentDatabase
Set ndp_user = db.GetProfileDocument(“UserProfile”,sess.UserName) ’ ERROR HERE than goto Error Handler
If ndp_user.Currentdblanguage(0) <> “” And pforce = False Then Exit Sub
If ndp_user.Currentdblanguage(0) = plangue Then Exit Sub
ndp_user.Currentdblanguage = plangue
Call ndp_user.Save(True,True)
Exit Sub
ErrorHandler:
If ndp_user Is Nothing Then
Dim workspace As New NotesUIWorkspace
Call workspace.EditProfile (“UserProfile”, sess.UserName) ’ ERROR HERE MSG Error (Invalid or nonexistent document)
Resume Next
End If
txtError = “BD :” & db.filename & " - Fct: Set_CurrentDB_Lang" & " - Error: (" & Str(Err) & ") - "& Error() & " Line: " & Cstr(Erl)
Call appendFichier (txtError)
Resume Next
End Sub
====================
Only this user has the error
I also tried with 7.5.3 version… same behavior for this user.
Any clue?
Thanks in advance