Newsgroup: it.comp.appl.access
Titolo: Trasferire un recordset in una casella di testo

Salve sono Fanciullo,
access 2002
Devo inserire in una casella di testo dei valori di più campi
ma un solo record estratti con il codice DAO.
Quindi il recordset è così:
campo1        campo2        campo3
Pane.             Segale.         Duro.
La casella di testo dovrà contenere
Pane. Segale. Duro.
devo formare una stringa concatenata e poi passarla
alla casella di testo??
Grazie per l'aiuto

 ha scritto nel messaggio 
news:EvYai.34461$%k.14...@twister2.libero.it...

Ciao  Fanciullo,
se il recordset è associato alla maschera, puoi mettere come origine dati 
della casella di testo :
=[Campo1] & " " & [campo2] & " " & [Campo3]
altrimenti
TuaTextBox.Text = rs.Fields("Campo1") & " " &  rs.Fields("Campo2") & " " 
rs.Fields("Campo3")
dove rs è il recordset DAO
-- 
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
----------------------------------------> 

 ha scritto nel messaggio
news:466c59cc$0$16027$5fc...@news.tiscali.it...

Grazie Cinzia,
vediamo se riesco a sfruttarti ancora visto che mi hai risposto............
ovviamente il recordset è fuori maschera quindi scelgo la opzione due,
ma non è finita il codice esatto è così:
Private Sub cmdINSERISCITUTTO_Click()
Dim strSQL As String
Dim strELENCO  As String
Select Case Forms![frmINSERISCIGIUDIZIO]![SOTTOMASCHERA]!csMATERIASEL
Case Is = "CUCINA"
Set rst = CurrentDb().OpenRecordset("SELECT * FROM tblLIVELLI WHERE
tblLIVELLI.LIVELLO = [frmINSERISCIGIUDIZIO]![SOTTOMASCHERA]!GruppoLivelli
and   tblLIVELLI.materia = [frmINSERISCIGIUDIZIO]![SOTTOMASCHERA]!csMATERIA
;")
' la istruzione select mi fa errore........mi aiuti a sistemare le
virgolette attorno ai riferimenti?
rst.MoveFirst
With rst
strELENCO = ![CT]
strELENCO = strELENCO & " " & ![CF]
strELENCO = strELENCO & " " & ![CRP]
strELENCO = strELENCO & " " & ![CTA]
strELENCO = strELENCO & " " & ![CPM]
strELENCO = strELENCO & " " & ![CSO]
End With
Me.csgiudizioSQscr = strELENCO
End Select
End Sub
grazie

 ;")
Set rst = CurrentDb().OpenRecordset("SELECT * FROM tblLIVELLI WHERE
 tblLIVELLI.LIVELLO =" & 
[frmINSERISCIGIUDIZIO]![SOTTOMASCHERA]!GruppoLivelli &
" and   tblLIVELLI.materia = '" 
[frmINSERISCIGIUDIZIO]![SOTTOMASCHERA]!csMATERIA & "';")
sempre che GruppoLivelli sia un numero e csMATERIA un text
-- 
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
----------------------------------------

Grazieeee, avanzi un cappuccino con tanta schiuma e una brioche a 45 gradi.


Io l'ho interpretata come una brioche calda, ho sbagliato? :-)


 Segrate (MI), 7-8 giugno 2007
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:f4j2nb$qji$1...@tdi.cu.mi.it...

Per Sergio e Cinzia
la brioche a 45 gradi è calda da morire.............di piacere gastronomico
ovviamente
ma dato che vi piace anche VBA, mi aiutate a capire sta cosa??
Private Sub csc8_AfterUpdate()
1)  Me.CSR.RowSource = "SELECT 
tbliscrizioni.as
 FROM tblISCRIZIONI WHERE
(((tblISCRIZIONI.idalunno)=[Forms]![frmCLASSIFREQUENTATE]!   [csc8]));"
2)  Me.CSR.RowSource = "SELECT tblIscrizioni.as FROM tblISCRIZIONI WHERE
tblISCRIZIONI.idalunno =[Forms]![frmCLASSIFREQUENTATE]![csc8];"
3)  Me.CSR.RowSource = "SELECT tblIscrizioni.as FROM tblISCRIZIONI WHERE
tblISCRIZIONI.idalunno = " & [Forms]! rmCLASSIFREQUENTATE]![csc8] & ";"
4)  Me.CSR.RowSource = "SELECT tblIscrizioni.as FROM tblISCRIZIONI WHERE
tblISCRIZIONI.idalunno = " & Me.csc8 & ";"
End Sub
Ho scoperto che le quasttro istruzione select danno lo stesso risultato
1) l'ho copiato direttamente dalla query in visualizzazione
SQL......funziona
2) Ho tolto le parentesi tonde............e funziona, deduco che sono
ridondanti???
3) Ho usato il metodo concatenamento tramite
"&............................."&    e funziona
4) Ho sostituito il percorso forms!......... con me.csc8  e funziona
Quale regola dovrei dedurre??? che si possono aggirare il concatenamento
classico usando le parentesi tonde e il percorso completo???
Ma ora viene la botta
esempio iniziale
 Set rst = CurrentDb().OpenRecordset("SELECT * FROM tblLIVELLI WHERE
(((tblLIVELLI.materia)=Forms!frmINSERISCIGIUDIZIO!SOTTOMASCHERA!csMATERIA)
And
((tblLIVELLI.livello)=Forms!frmINSERISCIGIUDIZIO!SOTTOMASCHERA!GruppoLivelli
));
Ho applicato la regola che al punto 1) ma non funziona.....msgbox: errore
3061 parametri insuf. previsto 2
Grazie

 Grazie
Ciao.
-- 
Sergio MAZZA 

 Grazie alla prossima brioche