Knap skal være aktiveret fra en form - men ikke fra en anden

Hvis du bruger en knap til at tilgå omtalte form, kan du gøre følgende:

Opret en global variabel

VAR = f_kunde
(kode til åbn formular)

Formular undlæses
I Form Open kan skrives:
If VAR = f_kunde Then
knap.enabled = false
endif

Add this to the on load event of F_Kurser
If Not IsNull(Me.OpenArgs) Then Me.TheButtonName.Enabled = False

In the on click event of the button which opens the form change the line so that the openargs paramater contains -1

For example.
DoCmd.OpenForm stDocName, , , stLinkCriteria, , , -1

You obviosuly need to alter TheButtonName to theh name of the button!

Til onlinepc

Så er f_kunde jo aldrig aktiveret når den åbnes?

kfk> har du kigget på min svar?

mvh
Terry

Terry

More help, please!

kfh

kfk> Why have you rejected my answer, it does what you want! Is it because you do not understabd what I write?

terry

Some forms must open the form F_Kurser
with the button IKEE Aktiv
In these forms (for example F_Kunde) change the line which opens the form F_Kurser
to look like this.

DoCmd.OpenForm stDocName, , , stLinkCriteria, , , -1

In the other forms where button must be aktiv it looks like this
DoCmd.OpenForm stDocName, , , stLinkCriteria

The -1 gets sent to the form  F_Kurser.

In the on load event of F_Kurser add this line
and change TheButtonName to the name of the button.

If Not IsNull(Me.OpenArgs) Then Me.TheButtonName.Enabled = False

Is that clear?

--->>> KFH
Undskyld, jeg tog fejl af formularnavnene.
Koden skal kun ligge på knappen, der ligger på F_Kunde.
Så vil VAR kun blive tildelt herfra.
Du bør egentlig også nulstille VAR igen, når du åbner F_Kurser med fx

VAR = OK

Terry

Thank you - it works perfect - and I´m grateful!

Kfh

Great, thank you too!

Terry