Private Sub Form_Open(Cancel AS integer) Knopka.Enabled=false end Sub
Private Sub Form_Current if IsNull(Pole)=false then Knopka.Enabled=true end sub