Hallo,
bei der Mobilfunkdatenbank kann man ja unten einen Aktivierungszeitraum eingeben.
Wenn man jetzt irgendein Feld gleich einem bereits erfasstem Aktivierungszeitraum eintragen möchte, erscheint ein Fehler "Duplikate sind nicht erlaubt".
Was muss ich aus dem Script rausnehmen bzw. ändern damit dieser Hinweis nicht mehr kommt?
Danke für eure Hilfe.
Sorry, wusste nicht wies geht.
Darf man aus der DB das Script hier mal reinstellen, oder verstosse ich dann gegen irgendeine Regel?
keine Ahnung, kommt darauf an, unter welcher Lizenz das Produkt steht.
Gruß
Dirk
Das ist eine DB die auch auf OpenNTF verfügbar ist.
Hier ist das Script:
Sub Click(Source As Button)
Stop
Dim w As New NotesUIWorkspace
Dim doc As NotesDocument
Dim TmpField1Values
Dim TmpField2Values
Dim TmpField3Values
Dim TmpField4Values
Set doc = w.CurrentDocument.Document
If (doc.MF_Field1Edit(0)<>"") And (doc.MF_Field2Edit(0)<>"") And (doc.MF_Field3Edit(0)<>"") And (doc.MF_Field4Edit(0)<>"") Then
If Isnull(Arraygetindex( doc.MF_Field3, doc.MF_Field3Edit(0) ) )Then
TmpField1Values = doc.GetFirstItem("MF_Field1").Values
TmpField2Values = doc.GetFirstItem("MF_Field2").Values
TmpField3Values = doc.GetFirstItem("MF_Field3").Values
TmpField4Values = doc.GetFirstItem("MF_Field4").Values
m = Ubound(TmpField1Values)
If (m<>0) Or (TmpField1Values(0)<>"") Then m=m+1
Redim Preserve TmpField1Values ( m )
Redim Preserve TmpField2Values ( m )
Redim Preserve TmpField3Values ( m )
Redim Preserve TmpField4Values ( m )
TmpField1Values(m) = doc.MF_Field1Edit(0)
TmpField2Values(m) = doc.MF_Field2Edit(0)
TmpField3Values(m) = doc.MF_Field3Edit(0)
TmpField4Values(m) = doc.MF_Field4Edit(0)
Call doc.ReplaceItemValue("MF_Field1", TmpField1Values)
Call doc.ReplaceItemValue("MF_Field2", TmpField2Values)
Call doc.ReplaceItemValue("MF_Field3", TmpField3Values)
Call doc.ReplaceItemValue("MF_Field4", TmpField4Values)
w.CurrentDocument.Refresh
doc.MF_Field1Edit = ""
doc.MF_Field2Edit = ""
doc.MF_Field3Edit = ""
doc.MF_Field4Edit = ""
Else
Msgbox "Duplikate sind nicht erlaubt!"
End If
Else
Msgbox "Leere Felder sind nicht erlaubt!"
End If
End SubBitte Code in Code Tags verpacken.
Ist definitiv besser lesbar.
Zu deiner Frage:
Die Meldung kommt, wenn in MF_Field3 der Wert von MFField3Edit enthalten ist.
Was diese Felder genau enthalten musst du in der DB selber nachschauen
Sorry.
Wie kann ich diese Prüfung rausnehmen bzw. umgehen?
Indem du den entsprechenden Codeteil auskommentierst.
Du solltest dich ein wenig mit den Grundlagen der Scriptprogrammierung beschäftigen.
Denn was wir dir nicht sagen können ohne die Anwendung genauer zu analysieren, ist ob an dieser Prüfung nicht noch andere Punkte hängen.
Z.B. könnte der Inhalt dieses Feldes in Ansichten als Schlüssel verwendet werden.
Lässt du jetzt doppelte Einträge zu, können Abfragen auf diese Ansicht schief laufen und du hast ganz andere Probleme