Søgning i Notes DB med VBA
Hej alleKan det være rigtigt at det her er den bedste måde at tilgå en Notes DB på - altså via VBA?
(Hvis det ser lidt rodet ud er det nok fordi det her er 630e omskrivning...)
Det er ikke helt nemt at gennemskue den måde det fungerer på, når man kun er vant til at arbejde med ACCESS og DB2.
Jeg har forsøt mig med en .Search men får at vide at der bliver fundet flere dokumenter end deer tilladt, eller noget i den stil.
P.S.: AAARRRRGGGGGGHHHH !!! :o)
Sub notes3()
Dim db
Dim scom
Dim NotesView
Set scom = CreateObject("Lotus.NotesSession")
Call scom.Initialize
Set dira = scom.GetDbDirectory("DMRAXXX")
Set NotesDB = scom.GetDatabase(dira, "Markedsfoering\NetXXX.nsf")
Set NotesView = NotesDB.GetView("5. FAXXXXXXXXXXXXXXXXXXXXX")
Set doc = NotesView.GetFirstDocument
q = 0
While Not (doc Is Nothing)
Set aar = doc.GetFirstItem("AarFra")
If aar Is Nothing Then GoTo nodat
Set snr = doc.GetFirstItem("SalgsVnr")
Set stext = doc.GetFirstItem("SalgsVaretekst")
Set ufra = doc.GetFirstItem("SpotugeFra")
Set util = doc.GetFirstItem("SpotugeTil")
If Not aar Is Nothing Then valaar = aar.values
valsnr = snr.values
valstext = stext.values
va = valaar(0)
DoEvents
If va = "2009" Then
q = q + 1
Sheets(3).Range("A" & q) = va
Sheets(3).Range("D" & q) = valsnr(0)
Sheets(3).Range("E" & q) = valstext(0)
End If
nodat:
Set doc = NotesView.GetNextDocument(doc)
Wend
slut:
Set scom = Nothing
Set NotesView = Nothing
Set NotesDB = Nothing
End Sub