Domino 9 und frühere Versionen > ND7: Entwicklung

Nummernvergabe der Doks in Ansicht

<< < (2/3) > >>

botschi:
So gehts:

On Error Goto fehler
   
   Dim ivSaem As notesdatabase ' SÄM-DB
   Dim ws As New NotesUIWorkspace
   Dim ivColl As NotesDocumentCollection
   Dim ivBeantragtesFeld As notesdocument
   Dim s As New NotesSession
   Dim FeldView As notesview ' mit dieser View bekomme ich genau das Feld, was über oder unter meinem markiertem steht
   Dim FeldDoc As NotesDocument
   Dim ivNummer As Integer
   
   Set ivSaem = s.CurrentDatabase
   Set ivColl = ivSaem.UnprocessedDocuments
   Set ivBeantragtesFeld = ivColl.GetFirstDocument
   ivNummer = ivBeantragtesFeld.nr(0)
   Set FeldView = ivSaem.GetView("viw_AntragNrFeldNr")
   Set FeldDoc = FeldView.GetDocumentByKey(ivBeantragtesFeld.str_ticketnr(0) + Cstr(ivNummer - 1), True)
   
   If Not FeldDoc Is Nothing Then
      
      ivBeantragtesFeld.nr = FeldDoc.nr(0)
      Call ivBeantragtesFeld.save(True, False)
      
      FeldDoc.nr = ivNummer
      Call FeldDoc.save(True, False)
   End If
   
   Call ws.ViewRefresh
   Exit Sub
fehler:
   Msgbox Erl

Danke Männer!

Matthias

dirk_2909:

--- Code: ---fehler:
   Msgbox Erl
--- Ende Code ---

Ich hoffe, dass in Deinem Error-Handler ein wenig mehr steht ?!  ;)

DerAndre:
Er weiß doch worauf der geklickt hat, da reicht doch die Nummer der Zeile oder nicht?  :)

botschi:
Im Moment steht da tatsächlich nicht mehr...  :-\

Ich habe für mich entschieden, dass die Zeile aussagekräftiger (für mich) ist, als wenn der User einen höflichen Text "Es ist ein Fehler aufgetreten ... bitte Melden Sie diesen Fehler ..."

Denn meldet er und ich weiß trotzdem nicht genau, was Phase ist...

dirk_2909:
Ok - die Zeilennummer ist schon Aussagekräftig genug. Aber welcher Fehler aufgetreten ist, ist auch interessant ;-)...

...Und ich dachte immer ein resume next oder Resume MeineSprungmarke wäre auch hilfreich ..  :-:

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete