ReplaceItemValue + dynamische Feldbezeichnung(Schleife)

[LukasSChl]

hallo,

Ich habe einen Button in einer Maske, dieser soll beim Klicken
den Inhalt der Textfelder löschen. Die Felder sollen also keinen Text mehr anzeigen.

Also hab ich, da es so weniger Zeilen Code brauch, eine Schleife genommen.
Doch leider funktioniert es so leider nicht.

Code

Dim oWorkspace As New NotesUIWorkspace
Dim oUIDoc As NotesUIDocument
Set oUIDoc = oWorkspace.CurrentDocument
Dim oDoc As Notesdocument
Set oDoc = oUIDoc.Document
Dim Item As NotesItem
Dim X As Integer
Dim p_zeit As String
Dim p_Anzeige As String
	
For X = 1 To 6
          p_zeit = oDoc.GetItemValue("Pause_" & X)(0)
          Set item = oDoc.ReplaceItemValue(p_zeit,"")
          p_Anzeige = oDoc.GetItemValue("Pause_" & X & "_Anzeige")(0)
          Set item = oDoc.ReplaceItemValue(p_Anzeige,"")
Next

Hat jmd eine Idee wie man die Felder in einer Schleife mit neuem Inhalt (nämlich "") befüllt?

Die Möglichkeit,

Set item = oDoc.ReplaceItemValue(("Pause_" & X & "_Anzeige")(0) ,"")

also mit dem dynamischen Feldnamen direkt in der ReplaceItemValue Methode funktioniert leider nicht. schade ;( es wär doch so einfach xDD

Kennt jmd eine andere Lösung für das Problem?

mfg Lukas

[Peter Klett]

Die Möglichkeit,

Set item = oDoc.ReplaceItemValue(("Pause_" & X & "_Anzeige")(0) ,"")

also mit dem dynamischen Feldnamen direkt in der ReplaceItemValue Methode funktioniert leider nicht.

Doch, lass mal die (0) weg

[LukasSChl]

  
omg darauf hätt ich selber kommen müssen  xDD

Danke Peter


mfg Lukas

[Peter Klett]

Denk auch an Bernhards Hinweis von neulich

Set item = oDoc.ReplaceItemValue(("Pause_" & Cstr (X) & "_Anzeige") ,"")

Wenn Du das item nicht brauchst, kannst Du auch

Call oDoc.ReplaceItemValue(("Pause_" & Cstr (X) & "_Anzeige") ,"")

verwenden
 

[LukasSChl]

Denk auch an Bernhards Hinweis von neulich

Set item = oDoc.ReplaceItemValue(("Pause_" & Cstr (X) & "_Anzeige") ,"")

hab ich im Kopf, aber hier in dem Fall nicht nötig, da es auch so funktioniert wenn X ein Integer ist. Dieser ist ja fest und kann nur Werte von 1-6 annehmen.

Wenn Du das item nicht brauchst, kannst Du auch

Call oDoc.ReplaceItemValue(("Pause_" & Cstr (X) & "_Anzeige") ,"")
verwenden

Das ist ne Idee, dann spar ich mit wieder eine Zeile Code(deklaration vom Item) ^^

dank dir


mfg Lukas

[koehlerbv]

Denk auch an Bernhards Hinweis von neulich

Set item = oDoc.ReplaceItemValue(("Pause_" & Cstr (X) & "_Anzeige") ,"")

hab ich im Kopf, aber hier in dem Fall nicht nötig, da es auch so funktioniert wenn X ein Integer ist. Dieser ist ja fest und kann nur Werte von 1-6 annehmen.

Die Aussage "da es auch so funktioniert", ist Dummfug. Der Code ist syntaktisch unsauber und geschlampert, da Du diese Zeile (später) nur ein klein wenig erweitern musst, und der Code funktioniert nicht mehr (wie erwartet).

Bernhard