vraagje

[paul.jacobs]

Hallo
Hopelijk kan ik het duidelijk genoeg uitleggen

Ik heb een tabel met personeel met daarin de regel in dienst via een ja/nee
Nu wil ik een formulier maken waar ik kan zoeken op personeel dat wel of niet meer in dienst is.
Doe een simpel voorbeeld er bij.

Groeten Paul

 

[remcoof]

Zet bij het keuzevakje waar je de "zoekwaarde" aangeeft wel of niet in dienst de volgende code bij "bij klikken" / "on click":

Private Sub Selectievakje8_Click()
If Me.Selectievakje8 = True Then
Me.Form.RecordSource = "SELECT * FROM personeel WHERE [in dienst] = " & Me.Selectievakje8 & ""
Me.Form.Requery
Else
Me.Form.RecordSource = "personeel"
End If
End Sub

Dus bij het keuzevakje wat bovenaan je formulier staat.

Groeten,

Remco

 

[paul.jacobs]

Dank je wel! Maar het probleem is dat je in de kuizenlijst boven in het formulier alle namen nog ziet staan …
En niet de selectie.

 

[remcoof]

Voeg in de de query waarop je de keuzelijst op hebt gebaseerd het veld in dienst toe en geef dit ook aan in de opmaak, aantal kolommen = 3, kolombreedte = 0cm;2,54cm;0cm


Vervolgens pas dit stukje aan:

Private Sub Selectievakje8_Click()
If Me.Selectievakje8 = True Then
Me.Form.RecordSource = "SELECT * FROM personeel WHERE [in dienst] = " & Me.Selectievakje8 & ""
Me.Form.Requery
Else
Me.Form.RecordSource = "personeel"
End If
End Sub


In het volgende:

Private Sub Selectievakje8_Click()
If Me.Selectievakje8 = True Then
Me.Form.RecordSource = "SELECT * FROM personeel WHERE [in dienst] = " & Me.Selectievakje8 & ""
Me.Form.Requery
Me.[Keuzelijst met invoervak6].RowSource = "SELECT * FROM personeel WHERE [in dienst] = " & Me.Selectievakje8 & ""
Me.[Keuzelijst met invoervak6].Requery
Else
Me.Form.RecordSource = "personeel"
Me.[Keuzelijst met invoervak6].RowSource = "SELECT * FROM personeel"
Me.[Keuzelijst met invoervak6].Requery
End If
End Sub

Verder raad ik je aan om de namen van je velden in de tabel en op je formulier, zoals keuzelijsten, selectievakjes enz een duidelijk naam te geven. Het beste is om hier ook geen spatie in te laten.

Bijv. Keuzelijst met invoervak6 wordt kzLijstNaamPersoneel. (op het formulier)

Nog een voorbeeld: in dienst wordt In_dienst. (in de tabel)

Groeten,

Remco

 

[paul.jacobs]

Dank je voor de tip maar dat weet ik. Het is maar een voorbeeld om te laten zien wat ik wil.
Ik ga kijken of het werkt. Dank