Knop activeren

[ambrosio]

Ik heb op mijn formulier een subformuliers staan, maar deze kan ook leeg zijn en nu komt mijn probleem:

in het subFormulier staat een selectievakje om te zien of er info is over een bepaalde persoon, zo ja dan moet de knop infoPersoon geactiveerd worden.
Normaal geen probleem

Maar nu moet ik eerst zien of er iets in het subFormulier staat, zo ja dan moet ik zien of het selectievakje is aangevinkt en vervolgens deknop activeren, maar dit wil me niet lukken.
Weet iemand hier een oplossing voor,

Thanks

 

[Cornee]

Hallo Ambrosio,

Ik begrijp niet precies wat je bedoelt maar misschien kom je hier verder mee.
======
Private Sub Form_Current()
'Als subform 0 records geeft dan ....
If Me.SubForm.Form.RecordsetClone.RecordCount = 0 _
Then
Msgbox" Geen rocords in SubForm"
'Verberg Subform
Me.SubForm.Visible = False
Else
'Toon subform
Me.SubForm.Visible = True
End If
End Sub
=======

 

[ambrosio]

Cornee bedankt maar dat is het niet:

Ik start met een knop "InfoPersoon" die niet geactiveerd is om ze te activeren moet er aan twee voorwaarden worden voldaan, nl.:
1e er moet bij het formulier een record staan in het subformulieer en ten 2e moet het selectievakje True zijn (dus aangevinkt) dan pas mag de knop "InfoPersoon" geactiveerd worden.

 

[cbhonda]

If Me.Recordset.RecordCount > 0 And Checkboxje = True Then
Me.Parent.cmdInfoPersoon.Enabled = True
Else
Me.Parent.cmdInfoPersoon.Enabled = False
End If
Als je dit onder je subform_current zet dan zou het moeten werken, dan moet je enkel nog in de proc van je checkbox programmeren dat deze voorwaarden opnieuw gecontroleert worden op hun al dan niet waar zijn wanneer je de status van de checkbox aanpast.