Domino 9 und frühere Versionen > Entwicklung

Werte aus Feld(Typ:Kontrollkästchen) übernehmen

<< < (2/3) > >>

klaussal:
@till_21

... wenn angeblich alle anderen werte übernommen werden, dann muss er ja zwei verschiedene docs ansprechen, oder  ???

Thomator:
Tach,
@ Till_21 & klaussal
man kann zwei verschiedene uidocs im Zugriff halten, Du musst doch nur verschiedene Variablen darauf setzen...


@Today:
Versuch doch mal, mit
Set NotesItem = doc.GetFirstItem("Feldname")
den Zugriff auf das neue Feld herzustellen, und den Wert dann mit Item.Values(0) = Variable mit dem Wert
in das neue Feld zu schreiben. Dann noch ein uidoc.reload und fertig. Vielleicht gehts so.
Gruss

Thomas

Toady:
@klaussal

Ja, ich hab im Debugger die Werte in den Variablen überprüft - sind leider leer. Das ist ja das Problem, ich weiß halt nicht warum er die Werte daraus nicht übernimmt.


@till21

Mittels 'Set uidoc=uiws.ComposeDocument("","DB","Form")' erstelle ich ein zweites Doc in dem die Werte per 'Call uidoc.FieldSetText()' gespeichert werden.

Thomator:
@Today
Poste doch mal den Quelltext, da ist evtl.das Prob schneller gefunden...

Toady:
Hallo Thomator,

im folgenden der Quelltext. Vielleicht ist nur ne Variable falsch deklariert oder so. Keine Ahnung, bin auch noch nicht so lange als Notes-Entwickler dabei - Script erst seit kurzem.

