En primer lugar gracias por la respuesta . Lo he resuelto, consultando con un compañero, creando un script
Sub meteIdCurso(Byval guardar As Boolean)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim nitem As notesitem
Dim tmp As String
Dim num As Long
Set uidoc = ws.CurrentDocument
If uidoc.IsNewDoc Then
Set db=session.CurrentDatabase
Set doc = db.GetProfileDocument("(Doc_Perfil_Ids)")
tmp=valorcmp(doc,"calculoID")
num=Val(tmp)
num=num+1
If guardar Then
Call doc.ReplaceItemValue("calculoID",num)
Call doc.Save(True,False)
End If
Call uidoc.FieldSetText("id_curso",Ltrim(Str(num)))
End If
End Sub
En un formulario de perfil Doc_Perfil_Ids pongo el ultimo numero que me interese y a partir de ese ya le va sumando uno al abrir el formulario
Por otro lado lo de que aparezcan esos valores en los tres campos .mediante este script
Sub meteAsiento(source As NotesUIDocument)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim numdoc As Long
Dim numlib As Long
Dim numpag As Long
Set db = session.Currentdatabase
Set view=db.GetView("diplo_diplo")
numdoc=view.EntryCount + 1
numlib =view.EntryCount/2000
numpag=view.EntryCount/14
Call source.FieldSetText("asiento",Ltrim(Str(numdoc)))
Call source.FieldSetText("libro",Ltrim(Str(numlib)))
Call source.FieldSetText("pagina",Ltrim(Str(numpag)))
End Sub
Revisare lo que has puesto para ver esas opciones
Gracias por tu amable respuesta
Un saludo