[access] waarde uit DB in label

[Crazy-]

code:

    strSQL = "SELECT tblAbo.id, tblAbo.info FROM [tblAbo] WHERE [tblAbo].[id]) = '" & Me![cboAbo] & "'"
    Set rst = New ADODB.Recordset
    rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Me.lblAboInfoToestel.Value = rst![info].Value

Fout -214727913 (80040e07) tijdens uitvoering:

Gegevenstypen komen niet overeen in criteriumexpressie.

We proberen een waarde uit een database te halen in VBA en deze waarde moet gekoppeld worden aan een label.

Na veel zoeken op google, got etc niets .... iemand?

[stelling]

Je moet van het label niet de value, maar de caption vullen, dus:
Me.lblAboInfoToestel.Caption = rst![info].Value

[Crazy-]

spijtig, maar dat werkt niet

de error zit hem in regel 3.

[Verwijderd]

Crazy- schreef op donderdag 09 maart 2006 @ 17:45:
spijtig, maar dat werkt niet

de error zit hem in regel 3.

Geen idee, maar je kan ook dlookup gebruiken. Kan je de eerste drie regels in een regel code kwijt.

[stelling]

Ok, dan heb ik de vraag of id wel tekst is? Want normaal gesproken is dat een nummer. Als dat zo is moet je regel 1 wijzigen in:
strSQL = "SELECT tblAbo.id, tblAbo.info FROM [tblAbo] WHERE [tblAbo].[id]) = " & Me![cboAbo].Value

[ Voor 7% gewijzigd door stelling op 09-03-2006 17:55 ]