sql update

[ciromorra]

Chiedo Scusa, qulcuno potrebbe indicarmi perche mi fa l'imput di Prodotti.CodiceArticolo?
per me dovrebbe ricavarlo da qua: AND ((Prodotti.CodiceArticolo)='" & Cod & "'))"

il codice e questo:
Dim rs As DAO.Recordset
Dim strR As String
Dim Cod As String
Set rs = Nothing
Set rs = Me.RecordsetClone
Cod = Me.rice2.Text
rs.FindFirst "CodiceArticolo like """ & Me!rice2.Text & "*"""
Me.Bookmark = rs.Bookmark

If rs.NoMatch Or rs.BOF Then

MsgBox " non trovata "
Me!rice2.SetFocus

GoTo pippo

Else


sql = "SELECT DISTINCT * FROM Prodotti WHERE (Prodotti.CodiceArticolo='" & Cod & "');"

sql = " UPDATE dettaglio SET dettaglio.Quantita = dettaglio.Quantita+1 WHERE (((dettaglio.CodiceArticolo)='" & Cod & "') AND ((Prodotti.CodiceArticolo)='" & Cod & "'))"

DoCmd.RunSQL (sql)
Me.Refresh
Me.rice2.SetFocus

End If


pippo:


Me!rice2.SetFocus
Set rs = Nothing
Me!rice2 = ""
Me!rice2.SelStart = 255