casella combinata- Valore predefinito

Question

Buongiorno a tutti, vorrei impostare in una casella combinata il valore presente in un altro campo nella maschera (l'ideale sarebbe prendere il valore da un'altra tabella).

Ho una Form dove immetto i dati di creazione fattura, all'immissione del cliente (che è in una casella combinata) vorrei che nella casella combinata del pagamento comparisse per default il pagamento abbinatogli solitamente , ovviamente modificabile, per questo pensavo di utilizzare il valore predefinito.

Poniamo la tabella clienti con i campi in cui il cliente Pippo ha abbinato il pagamento 1 e la tabella Fatture con i campi

N° Fattura

Società

Tipopagamento

Nella maschera di creazione fattura immetto il n° di fattura , la Società, in questo caso Pippo  e vorrei che nel tipo pagamento comparisse 1 come predefinito.

Ho aggiunto alla query origine maschera il  campo abbinato al pagamento cliente e l'ho impostato come origine riga ad una una casella di testo chiamata ID_ModPAg , se provo a dare ad un'altra casella di testo il valore predefinito =[ID_ModPag] funziona correttamente ma la stessa cosa sulla casella di riepilogo non funziona.

Onde evitare voli pindarici per una cosa che forse ha una semplice soluzione chiedo il vostro aiuto.

Grazie

p.s Se fosse possibile abbinare il valore del pagamento abbinato al cliente il giro che ho fatto io ma puntando direttamente alla tabella cliente sarebbe l'ideale.

Grazie ancora a tutti

Answer 1

Svelato l'arcano.

Guarda bene i nomi dei campi nella tabella T_CliFor :-)

=DLookUp("ID_ModPag";"T_CliFor";"IDCliFor=" & [CBOCliente])          ' errata

=DLookUp("IDModPag";"T_CliFor";"ID_CliFor = " & [CBOCliente])      ' corretta

Ciao Mimmo

Answer 2

Grazie per la risposta, avevo provato anche io così, ma non mi funziona, facilmente mi sta sfuggendo qualcosa.

Ho anche pensato al fatto che il valore di default non potesse essere impostato perché il record è già aperto, ma visto che il campo testo invece funziona correttamente deve essere la CBO che mi da problemi.

Dopo la tua risposta ho riprovato ed attualmente la situazione è questa.

Private Sub CBOCliente_Change()

Me.Tipodipagamentofatt.DefaultValue = Me.ID_ModPag.Value

End Sub

Dove CBOCliente è la combo di scelta del cliente

ID_ModPAg è una casella di testo nella maschera che riporta la modalità di pagamento attribuita al cliente

Testo37 che è una normale casella di testo con impostato il valore predefinito =[ID_ModPag] che mi serve per controllare che effettivamente la procedura funzioni e che poi eliminerò quando, come spero, la cbo funzionerà a dovere, attualmente funziona correttamente e mi dà il valore che desidero

Su nuovo record mi da il messaggio di errore

Utilizzo non valido di Null, , suppongo perché il campo ID_ModPAg non è ancora stato "scritto"

Grazie ancora

Answer 3

mi correggo l'evento ovviamente non è Forl_Load ma il Change del cliente!

Answer 4

Ciao Domenico

se ho ben capito un primo problema lo risolveresti con :

Private Sub Form_Load()

cboModPag.DefaultValue = xxxxxxx

End Sub

dove xxxx potrebbe essere un campo di maschera ma anche una dLookUp per prelevare un valore su di una tabella opportunamente condizionata.

La stessa dLookUp mi sembra di capire ti può servire per l'eventuale decodifica della modalità di pagamento.

fammi sapere

Mimmo  o se preferisci Domenico :-)