Newsgroup: it.comp.appl.access
Titolo: VBA: problema con casella di riepilogo

Ciao a tutti,
ho il seguente problema:
ho una casella di riepilogo che ha come sorgente un campo numerico da 4
cifre, utilizzo una stringa testo per memorizzare i dati selezionati dalla
casella.
Avrei la necessità di poter prendere tutti i codici che appartengono alle
prime due cifre:
esempio se io seleziono 10 vorrei che la stringa prendesse tutti i codici
che iniziano per 10: 1001,1002,1003....
Le prime cifre le ottengo con int(numero/100)...
GRAZIE

 wrote in message
6p6M6.2552$0V5....@news2.tin.it...

_____
Se ho capito bene, hai come origine riga una tabella/query....
nel campo dell'origine riga come criterio inserisci:
Like Int([Forms]![Nome form]![Numero]/100) & "*"
e su Evento Uscita della casella di testo Numero, scrivi
Me.NomeCasellaRiepilogo.Requery
ciao Riccardo

 wrote in message
9dqqr3$bqg$1...@news.panservice.it...

Il mio problema è di dire con codice VBA che quando seleziono due qualsiasi
cifre dalla casella di riepilogo... il codice deve buttare in una stringa
tutti i codici che hanno in comune le prime due cifre.
ciao
grazie
sdamy

 wrote in message
Uf7M6.2655$0V5....@news2.tin.it...

____
Quando selezioni 2 qualsiasi cifre dalla casella di riepilogo?
Ma non si  puo' fare solo una selezione alla volta, o sbaglio?
ciao

 wrote in message
9dr959$fmp$1...@news.panservice.it...

forse stiamo andando fuori tema....
La casella conbinata permette di scegliere una sola scelta
La casella di riepilogo permette di fare la scelta multipla.
Il mio problema è però un'altro: io voglio selezionare una sola scelta però
voglio che il codice butti in una stringa
tutti i codici che hanno in comune le prime due cifre.
ciao ciao
sdamy

 wrote in message
Uf7M6.2655$0V5....@news2.tin.it...

_______
Se ho capito bene tu hai una casella di riepilogo con per esempio:
1001
1002
1003
1004
1005
1100
1101
.....
....
e facendo click su un codice, vuoi una stringa contenente tutti i codici che
iniziano
per i primi 2 numeri.
Se così, su click della casella di riepilogo, ti crei il codice per creare
una tabella
con quella selezione e poi aprendola, ti scandisci tutti i record e li
aggiungi alla stringa.
Se è così, fammi sapere che penso di poterti aiutare.
ciao
Riccardo

 wrote in message
9dralu$g59$1...@news.panservice.it...

YESSSS perfetto è quello che vorrei fare!
fammi sapere se puoi
ciao ciao
sdamy

Ho creato Una Tabella "Pippo" con il campo "Numero" contenente
i numeri indicati prima.
Un Form con una casella di riepilogo legata a quel campo ed ho scritto
il seguente codice che crea una nuova Tabella "Pippo1" filtrata
come serve a te, e poi con un ciclo viene creata la stringa.
Spero che vada bene cosě
----------------------------------------
Private Sub Riepilogo_Click()
Dim strText As String
Dim strSql As String
Dim rst As Recordset
Dim strStringa As String
    strText = Int(Me.Riepilogo / 100)
    strSql = "SELECT Pippo.Numero INTO Pippo1 " & _
            "FROM Pippo WHERE (((Pippo.Numero) Like """ & strText & "*""))"
    CurrentDb.Execute strSql, dbFailOnError
    Set rst = CurrentDb.OpenRecordset("Pippo1")
        Do While rst.EOF = False
            strStringa = strStringa & "," & rst!Numero  'E' lo stesso
NOMECAMPO della Tabella Origine
            rst.MoveNext
        Loop
        rst.Close
    strStringa = Right(strStringa, Len(strStringa) - 1)
    MsgBox "La Stringa č: " & strStringa, vbOKOnly
    DoCmd.DeleteObject acTable, "Pippo1"
End Sub
---------------------
ciao Riccardo

 wrote in message
9dreid$h5s$1...@news.panservice.it...

6 un genio... ora la provo la tua procedura!
grazie infinite
ciao ciao
sdamy