hmm das ist eigentlich immer die letzte Lösung
ich müsste doch eigentlich nur irgendwo eine Bezeichnung der Maske in dieser Aktion ändern und fertig- nur wo?
Folgendes unter Click:Sub Click(Source As Button)
'the refresh is temporary - until the date/time fields get fixed
uidoc.Refresh
If ws.DialogBox("(RepeatForm)", True, True, False, False, False, False, "Wiederholungsregeln") = False Then Exit Sub
Select Case note.RepeatUnit(0)
Case "D"
note.RepeatInterval = note.RepeatInterval_D
Case "W"
note.RepeatInterval = note.RepeatInterval_W
note.RepeatAdjust = note.RepeatAdjust_W
Case "MD"
note.RepeatInterval = note.RepeatInterval_MDMP
note.RepeatAdjust = note.RepeatAdjust_MD
Case "MP"
note.RepeatInterval = note.RepeatInterval_MDMP
note.RepeatAdjust = note.RepeatAdjust_MP
Case "YD"
note.RepeatInterval = note.RepeatInterval_YD
Case "C"
note.RepeatDates = note.RepeatAdjust_C
End Select
note.RemoveItem("RepeatInterval_D")
note.RemoveItem("RepeatInterval_W")
note.RemoveItem("RepeatInterval_MDMP")
note.RemoveItem("RepeatInterval_YD")
note.RemoveItem("RepeatAdjust_W")
note.RemoveItem("RepeatAdjust_MD")
note.RemoveItem("RepeatAdjust_MP")
note.RemoveItem("RepeatAdjust_C")
note.StartDate = note.RepeatStartDate
uidoc.Reload
End Sub