nessun problema
una volta cliccato sulla list box e richiamando il valore della listbox ti accorgerai ke per default è quello selezionato
quindi
nel pulsante basterà scrivere (clicca su clic evento, poi ricordati di andare su riferimneti ed aggiungere DAO)
codice:
Set dB = CurrentDb
SQL = "select * from Tabella where Numero like '" & Me.Lista & "'"
Set tabella = CurrentDb.OpenRecordset(SQL)
if not Tabella.oef then
tabella.Delete
end if
Me.Lista.Requery 'riaggiorna la lista se la query l'hai impostata nelle proprietà altrimenti devi fare una impostazione di datasource
se hai l'explicit in alto al modulo puoi o commentarla (n si fa mai oppure devi dichiarare le var ke hai usato nel pulsante, Dim Db as database dim Tabella as recordset)