Originariamente inviato da lupoezechiele
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:
secondo me non ottieni quello ma solo testo33=casellacombinata25.value

Ok. Per me cmq tutto quel codice ke hai è un po incasinato e non ti serve se devi inserire un NUOVO record.

cmq per quello che ho capito io, ti codifico quello che ti avevo detto prima.

nella sub del bottone_click che usi per aggiungere il record ci scrivi questo tenendo conto che con cbo indico la casella combinata che contiene le tabelle magazzino tra cui scegliere e testo33,34,35 sono i relativi campi
codice:
'supponendo che sia gia aperta una connessione pubblica chiamata conn
dim rs as new adodb.recordset
dim sql as string="SELECT * FROM " &  cbo.text
rs.open sql,conn,3,3
rs.addnew
rs("campo33").value=testo33.text
rs("campo34").value=testo34.text
rs("campo35").value=testo33.text

rs.update
rs.close
rs=nothing

Spero di esserti stato utile!