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-07-31T14:18:44+00:00

Ma se Access non fa almeno quello da me proposto a che serve?

Secondo me manca una macro da associare a qualche evento cmq.

Meglio lasciar perdere

Ciao

Giuseppe
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2012-07-31T14:17:27+00:00

potresti utilizzare la funzione DLookup con il seguente formato nella cella centro di costo

=DLookup("Centro di costo";"Fornitore";"Fornitore = " '" & Fornitore & "'")

forse ti è sufficiente.

Mimmo
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2012-07-31T14:00:52+00:00

In un'altro post ho ragionato come te e li ho provati entrambi ma con risultato negativo perciò stavolta ho 'soprasseduto' certo è dura dare spiegazione a' chiacchiere'.

Ciao
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2012-07-31T14:00:46+00:00

o è che sono al lavoro e sono bannati.

Cmq secondo em mi sono spiegato male.

Dunque

obiettivo: automatizzare la registrazione di una fattura passiva con MSAccess

Tabelle in gioco:2

tabella fornitori:

Fornitore

Centro di Costo

Città

Tabella GL:

Data Fattura

Fornitore

Descrizione

Centro di costo

Importo

tralascio i data type perchè ovvi.

in Action:

L'utente registra nella tabella GL

inizia inserendo la data fattura nella cella poi nella cella Fornitore compare una tendina che mi permette di selezionare il fornitore e qui, in AUTOMATICO, la cella

del Centro di costo si popola del corretto Centro di costo associato al fornitore.--

l'utente finisce di compilare i campi...

Quindi il tutto avviene nella GL collegata logicamente alla Fornitori

Giuseppe
La risposta è stata utile?

0 commenti Nessun commento