knoppen enabled od disabled zetten

• 

  Andro

  25-03-2005 18:50

  Hoe kan ik vanuit een subform een commando knop op het hoofdform disabled of enabled zetten? Van hoofdform naar subform werkt het zo me.subformnaam.form.knopnaam.enabled = true maar in omgekeerde richting zou ik het niet weten. Weet iemand de oplossing voor mijn probleem ?
• 

  Database Service Nederland

  29-03-2005 16:55

  me.parent.knopnaam.enabled = true
• 

  Andro

  30-03-2005 18:59

  bedankt voor de hulp het werkt nu perfect. Ik heb trouwens nog een vraagje. ik heb een hoofdform en subform waar ik zelf navigatieknoppen heb opgeplaatst. After update van een combobox op het hoofdform disable ik de navigatieknoppen op hoofdform en subform. Dit werkt allemaal goed tot ik de navigatieknoppen op de subform eens aangeklikt heb en na het verlaten van de combobox op het hoofdform (door een keuze te maken van in de combobox aanwezige gegevens) krijg ik de foutmelding. You can't disable a set focus (iets in die aard). Kan dit verholpen worden?
• 

  RV2

  30-03-2005 22:03

  Post ff je code(s)

  RV2
• 

  Andro

  31-03-2005 18:27

  dit is de code van mijn navigatieknoppen op de subform

  Private Sub Command40_Click()

  On Error GoTo Err_Command40_Click

  DoCmd.GoToRecord , , acPrevious

  Exit_Command40_Click:

  Exit Sub

  Err_Command40_Click:

  MsgBox Err.Description

  Resume Exit_Command40_Click

  End Sub

  Private Sub Command41_Click()

  On Error GoTo Err_Command41_Click

  DoCmd.GoToRecord , , acNext

  Exit_Command41_Click:

  Exit Sub

  Err_Command41_Click:

  MsgBox Err.Description

  Resume Exit_Command41_Click

  End Sub

  Dit is de code van mijn combobox op de hoofdform

  Private Sub Combo12_AfterUpdate()

  On Error GoTo Err_Combo12_AfterUpdate

  Me.txtpaswoord.Enabled = True

  Me.Command39.Enabled = False

  Me.Command40.Enabled = False

  Me.Command41.Enabled = False

  Me.Command30.Enabled = False

  Me.Command46.Enabled = False

  Me.subbon.Form.Command40.Enabled = False

  Me.subbon.Form.Command41.Enabled = False

  With txtpaswoord

  .Visible = True

  .SetFocus

  End With

  txtnaam.Requery

  Exit_Combo12_AfterUpdate:

  Exit Sub

  Err_Combo12_AfterUpdate:

  MsgBox Err.Description

  Resume Exit_Combo12_AfterUpdate

  End Sub

  de foutmelding dit ik krijg als ik eerst op een navigatieknop druk op de subform en dan een selectie maak uit de combobox is

  i can't disabled a command that have the focus

  Hopelijk weet je een oplossing voor dit probleem