Das mit dem EditMode wird abgefangen, der Witz ist ich habe gerade auf den Button geklickt und es ging, danach habe ich etwas an der Maske verändert (Validierungsformel) danach gings nicht mehr... hier der Code
Set uidoc = ws.CurrentDocument
stellenBeschr = uidoc.FieldGetText("StellenBez")
If Not uidoc.Editmode Then
uidoc.editmode = True
End If
Set dlgDoc = New NotesDocument(db)
dlgDoc.Form = "dlgprint"
dlgDoc.Stellvertretung = doc.Getitemvalue("Test")
Call ws.DialogBox( "dlgprint" , True , False , True , False, False , False , "Testdialog", dlgDoc , True, True )
Danke für den Hinweis, habe das soweit berichtigt, aber es funktioniert trotzdem noch nicht.
Ich habe das Ganze jetzt nochmals neu geschriben einfach zum Testen, aber auch das funktioniert nicht:
Dim ws As New notesuiworkspace
Dim ses As New notessession
Dim db As notesdatabase
Dim dlgDoc As notesdocument
Set db = ses.CurrentDatabase
Set dlgDoc = New NotesDocument(db)
dlgDoc.Form = "dlgprint"
Call ws.DialogBox( "dlgprint" , True , False , True , False, False , False , "Test", dlgDoc , True, True )