Guten Morgen,
ich hab hier mal ne kleine Frage zum OnChange Event und zwar hab ich nenn Optionsfeld in den man zwischen
Urlaub und Dienstreise auswählen kann, jenachdem was ausgewählt ist sollen schonmal bestimmte Felder ausgefüllt werden, allerdings wenn ich jetzt zwischen den Werten im Optionsfeld wechsel passiert erstmal garnix und wenn ich dann irgendwo in der Maske klick bekomm ich die Meldung "Notesfehler Feldinhalt kann nicht verändert werden".
Hab ich da nenn Fehler im QT oder hab ich irgendwas vergessen zu beachten?
Sub Onchange(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Projektstatus = uidoc.FieldGetText("U_Projektstatus")
If Projektstatus = "Urlaub" Then
Call uidoc.FieldSetText("U_Projektnummer","99990001")
Call uidoc.FieldSetText("U_Modus","06")
Call uidoc.FieldSetText("U_Projektbezeichnung","Urlaub")
End If
If Projektstatus = "Dienstgang" Then
Call uidoc.FieldSetText("U_Projektnummer","99990002")
Call uidoc.FieldSetText("U_Modus","07")
Call uidoc.FieldSetText("U_Projektbezeichnung","Dienstgang")
End If
End Sub
Gruß
Ricco