Ciao a tutti,
è la prima volta che scrivo in questo forum, che trovo utilissimo.
Stò usando il seguente codice nella funzione QuerySave, per avere un campo incrementale in una form (il campo si deve incrementare ad ogni nuovo documento inserito):
Sub Querysave(Source As Notesuidocument, Continue As Variant)
If Source.IsNewDoc Then
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Call Source.Refresh
Set db = session.CurrentDatabase
Set view = db.GetView("ContaAderenti")
Set doc = view.GetLastDocument()
If Not doc Is Nothing Then
Prog = doc.GetItemValue("")
Else
Prog = 0
End If
\'Source.Document. = Prog+1
\'Source.document.ADR_PROGRESSIVO=Prog+1
End If
End Sub
Ciò che non riesco a fare è, una volta valorizzata la variabile Prog, poterla inserire nel campo ADR_PROGRESSIVO creato nella form.
Se qualcuno mi dà qualche dritta, lo ringrazio fin d\'ora.
Un saluto a tutti.
Stefano
|