Doppelt können die Items eigentlich nicht sein, denn dialog_doc ist ja ein ganz neues, es sei denn, danach kommt ein Script, was noch ein Item mit gleichem Namen erzeugt. Vor allem erstaunt mich der Wert "0", wo kommt der denn her?
Dim dialog_doc As New Notesdocument(db)
Ich persönlich finde aber diese Set dialog_item-Nummer auch etwas komisch, obwohl das so bestimmt auch auch geht (wär mir viel zuviel Schreiberei, da bin ich echt zu faul zu).
Versuch doch mal
dialog_doc.art_Schutzlack = "nein"
So setze ich Werte in Items, auch wenn es die noch garnicht gibt. Und kopiere ich mir das versehentlich an andere Stelle nochmal (nur theorethisch), passiert nichts.
dialog_doc.art_Schutzlack = "nein"
dialog_doc.art_Schutzlack = "nein"
Erzeugt ein Item mit dem Wert nein, ist nur unnötiger Code.
Set dialog_item = New NotesItem(dialog_doc,"art_Schutzlack","nein")
Set dialog_item = New NotesItem(dialog_doc,"art_Schutzlack","nein")
erzeugt sicher 2 Items, eins zuviel. Das dürfte zwar die Darstellungsweise eines Optionsfeldes nicht verändern, aber vielleicht ist da noch was anderes schief.