popolare automaticamente un campo

Anonimo

Ho creato un Db

Ho creato 3 tabelle ;

1 - Fornitori (Fornitore, Città, Centro di Costo )

2 - GL (Fornitore, Data Fattura, Centro di Costo , Importo)

Ho fatto una Query che hg collegato le tabelle tramite il campo Fornitore.

Nella tabella GL:

Ho collegato il campo Fornitore in modo che sia swlwzionabile dalla tabella Fornitori tramite una finestra a tendina ; fin qui tutto bene.

Vorrei che selezionando il Fornitore che mi serve venisse popolato automaticamente il campo Centro di Costo associato .

Come si fa??

Grazie

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

Risposta accettata dall'autore della domanda

Anonimo

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

0 commenti

33 risposte aggiuntive

Anonimo

2012-08-02T10:51:17+00:00

Si infatti avevo già corretto

grazie ora funziona benissimo
La risposta è stata utile?

0 commenti Nessun commento