no io intendevo il codice, sono solo uno smanettone
quindi leggendo quel che mi hai detto non cio' capito nulla!

io arrivo in un punto dove ho :
____________________________________________
Private Sub CasellaCombinata25_AfterUpdate()
' Trova il record corrispondente al controllo
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[prodotto] = '" & Me![CasellaCombinata25] & "'"
Me.Bookmark = rs.Bookmark
Testo33 = CasellaCombinata25.Value
End Sub
____________________________________________

(La semplicità del codice rende l'idea della mia ignoranza)

con il codice sopra ottengo :
Testo33 = CasellaCombinata25.Value
Testo34 = CasellaCombinata25.Value
Testo35 = CasellaCombinata25.Value

ora dovrei inviare quel il valore di Testo33,34,35 ad un nuovo record della tabella x rispettivamente nel campo prodotto,quantità,fornitore.


:master: