in postOpen:
if source.Editmode = true then
if Source.FieldGetText("Status") = "3" then
Continue = false
messagebox "Editieren verboten"
end if
end if
(nachträglich korrigiert. Atas Kommentar bezog sich auf eine vorherige Version ohne die äußere "if Sourc.editmode = true"- Bedingung.
in querymodechange:
if source.editMode = false then
if Source.FieldGetText("Status") = "3" then
Continue = false
messagebox "Editieren verboten"
end if
end if
... wenn ich mich nicht irre, kann man ein Doc in den Edit-Modus holen, ohne daß man den QueryModeChange durchläuft...
meines Wissens nicht. Wie ???
Ansonsten hast du Recht. Im PostOpen Event muß es heißen:
if source.editMode = true then
if Source.FieldGetText("Status") = "3" then
Continue = false
messagebox "Editieren verboten"
end if
end if
Ich korrigiere oben.