Voorwaardelijke objecten

[jorennn]

Hej,

Is het mogelijk om bijvoorbeeld een knop op een formulier weer te geven, alleen maar als een bepaalde query resultaten levert?

mvg,
Joren

 

[OctaFish]

Dat kan; de aanpak is enigszins afhankelijk van hoe de query aan het formulier hangt, of niet natuurlijk.

 

[jorennn]

De query en het formulier zijn onafhankelijk tegenover elkaar, 2 verschillende dingen dus.
Zou je eens kunnen vertellen hoe ik dit juist kan doen?

alvast bedankt

 

[OctaFish]

Dan moet ik eerst weten hoe de query het formulier bepaalt. Je zult de knop willen laten zien als er een bepaalde waarde zit in de query, neem ik aan?

 

[jorennn]

Ik wil de knop gewoon laten zien als de query resultaten oplevert, het maakt niet uit wat voor resultaten dat zijn.

"Dan moet ik eerst weten hoe de query het formulier bepaalt."
Ik begrijp niet echt wat ik moet tonen ?

bedankt

 

[OctaFish]

Dan wil je dus vermoedelijk, dat de knop zichtbaar is als er minstens één record in het resultaat zit?

 

[jorennn]

Inderdaad, dit bedoel ik

 

[OctaFish]

Dan kun je zoiets proberen:

Private Sub Form_Load()
Dim rs As DAO.Recordset
Dim iAantal As Integer

Set rs = CurrentDb().OpenRecordset("qTestquery")
rs.MoveLast
rs.MoveFirst
iAantal = rs.RecordCount

If iAantal > 0 Then
    Me.cmdKnop.Visible = True
Else
    Me.cmdKnop.Visible = False
End If
rs.Close
Set rs = Nothing

End Sub

Deze code zet je bij de gebeurtenis <Bij Laden> van het formulier, zoals je kunt zien aan de eerste regel.
De procedure opent de query op de achtergrond, telt het aantal records, en maakt afhankelijk daarvan de knop zichtbaar of niet.

 

[jorennn]

Bedankt, het is gelukt!, er is nog een iets wat beter zou moeten.
Nu heb ik deze code:

Option Compare Database


Private Sub Form_Load()

    Dim rs As DAO.Recordset
    Dim intAantal As Integer
    
    Set rs = CurrentDb().OpenRecordset("Problemen")
    intAantal = rs.RecordCount
    
    If intAantal > 0 Then
        Me.cmdProbleem.Visible = True
    Else
        Me.cmdProbleem.Visible = False
    End If

End Sub

Nu zou ik nog willen dat de knop ook komt en gaat als je iets aanpast in het formulier.
In het formulier zit er een subformier, en als ik daarin iets aanpas veranderen de resultaten van die query, maar de knop komt en gaat alleen maar als ik het formulier opnieuw open.
Ik hoop dat je het begrijpt

mvg,
Joren

 

[OctaFish]

Dat kun je doen op de gebeurtenis <Na bijwerken> van het betreffende veld op het subformulier. Dan krijg je iets als:

If Me.Veld.Value>100 Then
     Me.Parent.cmdProbleem.Visible=True
Else
     Me.Parent.cmdProbleem.Visible=False
End If

 

[jorennn]

Ok, alles werkt nu perfect!
Bedankt voor je hulp :thumb: