Suche nach einem bestimmten Termin im Kalender über VBA

[Jörn]

 
Hallo zusammen,
jetzt habe ich eine weiteres Problem:

> ich suche im Kalender Termine mit einer bestimmten Kategorie. Mit meinem Code wird der gesamte Kalender durchsucht. Ich möchte aber erst ab einem bestimmten Datum suchen?

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 Set view = db.GetView("calendar")
  If view Is Nothing Then
    'Falsches Datenbank format
    Exit Sub
  End If
  'Alle Dokumente auslesen
  Set doc = view.GetFirstDocument
  i = 0
 
  frmTerminliste.ListBox1.Clear
  frmTerminliste.ListBox1.ColumnCount = 2
  frmTerminliste.ListBox1.ColumnWidths = "10cm;2cm"
 
  Do While Not doc Is Nothing
    If Right(Year(doc.GetItemValue("startdate")(0)), 4) >= Right(Date, 4) Then
        If doc.GetItemValue("categories")(0) = "VR-Concept" And CDate(doc.GetItemValue("startdate")(0)) > Date Then
            frmTerminliste.ListBox1.AddItem doc.GetItemValue("subject")(0)
            frmTerminliste.ListBox1.List(i, 1) = doc.GetItemValue("startdate")(0)
            i = i + 1
        End If
    End If
    Set doc = view.GetNextDocument(doc)
 
  Loop

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Was muss ich schreiben? Danke für eure Tipps

Grüsse
Jörn
 

[m3]

ARGL. Das tut ja körperlich weh. Hast Du schon mal mit Datenbanken gearbeitet? Wenn ja, gehst Du in einer relationalen Datenbank auch alle Einträge händisch durch, oder benutzt Du ein passendes SELECT Statement?

Ein "lineare Suche" hat einen Aufwand von O(n) und ist ZIEMLICH ineffizient.

Du willst Dir in der Designer-Hilfe notesView.GetAllEntriesByKey() bzw. notesView.FTSearch() sowie notesDatabase.Search ansehen

[Jörn]

ARGL. Das tut ja körperlich weh. Hast Du schon mal mit Datenbanken gearbeitet? Wenn ja, gehst Du in einer relationalen Datenbank auch alle Einträge händisch durch, oder benutzt Du ein passendes SELECT Statement?

Ein "lineare Suche" hat einen Aufwand von O(n) und ist ZIEMLICH ineffizient.

Du willst Dir in der Designer-Hilfe notesView.GetAllEntriesByKey() bzw. notesView.FTSearch() sowie notesDatabase.Search ansehen

da ich ja kein notes-designer habe bzw. kein gelernter programmierer bin (kann nur vba'excel'), sorry, das es dir körperlich weh tut. wenn du mir helfen willst, schreib mir doch einfach den code um und teile ihn mir mit.

gruß jörn

[m3]

Ich schreibe Dir gerne den Code, wenn Du entsprechende € überweist.

Ansonsten kämpf Dich durch die von mir genannten Kapitel in der Designer-Hilfe. Bei Detailfragen stehen wir Dir alle gerne für weitere Hilfe zur Verfügung.