ich habe in einer maske 5 Felder, die alle den Gleichen Namen haben.
Unterschied, am Ende steht eine fortlaufende nummer.
In meinem Scrips muss ich mit allen Felden das gleiche durchlaufen lassen.
Gibt es die Möglichkeit die Feldnamen automatisch hochzuzählen:
Hier ist mein Ansatz:
Dim ws As New NotesUIWorkSpace
Dim s As New NotesSession
Dim db As Notesdatabase
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Set db = s.CurrentDatabase
Set UiDoc = ws.CurrentDocument
Set doc = uidoc.Document
n = 1
Do While n < 6
n = n + 1
Loop
Dim mdoc As notesdocument
If doc.Menü_KeineLieferung1(0) = "" Then
Set mdoc = New NotesDocument(db)
mdoc.Form = "KANTINEMenüübersicht"
mdoc.Menüübersicht_Kantine = doc.Menü_Kantine(0)
mdoc.Menüübersicht_Anbieter = doc.Menü_Anbieter(0)
mdoc.Menüübersicht_KW = doc.Menü_KW(0)
mdoc.Menüübersicht_Tag = doc.Menü_Tag1(0)
mdoc.Menüübersicht_Bestellende = doc.Menü_Bestellende1(0)
mdoc.Menüübersicht_Beschreibung = doc.Menü_Beschreibung1(0)
Call mdoc.Save( False, True )
End If
If doc.Menü_KeineLieferung2(0) = "" Then
Set mdoc = New NotesDocument(db)
mdoc.Form = "KANTINEMenüübersicht"
mdoc.Menüübersicht_Kantine = doc.Menü_Kantine(0)
mdoc.Menüübersicht_Anbieter = doc.Menü_Anbieter(0)
mdoc.Menüübersicht_KW = doc.Menü_KW(0)
mdoc.Menüübersicht_Tag = doc.Menü_Tag2(0)
mdoc.Menüübersicht_Bestellende = doc.Menü_Bestellende2(0)
mdoc.Menüübersicht_Beschreibung = doc.Menü_Beschreibung2(0)
Call mdoc.Save( False, True )
End If
If doc.Menü_KeineLieferung3(0) = "" Then
Set mdoc = New NotesDocument(db)
mdoc.Form = "KANTINEMenüübersicht"
mdoc.Menüübersicht_Kantine = doc.Menü_Kantine(0)
mdoc.Menüübersicht_Anbieter = doc.Menü_Anbieter(0)
mdoc.Menüübersicht_KW = doc.Menü_KW(0)
mdoc.Menüübersicht_Tag = doc.Menü_Tag3(0)
mdoc.Menüübersicht_Bestellende = doc.Menü_Bestellende3(0)
mdoc.Menüübersicht_Beschreibung = doc.Menü_Beschreibung3(0)
Call mdoc.Save( False, True )
End If
If doc.Menü_KeineLieferung4(0) = "" Then
Set mdoc = New NotesDocument(db)
mdoc.Form = "KANTINEMenüübersicht"
mdoc.Menüübersicht_Kantine = doc.Menü_Kantine(0)
mdoc.Menüübersicht_Anbieter = doc.Menü_Anbieter(0)
mdoc.Menüübersicht_KW = doc.Menü_KW(0)
mdoc.Menüübersicht_Tag = doc.Menü_Tag4(0)
mdoc.Menüübersicht_Bestellende = doc.Menü_Bestellende4(0)
mdoc.Menüübersicht_Beschreibung = doc.Menü_Beschreibung4(0)
Call mdoc.Save( False, True )
End If
If doc.Menü_KeineLieferung5(0) = "" Then
Set mdoc = New NotesDocument(db)
mdoc.Form = "KANTINEMenüübersicht"
mdoc.Menüübersicht_Kantine = doc.Menü_Kantine(0)
mdoc.Menüübersicht_Anbieter = doc.Menü_Anbieter(0)
mdoc.Menüübersicht_KW = doc.Menü_KW(0)
mdoc.Menüübersicht_Tag = doc.Menü_Tag5(0)
mdoc.Menüübersicht_Bestellende = doc.Menü_Bestellende5(0)
mdoc.Menüübersicht_Beschreibung = doc.Menü_Beschreibung5(0)
Call mdoc.Save( False, True )
End If
Call uidoc.Close
