Pagina 1 van 1
Gestart door Bericht
gebruiker

Berichten: 4

BerichtGeplaatst: 31 aug 2005 14:30  Reageer met quote
Hallo iedereen,
ik wil dmv een keuzelijst op een formulier een database bevragen. Hiervoor heb ik de volgende werkwijze gevolgd:

1) een keuzelijst (gebaseerd op een tabel) geplaatst op een leeg formulier

2) een parameterquery gemaakt waarbij de geselecteerde waarde uit de
keuzelijst dienst doet als parameter

3) een subformulier gemaakt op basis van de query van stap 2

4) het subformulier geplaatst op het eerste formulier

Dit werkt prima maar ik heb nog één probleem. Ik zou willen dat de gebruiker alle records kan zien door een keuze te maken uit de keuzelijst. Hoe doe ik dit?


Kan er iemand helpen?

mvg

Dirk
Naar boven
Bekijk gebruikers profiel Stuur privébericht Verstuur mail
gebruiker

Berichten: 163

BerichtGeplaatst: 01 sep 2005 16:39  Reageer met quote
Beste Dirk

Voor zoiets gebruik ik geen parameterquery
ttz.. voor het opvullen van de keuzelijst (in dit voorbeeld NaamKeuzelijst genoemd) zou je ik bv
als Rijbron invoeren

SELECT DISTINCT tblTabelNaam.VeldnaamKeuze FROM tblTabelNaam;

Waarbij
- tblTabelNaam je tabel is waar het veld in staat
- Distinct zorgt ervoor dat dubbele waarden niet worden weergegeven
- tblTabelNaam.VeldnaamKeuze is het veld waaruit je de waarde wil selecteren

Voor de gebeurtenis 'Na bijwerken'
Selecteer het veld/Eigenschappen/gebeurtenissen/Na bijwerken
tik je de code :

Private Sub NaamKeuzelijst_AfterUpdate()
Dim sFilter as String

sFilter = Me.NaamKeuzelijst.Text

if (sFilter <> '') then
DoCmd.ApplyFilter , "VeldnaamKeuze = '" & sFilter & "'"
else
DoCmd.ApplyFilter , "VeldnaamKeuze <>''"
endif


End Sub

Dit zal de gegevens filteren en bij een lege keuzelijst 'alle' records tonen...als je het veld verlaat

Als t niet lukt... mail me database eens door

mvg
dizzl
Naar boven
Bekijk gebruikers profiel Stuur privébericht Verstuur mail
gebruiker

Berichten: 163

BerichtGeplaatst: 01 sep 2005 19:44  Reageer met quote
k vond dat niet zo mooi die ELSE vandaar even gegoogeld en 'dit' gevonden

ipv
DoCmd.ApplyFilter , "Klas <> ''"

kan je schrijven
DoCmd.ShowAllRecords
Naar boven
Bekijk gebruikers profiel Stuur privébericht Verstuur mail
Berichten van afgelopen:   
 



   
Ga naar:  


Webmasters :: Het forumteam
Webprogrammatie :: David Cumps, Dieter Provoost, Dennis Vermaut en Bart Gardin
Disclaimer | Webhosting :: Nucleus
Copyright © 2004-2014

Powered by phpBB