Passare un record o selezione di record da casella di riepilogo a tabella in form

Bruno.62

unread,

Oct 16, 2015, 3:09:40 AM10/16/15

to

Access 2010.
Ciao al tutto il gruppo.
Ho trovato diversi esempi in rete ma non semba facciano al caso mio e
non sono riuscito neanche a cogliere la procedura.
Problema: Ho una form legata ad una tabella analisi (campo integer come
id voce) a sua volta legata ad un soggetto X.
Da casella di riepilogo con elenco di circa 70 analisi (campo integer
come id voce) vorrei portare/copiare/eliminare il record singolo o la
selezione nella tabella analisi, questo per avere tutte le voci a vista
con casella di riep e non dover scegliere macchinosamente da combo voce
per voce. Se ciò è fattibile poi posso sviluppare i report tranquillamente.
Potete aiuarmi
Grazie, Bruno

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus

Marco Pizzamiglio

unread,

Oct 22, 2015, 6:43:47 AM10/22/15

to

La casella di riepilogo supporta la selezione multipla. Con un ciclo puoi eseguire l'operazione selezionata (elimina, copia...) su tutte le voci selezionate.
Per ottimizzare il tutto, nel ciclo ti conviene creare solo il filtro:
WHERE (ID=xx Or ID=nn Or ...)
-oppure-
WHERE ID In(xx, nn, ....)
e poi eseguire un'unica query alla fine fuori dal ciclo.
Vedi sull'help <F1>: ListBox, Selected, ItemsSelected
Ciao.
-Marco-

Bruno.62

unread,

Oct 28, 2015, 4:27:23 AM10/28/15

to

^^^^^^^^^^^^^

Ciao Marco, grazie per la risposta e scusami per il ritardo nel
rispondere; ho avuto qualche problemino.
Ho cercato sia sull'help che in rete, ma in tutta sincerità non ho
capito tanto, o meglio, mi sembra che si possa recuperare l'elenco delle
item in una casella di testo. A me servirebbe passare il record singolo
o selezione di record da casella di riepilogo aalla tabella della form
aperta (maschere continue). Mi sembra di capire che le tue indicazioni
portino a questo, ma non saprei da dove iniziare senza un esempio; per
questo sto cercando disperatamente del codice di esempio in rete.
Chiaramente non voglio la pappa pronta, ma è tosta se non sai come
scrivere VBA. Grazie
Bruno.62

Marco Pizzamiglio

unread,

Oct 29, 2015, 5:32:52 AM10/29/15

to

Un esempio semplice:

If Lbox.ItemsSelected.Count > 0 Then
Filtro = ""
For i = 0 To Lbox.ListCount - 1
If Lbox.Selected(i) Then Filtro = Filtro & ", " & Lbox.Column(0, i)
Next
Filtro = " WHERE ID In (" & Mid$(Filtro, 3) & ")"
msgbox Filtro
End If

Poi usi il filtro in una query per copiare/eliminare i record.
Ciao.
-Marco-

Bruno.62

unread,

Oct 30, 2015, 5:26:21 AM10/30/15

to

[CUT]

> Un esempio semplice:
>
> If Lbox.ItemsSelected.Count > 0 Then
> Filtro = ""
> For i = 0 To Lbox.ListCount - 1
> If Lbox.Selected(i) Then Filtro = Filtro & ", " & Lbox.Column(0, i)
> Next
> Filtro = " WHERE ID In (" & Mid$(Filtro, 3) & ")"
> msgbox Filtro
> End If
>
> Poi usi il filtro in una query per copiare/eliminare i record.
> Ciao.
> -Marco-
>

^^^^^^^^^^^^

Ciao Marco, mille grazie per l'esempio e la pazienza.
Provo e poi posto il risultato, ma non sarà in giornata
perchè sono in pocchino incas......to ed ho i tempi stretti.
Ciao