Sub Click(Source As Button)
   Dim feld1 As String
   Dim feld2 As String
   Dim feld3 As String
   Dim feld4 As String
   Dim feld5 As String
   Dim feld6 As String
   Dim feld7 As String
   Dim feld8 As String
   Dim feld9 As String
   
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   
   Set uidoc = uiws.CurrentDocument
   
   feld1 = uidoc.FieldGetText("Raum")
   feld2 = uidoc.FieldGetText("Titel")
   feld3 = uidoc.FieldGetText("Anzahl")
   feld4 = uidoc.FieldGetText("Ressourcen")
   feld5 = uidoc.FieldGetText("Bestuhlung")
   feld6 = uidoc.FieldGetText("sonstiges")
   feld7 = uidoc.FieldGetText("Meldung")
   feld8 = uidoc.FieldGetText("date1")
   feld9 = uidoc.FieldGetText("time1")
   feld10 = uidoc.FieldGetText("date2")
   feld11 = uidoc.FieldGetText("time2")
   feld12 = uidoc.FieldGetText("date3")
   feld13 = uidoc.FieldGetText("time3")
   feld14 = uidoc.FieldGetText("date4")
   feld15 = uidoc.FieldGetText("time4")
   
   If  feld8 <> "" And feld9 <> "" Then
      
      Set uidoc = uiws.ComposeDocument("","RaumRes.nsf","Reservierung")
      
      Call uidoc.FieldSetText("Raum", feld1)
      Call uidoc.FieldSetText("Datum", feld8)
      Call uidoc.FieldSetText("TimeRange", feld9)
      Call uidoc.FieldSetText("Titel", feld2)
      Call uidoc.FieldSetText("Anzahl", feld3)
      Call uidoc.FieldSetText("Ressourcen", feld4)
      Call uidoc.FieldSetText("Bestuhlung", feld5)
      Call uidoc.FieldSetText("sonstiges", feld6)
      Call uidoc.FieldSetText("Meldung", feld7)
      
      Call uidoc.save
      Call uidoc.close
      
   Elseif feld2 = "" And feld3 <> "" Then
      Msgbox"Fehler! Kein Datum für Raumreservierung angegeben.",16
      Exit Sub
      
   Elseif feld2 <> "" And feld3 = "" Then
      Msgbox"Fehler! Keine Zeit für Raumreservierung angegeben.",16
      Exit Sub
      
   Else
      Exit Sub
      
   End If
   
   If  feld10 <> "" And feld11 <> "" Then
      
      Set uidoc = uiws.ComposeDocument("","RaumRes.nsf","Reservierung")
      
      Call uidoc.FieldSetText("Raum", feld1)
      Call uidoc.FieldSetText("Datum", feld10)
      Call uidoc.FieldSetText("TimeRange", feld11)
      Call uidoc.FieldSetText("Titel", feld2)
      Call uidoc.FieldSetText("Anzahl", feld3)
      Call uidoc.FieldSetText("Ressourcen", feld4)
      Call uidoc.FieldSetText("Bestuhlung", feld5)
      Call uidoc.FieldSetText("sonstiges", feld6)
      Call uidoc.FieldSetText("Meldung", feld7)
      
      Call uidoc.save
      Call uidoc.close
      
   Elseif feld10 = "" And feld11 <> "" Then
      Msgbox"Fehler! Kein Datum für Raumreservierung angegeben.",16
      Exit Sub
      
   Elseif feld10 <> "" And feld11 = "" Then
      Msgbox"Fehler! Keine Zeit für Raumreservierung angegeben.",16
      Exit Sub
      
   Else
      Exit Sub
      
   End If
   
   If  feld12 <> "" And feld13 <> "" Then
      
      Set uidoc = uiws.ComposeDocument("","RaumRes.nsf","Reservierung")
      
      Call uidoc.FieldSetText("Raum", feld1)
      Call uidoc.FieldSetText("Datum", feld12)
      Call uidoc.FieldSetText("TimeRange", feld13)
      Call uidoc.FieldSetText("Titel", feld2)
      Call uidoc.FieldSetText("Anzahl", feld3)
      Call uidoc.FieldSetText("Ressourcen", feld4)
      Call uidoc.FieldSetText("Bestuhlung", feld5)
      Call uidoc.FieldSetText("sonstiges", feld6)
      Call uidoc.FieldSetText("Meldung", feld7)
      
      Call uidoc.save
      Call uidoc.close
      
   Elseif feld12 = "" And feld13 <> "" Then
      Msgbox"Fehler! Kein Datum für Raumreservierung angegeben.",16
      Exit Sub
      
   Elseif feld12 <> "" And feld13 = "" Then
      Msgbox"Fehler! Keine Zeit für Raumreservierung angegeben.",16
      Exit Sub
      
   Else
      Exit Sub
      
   End If
   
   If  feld14 <> "" And feld15 <> "" Then
      
      Set uidoc = uiws.ComposeDocument("","RaumRes.nsf","Reservierung")
      
      Call uidoc.FieldSetText("Raum", feld1)
      Call uidoc.FieldSetText("Datum", feld14)
      Call uidoc.FieldSetText("TimeRange", feld15)
      Call uidoc.FieldSetText("Titel", feld2)
      Call uidoc.FieldSetText("Anzahl", feld3)
      Call uidoc.FieldSetText("Ressourcen", feld4)
      Call uidoc.FieldSetText("Bestuhlung", feld5)
      Call uidoc.FieldSetText("sonstiges", feld6)
      Call uidoc.FieldSetText("Meldung", feld7)
      
      Call uidoc.save
      Call uidoc.close
      
   Elseif feld14 = "" And feld15 <> "" Then
      Msgbox"Fehler! Kein Datum für Raumreservierung angegeben.",16
      Exit Sub
      
   Elseif feld14 <> "" And feld15 = "" Then
      Msgbox"Fehler! Keine Zeit für Raumreservierung angegeben.",16
      Exit Sub
      
   Else
      Exit Sub
      
   End If
   
End Sub


Danke @all für die schnellen Antworten!

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete