Domino 9 und frühere Versionen > Entwicklung

Hinweis auf Datensatzanzahl

<< < (2/3) > >>

lucy123:
Hallo zusammen, das Script klappt soweit, soll aber auf den einzelnen Tag zugreifen. So wie es unten beschrieben ist macht es die DB nach 5 Einträgen komplett zu. Ich möchte das aber auf die einzelnen Tage setzen, wobei Mo-Do 7 Einträge zulässig sind und Fr nur 5 Einträge. Gibt es eine Lösung für mein Problem ? Bin leider  nicht so bewandert in LS. Gruß Willi

Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim vc As NotesViewEntryCollection
   Set db = session.CurrentDatabase
   Set view = db.GetView("2Kalender")
   Set vc = view.GetAllEntriesByKey("#")
   Set NotesViewEntryCollection = view.AllEntries
   count = NotesViewEntryCollection.Count
   If count >5 Then
      Msgbox "Bitte nicht mehr als 5 Einträge",0+16,"Abbruch"
      continue = False
      Exit Sub
   End If   

Axel:
So kann das nichts werden. Dir fehlt der Datumsbezug.

Hier mal ein ungetesteter Vorschlag:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim strSearch As String
Dim collection As NotesDocumentCollection

Set db = session.CurrentDatabase

'Suche nach allen Dokumenten mit dem entsprechenden Datum
strSearch = {FeldmitDatum = "} & Source.FieldGetText("FeldmitDatum") & {"}
Set collection = db.Search(strSearch, Nothing, 0)

count = collection.Count

'Abfrage ob Wochentag = Freitag
Select Weekday(Source.FieldGetText("FeldmitDatum"))
Case 2 To 5  'Montag - Donnerstag
   If count > 7 Then
      Msgbox "Bitte nicht mehr als 5 Einträge",0+16,"Abbruch"
      continue = False
      Exit Sub
   End If   
Case 6
   If count > 5 Then
      Msgbox "Bitte nicht mehr als 7 Einträge",0+16,"Abbruch"
      continue = False
      Exit Sub
   End If
Case 1, 7
      Msgbox "Juchu. Wochenende",0+16,"Abbruch"
End Select


Axel

lucy123:
Hallo Axel,

klappt leider nicht. Ein Fehler war evtl. Select Case Weekday.... Er zählt nicht durch. Trotzdem Danke
Gruß Willi

Axel:
Was klappt denn genau nicht? Findet er keine weiteren Dokumente, auch wenn's welche gibt?

Was sagt denn der Debugger?


Axel

lucy123:
Hallo Axel,

es kommt keine Fehlermeldung, es kommt aber auch kein Hinweis, wenn die Datensatzanzahl des jeweiligen Tages überschritten wird. Ich dachte mir, wenn ich z.b. auf den 26.01. (Freitag) mehr als 5 Datensätze eingebe, das er dann beim 6. Datensatz sagt: "Nix geht mehr" oder das er den Hinweis gibt und den Datensatz dann trotzdem übernimmt.
Die Maske, in der ich das benötige heißt "Eingabe" und das Datumfeld dieser Maske heißt "HerzDat".
Gruß Willi

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete