Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
Ciao,
se i campo della tabella GL si chiama centro di costo, la casella di testo che hai nella maschera, associata al campo CdC, probabilmente si chiamerà centro_di_Costo se tu non gli hai dato un altro nome per cui:
Private Sub ConnettiTabella()
Dim con As Object
Dim rs As Object
Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")
rs.Open "Select [Centro di costo] AS CC FROM Fornitori Where Fornitore ='" & tendina.SelText & "'", con, 1
myVar = rs("CC")
MsgBox Prompt:=myVar
me.centro_di_Costo = myvar
End Sub
m invece di tutto questo accrocchio potevi semplicemnte fare:
Sub Tendina_Change()
me.centro_di_Costo=Dlookup("[Centro di costo]" , "Fornitori", "Fornitore='" & tendina.SelText & "'")
End Sub