Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
SELECT Bron.BronID, Bron, Count(GemaaktID) AS AantalGemaakt FROM Bron LEFT JOIN Gemaakt ON Bron.BronID = Gemaakt.BronID GROUP BY Bron.BronID, Bron;
plan A
1) het formulier in de ontwerpweergave geopend.
2) het originele veld gekopieerd en geplakt in formulierkoptekst.
Dit werkt voor geen meter
Private Sub cboFilteren_Click()
With Me
If Not .cboFilteren.Value = "" Then
.Filter = "[[COLOR=#ff0000]BronID[/COLOR]] = " & Me.cboFilteren.Value
.FilterOn = True
Else
.Filter = ""
.FilterOn = False
End If
End With
Me.Repaint
End Sub
Private Sub cboFilteren_Click()
With Me
If Not .cboFilteren.Value = "" Then
.Filter = "[BronID] = " & Me.cboFilteren.Value
.FilterOn = True
Else
.Filter = ""
.FilterOn = False
End If
End With
Me.Repaint
End Sub
Private Sub Keuzelijst59_Click()
With Me
If Not .cboFilteren.Value = "" Then
.Filter = "[BronID] = " & Me.cboFilteren.Value
.FilterOn = True
Else
.Filter = ""
.FilterOn = False
End If
End With
Me.Repaint
End Sub
Private Sub cboFilteren_Click()
With Me
If Not .cboFilteren.Value = "" Then
.Filter = "[BronID] = " & Me.cboFilteren.Value
.FilterOn = True
Else
.Filter = ""
.FilterOn = False
End If
End With
Me.Repaint
End Sub
Private Sub [COLOR=#ff0000][B]Keuzelijst59[/B][/COLOR]_Click()
With Me
If Not .cboFilteren.Value = "" Then
.Filter = "[BronID] = " & [COLOR=#ff0000][B]Me.cboFilteren[/B][/COLOR].Value
.FilterOn = True
Else
.Filter = ""
.FilterOn = False
End If
End With
Me.Repaint
End Sub
Private Sub [COLOR=#0000ff][B]Keuzelijst59[/B][/COLOR]_Click()
With Me
If Not .cboFilteren.Value = "" Then
.Filter = "[BronID] = " & [COLOR=#0000ff][B]Me.Keuzelijst59[/B][/COLOR].Value
.FilterOn = True
Else
.Filter = ""
.FilterOn = False
End If
End With
Me.Repaint
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.