Domino 9 und frühere Versionen > Entwicklung

db öffnen

<< < (3/3)

my head:
in diesem script sind zwei fehler (fett markiert!):
1. hier sollte der wert in die andere variable übertragen werden...
2. hier kommt die meldung "object variable not set"

kann mir irgendwer helfen??
ich hab nämlich keine ahnung was das sein könnte!

danke schon mal


Sub Initialize
   Dim schalter As Integer
   'Variablendeklarationen für AKD-TelefonDB
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim collection As NotesViewEntryCollection
   Dim doc As NotesDocument
   Dim entry As NotesViewEntry
   'Variablendeklarationen für DB "alle Nummern"
   Dim srcDb As NotesDatabase
   Dim srcView As NotesView
   Dim srcCollection As NotesViewEntryCollection
   Dim srcDoc As NotesDocument
   Dim srcEntry As NotesViewEntry
   'Variablenbelegung für AKD-TelefonDB   
   Set db = session.CurrentDatabase
   Set view = db.GetView("uebersicht")
   Set collection = view.AllEntries
   'Variablenbelegung für DB "alle Nummern"
   Set srcDb = New NotesDatabase("","names.nsf")
   Set srcView = srcDb.GetView("People")
   Set srcCollection = srcview.AllEntries
   'Variablenbelegung zum "Suchen"
   Set entry = collection.GetFirstEntry()   
   Set doc = entry.Document
   Set srcEntry = srcCollection.GetFirstEntry()   
   Set srcDoc =srcEntry.Document
   While Not (doc Is Nothing)
      schalter = 0
      If doc.nmbTel(0)= "" Then
         While Not schalter = 1
            If doc.txtNachname(0)= srcDoc.LastName(0) Then
               If doc.txtVorname(0) = srcDoc.FirstName(0) Then
                  doc.nmbTel = srcDoc.OfficePhoneNumber
                  schalter = 1
               Else
                  Set srcEntry = srcCollection.GetNextEntry(SrcEntry)
                  Set srcDoc =srcEntry.Document
               End If
            Else
               Set srcEntry = srcCollection.GetNextEntry(srcEntry)
               Set srcDoc =srcEntry.Document
            End If
         Wend
      End If
      Set entry = collection.GetNextEntry(entry)
      Set doc = entry.Document
   Wend
End Sub

Don Pasquale:


1) Hier muß mindestens das item angesprochen werden :
doc.nmbTel = srcDoc.OfficePhoneNumber(0)

sicher wäre da auch noch eine Zuweisung a la

set item =


Hier funktioniert es :
Set srcEntry = srcCollection.GetFirstEntry()  
und hier nicht :
Set srcEntry = srcCollection.GetNextEntry(srcEntry)

Suche den Unterschied :-)


ciao

Don Pasquale

Axel:
Hi,


--- Zitat ---1) Hier muß mindestens das item angesprochen werden :
doc.nmbTel = srcDoc.OfficePhoneNumber(0)

--- Ende Zitat ---

Da muss ich aber widersprechen. Das sollte auch so gehen:

doc.nmbTel = srcDoc.OfficePhoneNumber

Ich mach das nur so und habe bisher nie Probleme gehabt.



--- Zitat ---Hier funktioniert es :
Set srcEntry = srcCollection.GetFirstEntry()  
und hier nicht :
Set srcEntry = srcCollection.GetNextEntry(srcEntry)

Suche den Unterschied :-)

--- Ende Zitat ---

Wo soll den bitte schön der Unterschied sein? Oder bin ich blind so früh am Morgen.

Axel

Axel_Janssen:
... vielleicht ist srcdoc nothing.
ich würde das mal im debugger nachprüfen.

Navigation

[0] Themen-Index

[*] Vorherige Sete