NAVIGATIE

Freetime overzicht
Zoeken


  RUBRIEKEN

FAQ / Help
Wat mag niet?
WZL Wedstrijden
WZL Chat
WZL Toolbar
WZL Statistieken
WZL leden
WZL shop
E-cards

RSS

Fun-feed
Babe-feed
Stud-feed

Een groot aantal pokerrooms geven de mogelijkheid om poker te spelen op internet en geld te storten via het veilige iDeal betaalsysteem.
Overzicht » Computer » Programmeren » [VBA] Subformulier in Access
Onderaan pagina
Menace 3.134
wzl-lid
Sinds 2/12/2004
T: 37 R: 140
29/8/2005 - 4:09u | Quote
Weet er iemand hoe je gegevens van een subformulier afhankelijk kan maken?.. ik weet het, het is nogal vaag men vraag. De prt screen zal miss duidelijkheid brengen...

http://www.fileshare.be/img.php?yr=05&img=Klantgegevens.png
Bron: © http://www.fileshare.be/img.php?yr=05&img=Klantgegevens.png

ik wil dus, dat als je vanboven een naam selecteerd, dat enkel zijn aankopen in het subformulier worden getoond. tot nu toe geeft hij alle aankopen weer..
ik heb het al geprobeert op volgende manier:

dim rstKlant as New ADODB.recordset
dim strSQL as string
strSQL = "SELECT tblVerkoopGeschiedenis.Product, tblVerkoopGeschiedenis.Aantal, " & _
"tblVerkoopGeschiedenis.Bedrag, tblVerkoopGeschiedenis.Datum FROM tblVerkoopGeschiedenis " & _
"WHERE tblVerkoopGeschiedenis.KlantID = '" & Me!cboNaam & "'"
rstKlant.ActiveConnection = CurrentProject.Connection
rstKlant.CursorType = adOpenKeyset
rstKlant.Open strSQL

If rstKlant.RecordCount <> 0 Then
Do While Not rstKlant.EOF
Me.Koopgeschiedenis.Form.txtProduct = rstKlant!Product
Me.Koopgeschiedenis.Form.txtAantal = rstKlant!Aantal
Me.Koopgeschiedenis.Form.txtBedrag = rstKlant!Bedrag
Me.Koopgeschiedenis.Form.txtDatum = rstKlant!Datum
rstKlant.MoveNext
Loop
Else
Me.Koopgeschiedenis.Form.txtProduct = ""
Me.Koopgeschiedenis.Form.txtAantal = ""
Me.Koopgeschiedenis.Form.txtBedrag = ""
Me.Koopgeschiedenis.Form.txtDatum = ""
End If
rstKlant.Close


Maar vanaf dat er dan meer dan 1 aankoop was gaf hij enkel één aankoop weer.. maar dan meerdere malen.

Ik hoop dat er iemand kan helpen want ik heb nog nooit geprogrammeerd met subformulieren

Dank bij voorbaat
WishMaster
[mod] 666
Sinds 26/2/2003
T:99 - R:2018
29/8/2005 - 10:12u | Quote
gaat da nie met ne query?
Menace 3.134
wzl-lid
Sinds 2/12/2004
T:37 - R:140
29/8/2005 - 16:09u | Quote
good idea
kebbet mee query gedaan en azo wa zitten prutsen en het is uiteindelijk gelukt
Tnx
 
Bovenaan pagina