Newsgroup: it.comp.appl.access
Titolo: Combo Box

Ciao a tutti,
ho un problemino. Ho una tabella con una colonna di dati. Sono riuscito a 
far conparire questi dati in un combo box (maschera)  ma vorrei invece che 
questi comparissero in un campo testo (maschera) uno vicino all'altro magari 
con virgola di distacco.
 es. (combo box)
pippo
franco
giovanni
testo:
pippo, franco, giovanni
Ciao a tutti e grazie
 


dim rst as dao.recordset
set rst = currentdb.openrecordset("nometabella")
me.textbox = null
rst.movefirst
do until rst.eof
  me.textbox = me.textbox & rst!nomecampo
  rst.movenext
  if not rst.eof then me.textbox & ", "
loop
rst.close
set rst = nothing
dove me.textbox è il controllo textbox dove vuoi far apparire "pippo,
pinocchio, topolino, ecc."
Ciao
AleC

 wrote in message 
news:a739acfc-f2c5-4853...@w1g2000prk.googlegroups.com...



Ciao
AleC
Adessi ci provo e grazie per l'input. Dan 

 wrote in message

Una riga è sbagliata:
if not rst.eof then me.textbox & ", "   -> sbagliata
if not rst.eof then me.textbox = me.textbox  & ", " -> giusta

 wrote in message 
news:a323898a-a7f1-4156...@c2g2000pra.googlegroups.com...


Grazie per la tua email.
Allora ho provato e funziona però mi mancherebbe il Where.... o meglio nella 
textbox devono comparire si i nomi della tabella ma però solo alcuni.
Ho tentato di risolvere l'enigma....ma con scarso risultato. Qualche idea 
come si faccia....????
Sono un disastro................
Ciao Dan

 - Mostra testo citato -
nella riga:
set rst = currentdb.openrecordset("nometabella")
a nometabella sostituisci la stringa Sql
"select campo1, campo2, ... from tabella where campo1 = 'qualcosa' and/
or campo2 = 123;"
se hai difficoltàa scrivere la stringa Sql prepara una query che
estragga i dati che desideri e poi dalla visualizzazione SQL della
query stessa fai un copia e incolla.
Ciao
AleC

 wrote in message 
news:912b8a6f-ae6c-4f8b...@1g2000prd.googlegroups.com...


Ciao
AleC
Sei un mago.
Sono a casa ammalato ma dopodomani ci provo.
Un saluto Dan 

 wrote in message 
news:4921cbbf$1...@news.bluewin.ch...

Ciao sono nuovamente tornato....dopo una disastrosa influenza mi sono 
cervellato sui tuoi consigli.
Ho eseguito quanto mi hai indicato e continua a dirmi: Parametri 
insufficienti: Previsti 2.
Non capisco...ho provato di tutto ma non ci riesco.
Il testo è il seguente:
Private Sub Text387_Click()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT DispOperatori.Operatore, 
DispOperatori.DataDisp, Month([MeseDisp]) FROM DispOperatori WHERE 
(((DispOperatori.DataDisp)=[forms]![prenotazioni]![dataprenotaz])) OR 
(((Month([MeseDisp]))=[forms]![prenotazioni]![mese]));")
Me.Text387 = Null
rst.MoveFirst
Do Until rst.EOF
Me.Text387 = Me.Text387 & rst!Operatore
rst.MoveNext
If Not rst.EOF Then Me.Text387 = Me.Text387 & ", "
Loop
rst.Close
Set rst = Nothing
End Sub
Non capisco l'errore.
Qualche consiglio?
Un saluto e grazie ancora per qualsiasi aiuto che mi avete e vorrete ancora 
dare...
Dan


 - Mostra testo citato -
I due controlli che usi per filtrare i dati nella clausola WHERE sono
valorizzati o sono Null ?
Usa la funzione Nz() (vedi help) per fare in modo che alla istruzione
Sql sia evitato di passare un confronto che al netto della espressione
valga "Campo = Null".
con Nz puoi decidere cosa passare nel caso che il valore del controllo
sia Null
es: Nz(Controllo, 0) trasforma in 0 il valore di Controllo se questo è
Null.
Ciao
AleC