Verwendung von Access' OpenRecordset um einen Datensatz über die entsprechende numerische Taste Feld?

Ich habe ein problem in Access 2010 VBA zu Lesen versucht, einen Datensatz aus der Tabelle schreiben in die Textfelder.

Meine Tabelle "Produkte" und seine ProductID Feld numerisch ist. Ich habe diese Methode vor, aber es funktioniert für text-Felder, nicht für numerische Felder (ProductID ist AutoWert).

Private Sub GetProduct(ID As TextBox, Name As TextBox, Price As TextBox)
    If ID <> "" Then
        Set db = CurrentDb
        Set rs = db.OpenRecordset("Productos", dbOpenDynaset)

        'PROBLEM IS HERE
        rs.FindFirst "ProductID=" & "'" & ID & "'"

        If rs.NoMatch Then
            MsgBox "The producto doesn't exist."
            Price = ""
            Name = ""
        Else
            Name = rs!ProductName
            Price = rs!Price
        End If

        rs.Close
        Set rs = Nothing
        Set db = Nothing
    End If
End Sub

Bitte helfen Sie mir. Dies ist für eine Abschließende Proyect und ich weiß nicht, andere, aber diese Methode. Bitte helfen Sie mir.

InformationsquelleAutor Josell | 2013-04-07
Schreibe einen Kommentar