Domino 9 und frühere Versionen > ND6: Entwicklung

aus EXCEL mittels VBA auf eine Notes Datenbank zugreifen ...

<< < (2/2)

KV17:
Hallo Axel,

auch damit kann ich nicht viel anfangen. Kann mirkeiner spezifisch zu meinem Code helfen ... Danke.

koehlerbv:
Warum kannst Du damit nichts anfangen? Konkrete Hinweise hast Du schon bekommen, alles andere / Grundlegende steht im Redbook.
Deinen Code wird Dir hier keiner schreiben.

Bernhard

ascabg:
Hallo,

Aber den VBA-Code kannst Du doch auch debuggen?

Entsprechend kannst Du Dir auch anzeigen lassen, was zu welchem Zeitpunkt in den Variablen enthalten ist bzw. ob die Objekte sauber initialisiert werden.

Ausserdem vermisse ich ein Call s.Initialize in Deinem Code


Andreas

Peter Klett:
Private Sub adressenLN_Click()

Dim s As Object
Set s = CreateObject("Notes.NotesSession")

Dim db As Object
Dim view As Object
Dim doc As Object
Dim feld As Object
Dim i As Long
Dim Workspace As Object
Dim MainDoc As Object 'The document itself

Set db = s.GetDatabase("rol-apps01/Srv/", "news/news.nsf")
      -> der Servername ist falsch, wurde Dir schon mitgeteilt

      If db.IsOpen = True Then
                    'Already open
         Else
                 Call Workspace.OpenDatabase("roland-apps01/Srv/Roland", "roland/rap/rapnews.nsf")
                 -> wenn db nicht offen ist, wird sie damit auch nicht geöffnet, außerdem ist Workspace hier noch nichts
         End If       

        Set MainDoc = db.CREATEDOCUMENT -> wenn db nicht offen ist, gibt das hier einen Fehler
        MainDoc.Form = "Neues Dokument" -> ist das wirklich der Name der Maske?
        MainDoc.Categories = "aktuelle News"
        Call MainDoc.Save(True, False)
End Sub

Ansonsten beachte die Antworten, die man Dir hier schon gegeben hat.

Der Code ist m.E. recht sinnfrei irgendwoher zusammenkopiert.

KV17:
Hallo Peter,

danke schonmal und mit deiner Hilfe kann ich schon ein wenig mehr anfangen ...

Navigation

[0] Themen-Index

[*] Vorherige Sete