popolare automaticamente un campo

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