Probleem met combo-box en tekst veld in access2000

[boeie99]

Hoi,

Ik probeer een licentie database op te zetten. De bedoeling van de interface is met behulp van 2 combo boxes, Ontwikkelaar en Product de resultaten te sorteren en vervolgens, nadat de 2e combo box is geselecteerd, de licentie gegevens en dergelijke in het tekstveld eronder komen.

Het probleem is met het tekstveld. Ik krijg de informatie van de licentiegegevens niet in het tekstveld.

De opbouw van de database bestaat uit 3 tabellen:

tblInformatie - kolommen:
informatieID
productID
informatie

tblOntwikkelaar - kolommen:
ontwikkelaarID
productID
ontwikkelaar

tblProduct - kolommen:
productID
ontwikkelaarID
informatieID
product

Dit is de vb code die ik aan de 2 combo box gekoppeld heb aan het After Update event:

Dim sSource As String

sSource = "SELECT [tblInformatie].[informatieID],[tblInformatie].[informatieID], [tblInformatie].[informatie] " & _
"FROM tblInformatie " & _
"WHERE [productID] = " & Me.cboProduct.Value
MsgBox (sSource)
Me.cbo.Text = sSource

Ik heb de database toegevoegd als bijlage. Hoop dat iemand mij hiermee verder kan helpen.

Alvast bedankt !

Gr

 

[Guus2005]

Ik kan nu je db ff niet ophalen. Dus ff uit de lucht.

Als je een keuze gemaakt heb in je combobox, kijk in je immediate window (control-g) en tik in:

?Me.cboProduct.Value

Als deze inderdaad een bestaande product id terug geeft dan lijkt me de query in orde. Zo niet dan moet je je bound kolom nummer veranderen tot deze goed is.

Succes