dim wd as integer
wd = Weekday (Source.FieldGetText("ProgDatum"))
if wd=0 OR wd=6 Then
call Source.FieldSetText ("Stunden", Format("12:00", "hh:mm"))
else
call Source.FieldSetText ("Stunden", Format("06:00", "hh:mm"))
end ifMach mal ein Zahlenfeld draus, oder füge ein zusätzliches Feld ein und probiers damit.wie ich bereits weit weit oben geschrieben habe. Manche Leute können aber wohl nicht von ihrem Konzept abweichen (nach dem Motto: irgendwie MUSS es doch gehen)......