[VBA/ACCESS] Importare dati da una casella di riepilogo

[[_Kilckk_]]

Ciao a tutti io uso questo codice per richiamare dei dati:

Private Sub txtRicerca_Change()
Dim strR As String
Dim strSQL As String
strR = Me!txtricerca.Text
If Not IsNull(Me!txtricerca.Text) Then
    strSQL = "SELECT scheda " & _
    "FROM [Archivio nominativi] " & _
    "WHERE (Nominativi Like " & Chr$(34) & "*" & _
    strR & "*" & Chr$(34) & ");"
    Me!ElencoNominativi.RowSource = strSQL
    Me!ElencoNominativi.Requery
    Me!txtricerca = strR
    Me!txtricerca.SetFocus
    Me!txtricerca.SelStart = 255
End If
End Sub

Ora questi dati vanno a finire in una casella di riepilogo... volevo sapere se era possibile spostare questo dato in una casella di testo o direttamente in una tabella

Grazie per il vostro aiuto.

[MdE2005]

Con questo codice però non vengono da nessuna parte;comunque hai detto che riesci a fare andare i dati nella combobox: allora indirizzali nella textbox..

[[_Kilckk_]]

come dici tu sono costretto a cliccare sulla combobox... io volevo rendere il tutto in modo automatico ho provato anche questo codice ma non funziona:

combox = textbox

con due textbox funziona alla grande ma con la combobox non vuole proprio andare.


Grazie per il vostro aiuto.

[MdE2005]

Magari hai provato:

text1.text = combo1.text

per mettere in text1 il contenuto di combo1..

Non ho capito cosa vuoi fare di automatico, scusa..

ciao

[[_Kilckk_]]

vorrei fare l'inverso di questo:

combo1.text = text1.text

ma nn funziona.


Grazie per il tuo aiuto.

[MdE2005]

E' normale che non funzioni. Il controllo "combobox" come quello "listbox" può contenere più di un elemento, a differenza di una "textbox" (anche se ha la proprietà multiline = true): per questo motivo deve essere popolato e scrivere combo1.text = "ciao" significa scrivere nella label del combo "ciao" ma non aggiungere questa voce all'elenco.
Ti posto un esempio:

Private Sub Form_Load()
Dim matr() As Variant
For i = 1 To 5
    ReDim Preserve matr(i)
    matr(i) = i * 2
Next i 'con il codice soprastante creo una matrice di numeri
'questo però non ti interessa per il tuo programma, serve per
'farti vedere l'effetto..

For i = 0 To UBound(matr)
    Combo1.AddItem i
Next i 'ho aggiunto i numeri alla combobox
End Sub

Ciao

[[_Kilckk_]]

Ho visto nel codice che bisogna specificare la linea dove scrivere il numero:

Combo1.AddItem i


nn c'è un modo di prendere solamente la linea numero 1 e mandarla in una textbox, ho fatto vari ventativi con alcuni comandi che suggerisce access in automatico ma non funziona, ho provato anche text1= combo1.selected(1) pensando che selezionava solamente la prima riga ma nulla

[MdE2005]

Non importa specificare la riga: per copiare il primo elemento della combobox combo1 nella casella di testo text1 basta fare così:

Text1.Text = Combo1.List(0)

forse ti ho fatto fare confusione io..scusa..

ciao

[[_Kilckk_]]

non funziona dice "impossibile trovare il metodo o il membro dei dati"

scusami tanto se ti disturbo...

[MdE2005]

Ho fatto una prova io (anche se non avevo dubbi..): il codice funziona: prova a ricontrollare i nomi dei diversi oggetti e che il comboq sia popolato..

ciao