feldnamen zusammensetzen

[klaussal]

hi zusammen,

folgendes problem:

maske mit den feldern monat_01 monat_02 .... bis monat_12

bei einer plausi-prüfung möchte ich jetzt nicht 12 if-bedingungen basteln, sonder mit einer for-schleife arbeiten.

For i = 0 To 11
If Trim(doc.monat_01(0))<---- ?? = "" Then
  Msgbox "Feld " + monat(i) + "  ist leer" & Chr(13) , 16, "Achtung"
  Exit Sub
  End If
Next

frage: kann ich den feldnamen irgendwie dynamisch zusammensetzen ?

vilen dank für tipps und hinweise !

[koehlerbv]

NotesDocument.GetItemValue erwartet einen String für den Feldnamen. Hier kannst Du ansetzen.

Bernhard

[Glombi]

So:

dim feldnamesuffix as string
For i = 1 To 12
feldnamesuffix = Right$("0" & cstr(i),2)
If Trim(doc.GetItemValue("monat_" & feldnamesuffix)(0)) = "" Then
  Msgbox "Feld " + monat(i) + "  ist leer" & Chr(13) , 16, "Achtung"
  Exit Sub
  End If
Next

Andreas

[klaussal]

@andreas,

suuuuuper, DANKE !