Domino 9 und frühere Versionen > Entwicklung

Erstellen von Kundennummern

<< < (3/4) > >>

TMC:
Kommt natürlich auf den Hintergrund an.

Soll die Lfd. Nummer z.B. beim Klick auf einen Button "Speichern" erzeugt werden musst Du da noch ein paar Dims und Sets machen.

   Dim session As New NotesSession
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim db As NotesDatabase
   Dim doc As NotesDocument   
   Set db = session.CurrentDatabase
   Set uidoc = uiws.CurrentDocument
   Set doc = uidoc.Document

Die Bezeichnungen (Source etc.) musst Du entsprechend anpassen.

TMC

TeeJay:
ok ich habe es jetzt so gemacht wie du sagtest



Sub Querysave(Source As Notesuidocument, Continue As Variant)
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   
   If Source.IsNewDoc Then
      Set db = session.CurrentDatabase
      Set view = db.GetView("Namen")
      Set doc = view.GetLastdocument
      
      If doc Is Nothing Then
         Source.Document.nummernfeld = 1
      Else
         Source.Document.nummernfeld = doc.nummernfeld(0) + 1
      End If
   End If
   
End Sub



ich bekomme eine Fehlermeldung  Type missmatch  nach dem ich auf speichern gedrückt habe.  Also er speichert den datensatz allerdings  vergiebt er keine numme :/

TMC:
Bei mir klappt es.

Ist Dein "nummernfeld" vom Typ Zahl ?
Sollte es sein.
Lösche auch nochmal alle bisherigen Dokumente und lege dann mal ein paar neue an.

Ansonsten starte mal den Debugger und poste, in welcher Zeile er hängt.

Aber Type Mismatch kommt mir irgendwie so vor, dass Du da ein Textfeld verwendest (bzw. der Wert des letzten Doks vom Typ Text ist).

Ach ja, und füge auch den ViewRefresh ein wie von Axel gepostet, der Tipp ist gut! (hat aber jetzt nix mit der Fehlermeldung zu tun)


TMC

TeeJay:
ok so funzt es jetzt   habt vielen dank   ich werde morgen bestimmt noch ein paar Fragen loswerden.

MFG TeeJay

TMC:
schön dass es klappt.

Setzt Du bitte den Thread noch auf Erledigt?
Geht mit diesem Button:


TMC

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete