warum musst du wissen was drin ist? der inhalt ist ja eigentlich egal oder? geht einfach darum das gewisse felder leer sind und gewisse nicht. solange bei allen artikeln alle felder gefüllt wurden ist das editieren kein problem sobald jedoch etwas nicht komplett gefüllt abgespeichett wurde ist editieren nicht mehr möglich...
hier die db:
Ich habe die Trim bei 2 Feldern entfernt da dort der User keine daten eingeben muss wenn er nicht will. die anderen 2 felder sind muss felder daher sind dort daten vorhanden. stört die trim funktion trozdem?
also ich hab den script wie oben angepasst und dann die daten erfasst. beim erfassen keine probleme aber sobald ich 2 artikel erfasst habe und einen editieren möchte bei dem vorher nicht alle felder abgespitzt wurden bekomme ich den erwähnten fehler...
Folgende Meldung erhalte ich beim editieren unvollständiger Datensätze:
Line 36: Error 9 - Subscript out of range
hmmm habs versucht doch erhalte noch immer ne error meldung wenn ich editieren möchte.
Hier die 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({sIUPAC : "} & doc.dlgsIUPAC(0) & {"}, doc) doc.sCAS_number = Evaluate({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 SubErrhandler: Msgbox "Line " & Str(Erl) & " : Error " & Str(Err) & " - " & Error$ EndEnd Subund hier die edit:
Sub Click(Source As Button)
On Error Goto Errhandler
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim docTem As NotesDocument
Dim contentList() As String
Dim var As Variant
Dim n, selindex As Long
Set db = ws.CurrentDatabase.Database
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
If Ubound(doc.sEC_number) = 0 And Trim(doc.sEC_number(0)) = "" Then
Msgbox "There is no entry in Substance table"
Exit Sub
End If
'compute selection for edit
n = 0
Forall a In doc.sEC_number
Redim Preserve contentList(n)
contentList(n) = Cstr(n+1) & ". " & a
n = n + 1
End Forall
'prompt selection
var = ws.Prompt(4, "Edit Entry", "Please select an entry to edit/modify : ", contentList(0), contentList)
If var = "" Then Exit Sub
selindex = Clng(Strleft(Cstr(var), ". ")) - 1
doc.dlgsEC_number = doc.sEC_number(selindex)
doc.dlgsIUPAC = doc.sIUPAC(selindex)
doc.dlgsCAS_number = doc.sCAS_number(selindex)
doc.dlgComposition = doc.Composition(selindex)
ret = ws.DialogBox("frmContentDlg", True, True, False, True, False, False, "Substance Details")
If ret = False Then
doc.dlgsEC_number = ""
doc.dlgsIUPAC = ""
doc.dlgsCAS_number = ""
doc.dlgComposition = ""
Exit Sub
End If
Set docTem = db.CreateDocument
For n = 0 To Ubound(doc.sEC_number)
If n <> selindex Then
docTem.tempE = Evaluate({@Trim(tempE : "} & doc.sEC_number(n) & {")}, docTem)
docTem.tempI = Evaluate({tempI : "} & doc.sIUPAC(n) & {"}, docTem)
docTem.tempC = Evaluate({tempC : "} & doc.sCAS_number(n) & {"}, docTem)
docTem.tempCO = Evaluate({@Trim(tempCO : "} & doc.Composition(n) & {")}, docTem)
docTem.tempV = Evaluate({@Trim(tempV : "} & doc.sVolume(n) & {")}, docTem)
Else
docTem.tempE = Evaluate({@Trim(tempE : "} & doc.dlgsEC_number(0) & {")}, docTem)
docTem.tempI = Evaluate({tempI : "} & doc.dlgsIUPAC(0) & {"}, docTem)
docTem.tempC = Evaluate({tempC : "} & doc.dlgsCAS_number(0) & {"}, docTem)
docTem.tempCO = Evaluate({@Trim(tempCO : "} & doc.dlgComposition(0) & {")}, docTem)
If Isnumeric(doc.Volume(0)) Then
calcVol = doc.Volume(0) / 100 * doc.dlgComposition(0)
docTem.tempV = Evaluate({@Trim(tempV : "} & Round(calcVol, 2) & {")}, docTem)
Else
docTem.tempV = Evaluate({@Trim(tempV : "0.00")}, docTem)
End If
End If
Next
doc.sEC_number = docTem.tempE
doc.sIUPAC = docTem.tempI
doc.sCAS_number = docTem.tempC
doc.Composition = docTem.tempCO
doc.sVolume = docTem.tempV
doc.dlgsEC_number = ""
doc.dlgsIUPAC = ""
doc.dlgsCAS_number = ""
doc.dlgComposition = ""
doc.dlgsVolume = ""
Exit Sub
Errhandler:
Msgbox "Line " & Str(Erl) & " : Error " & Str(Err) & " - " & Error$
End
End SubIch verstehe dass mit der Einbettung nicht ganz. Was sind Evaluate und muss ich bloss die () entfernen oder auch die {}?
Nee der ist ja jetzt wegg... Ich kenne nur die Notes Sprache nicht aber Script
Vielen Dank für den Tipp. Da ich diese Sprache überhaupt nich beherrsche: Wie kann ich die Trim Funktion deaktivieren?
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