Abfrage in CASE Anweisung

[Fbaum]

Hallo, ganz kurze Frage...
Gibt es in den Case Anweisungen nicht die Möglichkeit bei der Ausführung zu sagen...Prüfe ob Feld Datum_0 leer ist und fülle es aus ansonsten nimm die nächste Anweisung...
Also das mit der Abfrage hat folgendes auf sich.
Ich trage heute ein Datum (autom. über Button in Feld DATUM_0) ein. Speichere das Dokument ab und morgen will ich ein weiteres Datum eintragen. Wenn ich dann auf den Button klicke wird automatisch mein erstes eingetragenes Datum überschrieben, weil es ja immer im Feld Datum_0 beginnt. Um dies nicht zu überschreiben möchte ich die Abfrage: Wenn Feld Datum_0 bereits gefüllt ist, soll er im Feld Datum_1 weitermachen bzw. bei mehreren Einträgen wenn Feld X gefüllt dann Feld y ausfüllen...
Danke für Eure Hilfe...!

Gruß Frank

Sub Click(Source As Button)
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Set uidoc=ws.currentdocument
Dim DateListe() As Variant
Dim i As Integer
Dim a As Integer
i=0
For x = Cdbl(uidoc.document.StartDateTime(0)) To Cdbl(uidoc.document.EndDateTime(0))
Redim Preserve DateListe(i)
DateListe(i) = Cdat(x)
Select Case i

Case 0:

HIER z.B: IF DATUM_0="" THEN oder so änlich...

uidoc.document.Datum_0=DateListe(0)

Case 1:
uidoc.document.Datum_1=DateListe(1)
Case 2:
uidoc.document.Datum_2=DateListe(2)
Case 3:
uidoc.document.Datum_3=DateListe(3)
Case 4:
uidoc.document.Datum_4=DateListe(4)
Case 5:
uidoc.document.Datum_5=DateListe(5)
End Select
i=i+1
Next
Call uidoc.refresh
End Sub

[Axel]

Hi,

ich glaube nicht, dass so was möglich ist. Es sind zwar in den Case-Zweigen IF-Abfragen möglich, aber es kann dann nicht zu anderen Anweisungen in anderen Case-Zweigen verzweigt werden.

Ich kenne zwar die Anwendung nicht, aber ein Feld mit Mehrfachwerten wäre einfacher zu handeln, in dem einfach das neue Datum angehängt wird.

Gruss
Axel

[manuel]

meinst du in etwa so?


Sub Click(Source As Button)  
Dim ws As New notesuiworkspace  
Dim uidoc As notesuidocument  
Set uidoc=ws.currentdocument  
Dim DateListe() As Variant  
Dim i As Integer  
Dim a As Integer  
Dim j As Integer
i=0  

' zuerst wird die ganze DateListe gefüllt
For x = Cdbl(uidoc.document.StartDateTime(0)) To  Cdbl(uidoc.document.EndDateTime(0))  
Redim Preserve DateListe(i)  
DateListe(i) = Cdat(x)  
i=i+1  
Next  


For j = 0 To 5  'dann werden die Felder durchsucht
If uidoc.document.GetItemValue("Datum_" & j) <> "" Then   'bei jedem wird überprüft ob es einen Wert beinhaltet
 Call uidoc.document.ReplaceItemValue("Datum_" & i, DateListe(i))
 Exit Next    'springt aus der Schleife wenn ein Feld gefüllt wurde
End If
Next


Call uidoc.refresh  
End Sub



Habe ich dich richtig verstanden ?
Manuel

[Fbaum]

Hallo,
das Problem hat sich mittlerweile erledigt.
Danke für die Hilfe.
Gruß Frank