aggiungere un suffisso

Question

ciao a tutti.

in una maschera "fornitori" ho una casella combinata cbo1.

Selezionando il contenuto della cbo1 apro una seconda maschera chiamata "miamaschera" dalla quale seleziono

un valore che andrà a popolare una casella di testo [nome cliente] nella maschera "fornitori"

codice:

Private Sub [cbo1]_AfterUpdate()

 Dim stDocName As String

 Dim stLinkCriteria As String

 stDocName = "miaMaschera"

 stLinkCriteria = "[id cod]=" & Me![id cod] & " AND [name]=" & Me![name] & ""

 DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Funziona tutto correttamente, infatti nella casella di testo [nome cliente] viene riportato il valore selezionato dalla "miamaschera".

Quello che non riesco ad inserire nel codice è un prefisso del tipo: " da spedire a" &""& [nome cliente]

ho provato in tutte le maniere ma non riesco a inserirlo correttamente.

ciao e ancora grazie.

Answer 1

Ciao,

qui il tuo file: PROVA1scelta_fornitore.accdb

ho tolto l'origine record della maschera addebitoINSERIMENTOfornitori perchè non serve ed essendo in comune con l'origine record della maschera giornaliera3xbis va in conflitto con le modifiche in corso.

poi per inserire il prefisso ho modificato l'evento dopo aggiornamento della casella combinata addebitoFORNITORE in questo modo

Private Sub addebitoFORNITORE_AfterUpdate()

Dim x As String

x = Form_addebitoINSERIMENTOfornitore.addebitoFORNITORE

Form_giornaliera3xbis![addebitoFORNITORE] = " da spedire a " & x

End Sub

Ciao

Giorgio Rancati

Answer 2

ciao Giorgio

scusa il ritardo ma ho avuto degli inconvenienti....

ho inserito la msgbox ed il risultato è un maschera popup che riporta "da spedire a", ma

la casella che dovrebbe essere popolato [nome cliente] rimane invariata.

dovrebbe essere:  "da spedire a"& [nome cliente]

ciao.

Answer 3

Ciao

come hai fattoa verificare che nella variabile ci sia il solo nome cliente ?

prova a mettere una msgbox per vedere il contenuto della variabile

Dim NomeVariabile as String

NomeVariabile = " da spedire a " & Forms(stDocName).Controls("Nome Cliente").Value

MsgBox NomeVariabile

Ciao

Giorgio Rancati

Answer 4

ciao Giorgio

ho provato ma mi resituisce solo il campo [nome cliente] senza aggiungere il prefisso.

prima di postare la risposta credimi ho provato e riprovato...non so.

Answer 5

Caio cristalpass,

per inserire nel tuo codice VBA una variabile contenente " da spedire a" & [nome cliente] , dopo aver aperto la maschera con OpenForm inserisci queste righei:

Dim NomeVariabile as String

NomeVariabile = " da spedire a" & Forms(stDocName).Controls("Nome Cliente").Value

Ciao

Giorgio Rancati