commando knop uitschakelen

[Rommyke]

Hoi

Met onderstaande code kun je een knop uitschakelen

Me!Cmd_Annuleren.Enabled = False

Nu dacht ik het gevonden te hebben maar als ik bovenstaande code gebruik in de knop annuleren zelf werkt dit niet
Dan krijg je de boodschap dat je een knop niet kunt uitschakelen als het gefocust is .

Private Sub Cmd_Annuleren_Click()

   If Me.Dirty Then  'Het toevoegen van een nieuw of gewijzigd record wordt teruggedraaid.
     DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
   End If

  Me!Afdelingsnaam.Locked = False
  Me!Afdelingsnaam.Enabled = False
  Me!OpslaanCmd.Enabled = False
  Me!Cmd_Annuleren.Enabled = False
  
End Sub

Iemand een idee om dit te omzeilen ?

 

[Guus2005]

Dus zet je de focus eerst op een ander control. Meestal is dit de cmdClose button omdat die altijd wel aanwezig is. Maar je kan ook een ander control nemen:

me.cmdClose.SetFocus

Waarom gebruik je trouwens het uitroepteken en niet de punt?
Me! heeft als nadeel dat je niet door de intellisense geholpen wordt.
Me. geeft je gelijk alle mogelijke opties.

 

[WinteE]

Plaats de code voor het disabelen in de sectie 'Bij focus verloren'.

 

[Rommyke]

Plaats de code voor het disabelen in de sectie 'Bij focus verloren'.

Deze methode kan ik niet toepassen daar ik 2 buttons heb waar ik dit wil toepassen maar als ik de ene uitgeschakeld heb moet de andere actief zijn en andersom

Heb de methode van Guus toegepast

Private Sub Cmd_Annuleren_Click()

   If Me.Dirty Then  'Het toevoegen van een nieuw of gewijzigd record wordt teruggedraaid.
     DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
   End If

  Me.Afdelingsnaam.Locked = False
  Me.Afdelingsnaam.Enabled = False
  Me.OpslaanCmd.Enabled = False
  Me.NieuwCmd.Enabled = True
  Me.SluitenCmd.Enabled = True
  Me.SluitenCmd.SetFocus
  Me.Cmd_Annuleren.Enabled = False
  
End Sub

toch bedankt WinteE , goed om te weten voor in de toekomts

groetjes Romain