Ich habe ein Formular in dem mehrere (unter)-Substanzen erfasst werden können. Dazu schrieb ein ehemaliger Kollege drei Scripts. Je einen für Add, Edit und Remove. Hierbei wird eine kleine Dialogbox geöffnet in der 4 Felder abgefüllt werden können. Mein Problem ist nun das eine Substanz bei der am Anfang noch nicht alle Felder abgefüllt wurden nicht mehr editiert werden kann. Scheinbar hat Notes ein Durcheinander unter den einzelnen Substanzen da diese nicht sauber getrennt werden.
Wie lässt sich dies lösen ohne bestehende Daten zu beinträchtigen?
Hier der Script der Add Funktion:
Sub Click(Source As Button)
On Error Goto Errhandler
Dim ss As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
ret = ws.DialogBox("frmContentDlg", True, True, False, True, False, False, "Substance Details")
If ret = False Then Exit Sub
doc.sEC_number = Evaluate({@Trim(sEC_number : "} & doc.dlgsEC_number(0) & {")}, doc)
doc.sIUPAC = Evaluate({@Trim(sIUPAC : "} & doc.dlgsIUPAC(0) & {")}, doc)
doc.sCAS_number = Evaluate({@Trim(sCAS_number : "} & doc.dlgsCAS_number(0) & {")}, doc)
doc.Composition = Evaluate({@Trim(Composition : "} & doc.dlgComposition(0) & {")}, doc)
If Isnumeric(doc.Volume(0)) Then
calcVol = doc.Volume(0) / 100 * doc.dlgComposition(0)
doc.sVolume = Evaluate({@Trim(sVolume : "} & Round(calcVol, 2) & {")}, doc)
Else
doc.sVolume = Evaluate({@Trim(sVolume : "0.00")}, doc)
End If
doc.dlgsEC_number = ""
doc.dlgsIUPAC = ""
doc.dlgsCAS_number = ""
doc.dlgComposition = ""
Exit Sub
Errhandler:
Msgbox "Line " & Str(Erl) & " : Error " & Str(Err) & " - " & Error$
End
End Sub
Thema: Formular in dem mehrere Untersubstanzen via Script erstellt werden (Gelesen 5242 mal)