Newsgroup: it.comp.appl.access
Titolo: Finestra messaggio NotInList

Ho una combo, attivo la proprietà "non in elenco",
Access (quando il codice che cerco non esiste)
mi apre una Finestra Messaggio che il testo immesso non è
presente in elenco ecc......, non è possibile disabilitare tale finestra?
Io vorrei far partire una macro che mi visualizza un finestra messaggio
con un mio testo.
Il fatto è che la mia finestra appare ma quando clicco su ok
si apre quella standard di Access che ritorna fuori ad ogni invio finchè
non si cancella tutto il testo all'interno della combo.
La combo rimane aperta e bisogna cliccare per forza da qualche altra
parte o premere esc.
Io vorrei fare in modo che al momento della digitazione mi completi il testo
con i codici presenti in elenco (fin qui tutto OK) se ne digito uno che non
c'è, alla pressione del tasto invio mi apra la mia finestrina e mi
dica "no bello quello che cerchi nun ce stà".
Tutto quà penso non sia complicato ma Access si complica la vita da solo !!!
Grazie a tutti
Bix

 Tutto quą penso non sia complicato ma Access si complica la vita da solo
!!!
Devi essere tu a dirgli cosa deve o non deve fare, ma se non lo fai lui
segue il suo programma predefinito.
Sib

 Sib
Grazie
Bix (complimenti per la tempestività) :-)

 response (vedi help per maggiori dettagli).
Ho provato ma nell'help non me la trova!!
Come faccio a dirgli che voglio la mia finestrina messaggio e che premendo
su ok mi deve ripulire la combo [svuotare (valore nullo)] dal codice errato
e non me la deve aprire (srotolare)!!! praticamente come quando entro nella
mask appena avviato il mio DB.
Ciao grazie
Bix

 ha scritto nel messaggio
news:abetf0$ulg$1...@lacerta.tiscalinet.it...

Se la casella combinata si chiama CasellaCombinata, a fronte del suo evento
"Su non in elenco" genera il seguente codice VBA:
Private Sub CasellaCombinata_NotInList(NewData As String, Response As
Integer)
MsgBox "No bello, " & NewData & _
" in elenco nun ce stà"
Me!CasellaCombinata.Text = ""
Response = acDataErrContinue
SendKeys "{F4}"
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Ho provato ma nell'help non me la trova!!
Non ci credo neanche se lo vedo.
Anzi ora apro l'help e scrivo solo Response:
...
La sesta dell'elenco che l'help tira fuori si chiama:
Evento NonInElenco: esempio di funzione
Cliccandoci sopra esce:
++++++++++++++++++++++++
Nell'esempio riportato di seguito si utilizza l'evento NonInElenco per
aggiungere una voce a una casella combinata.
Per provare l'esempio, creare in una maschera una casella combinata chiamata
Colori. Impostare a Sģ la proprietą SoloInElenco della casella combinata.
Per riempire la casella combinata, impostarne la relativa proprietą
TipoOrigineRiga a Elenco valori e fornire un elenco di valori separati da
punti e virgola come impostazione della proprietą OrigineRiga. Č possibile,
ad esempio, fornire i valori seguenti come impostazione di questa proprietą:
Rosso; Verde; Blu.
Aggiungere, quindi, la routine evento riportata di seguito alla maschera.
Passare alla visualizzazione Maschera ed immettere un nuovo valore nella
parte testo della casella combinata.
Private Sub Colori_NonInElenco(NewData As String, _
  Response As Integer)
 Dim ctl As Control
 ' Restituisce l'oggetto Control che fa riferimento alla casella combinata.
 Set ctl = Me!Colori
 ' Richiede di verificare se si desidera aggiungere un nuovo valore.
 If MsgBox("Valore non presente nell'elenco. Aggiungere?", vbOKCancel) =
vbOK Then
  ' Imposta l'argomento Response per indicare che i dati vengono aggiunti.
  Response = acDataErrAdded
' Aggiunge la stringa nell'argomento NewData a origine riga.
  ctl.RowSource = ctl.RowSource & ";" & NewData
 Else
 ' Se si sceglie Cancel, si elimina il messaggio di errore e si annullano le
modifiche.
  Response = acDataErrContinue
  ctl.Undo
 End If
End Sub
+++++++++++++++++++++++++++++++++++
Sib

 La sesta dell'elenco che l'help tira fuori si chiama:
Scusa Sib io non voglio fare il furbo ma è la verità non so che access tu
abbia
ma il mio non mi fa neanche finire di scrivere "respons" e me lo sostituisce
con "respond"
nella ricerca libera ho provato ma sotto mi dice [Riformulare la domanda].
Piuttosto, grazie delle dritte si a te che a Roberto!!
Ciao
Bix

 Anzi ora apro l'help e scrivo solo Response:
Nell'help di VBA si', ma nell'help di Access non si trova.... sei
troppo severo! ^___^
(L'interfaccia dell'help di A2K e' forse la peggior porcheria che io
abbia mai isto...)
cia'
Max

 nella ricerca libera ho provato ma sotto mi dice [Riformulare la domanda].
Guarda, hai ragione.
Ho verificato su A2000/2002 ed effettivemente non trova nulla.
Come dice Max, e' una vera schifezza.
Su A97 se scrivi response ti esce un trattato. Non pensavo avessero tolto la
spiegazione di response su A2000.
Tra l'altro vedo anche che non ci sono esempi sulla funzione.
Forse si sono accorti che l'help di A97 era troppo potente e non vendevano
piu' libri.
Sib

 Sib
Bix