Eenvoudig Form

[royvdh65]

Mensen,

a.d.h.v een eenvoudig form wil ik het principe kennen hoe je bij het invoeren van een waarde binnen een form, een uitvoer(recordset) krijgt middels een selectiequery en van deze uitvoer(recordset) een waarde van een kolom terug geeft in een textveld binnen het form.
Hierbij heb ik als voorbeeld gebruik gemaakt van een form met een invoervak waar men een waarde(factuurnr) in kan voeren, en op basis hiervan binnen de tabel(factuur) gaat zoeken naar het aantal orderregels van dat factuur. Dit aantal moet weergegeven worden in een tekstveld wat ik ook in het form heb staan. Dit is tot nu toe (mijn niet werkende) code:

Dim strSQL As String
Dim stDocName As String
Dim FactuurNr As Integer
Dim rst As Recordset
Dim dbs As Database


Set dbs = CurrentDb()
strSQL = "SELECT factuurnr, FROM factuur WHERE factuurnr = " & Me.[FactuurNr] & ""
Set rst = dbs.OpenRecordset(strSQL)

If " & Me.[FactuurNr]& " = factuurnr Then
AantalRegels.Value = rst!aantal
End if

 

[OctaFish]

Je zou het zo kunnen proberen:

strSQL = "SELECT factuurnr, FROM factuur WHERE factuurnr = " & Me.[FactuurNr] & ""
With CurrentDB.OpenRecordset(strSQL)
     If .RecordCount >0 Then
          Me.AantalRegels.Value = .RecordCount
     Else
          Me.AantalRegels.Value = 0
     End If
End With

 

[royvdh65]

"too few parameters. Expected 1" krijg ik als foutmelding. Wat houdt deze foutmelding precies in? Want ik heb deze melding al vaker voorbij zien komen.