Newsgroup: it.comp.appl.access
Titolo: disabilitare i messaggi di errore di aceess

Salve a tutti.
Sicuramente ho già letto la risposta un'altra volta nel NG o sul sitocomune
ma non riesco più a trovarla
Adesso mi trovo a gestire un non in elenco di una casella combinata e (non
mi sembra vero) l'ho fatto correttamente, ma non riesco a non far apparire
il messaggio di access che avverte che
"il testo immesso non corrisponde ad un valore nell'elenco"
Potete Aiutarmi?
Grazie.


wrote:

nella routine vba del codice associato al tuo comando, ad esempio al
pulsante che elimina il record c'e' una cosa di questo tipo:
------------------------------------
Private Sub NomeComando_Click()
On Erro Goto blabla...
Docmd.runcommand accmdmenubar, accmd.....
blabla...:
MsgBox Err.Description (IL MESSAGGIO DI ERRORE)
resume....
End Sub
------------------------------------------
Soluzioni per disabilitarlo:
*****************************************
1 - metti prima di msgbox una virgiletta, quindi:
	blabla...:
	'MsgBox Err.Description
	resume....
2 - Sostituisci msgbox err.description con un tuo messaggio a piacere,
ad esempio:
	MsgBox "Messaggio di errore personalizzato."
	resume...
3 - Annulli la visualizzazione con un codice di esempio:
------------------------------------
Private Sub NomeComando_Click()
On Erro Goto blabla...
DOCMD.SETWARNINGS FALSE (nasconde gli avvisi)
Docmd.runcommand accmdmenubar, accmd.....
DOCMD.SETWARNING TRUE (ripristina gli avvisi appena eseguito il
comando docmd.runcommand.....ecc...ecc)
....
....
End Sub
-------------------------------------
*******************************************
credo che la soluzione 1 sia la piu' idonea, ma scegli tu :)
Prova mpo' :)
Ciao

"yQy" <fabrizi...@SESPAMMITISTRONCOtin.it> ha scritto nel messaggio
news:tfvb8v0ri56mlvvas...@4ax.com...

Ho provato con la tua terza soluzione inquanto le prime due non sono
applicabili (credo), ma non funzia uguale :((
il codice è questo
Private Sub UltimoTecnico_NotInList(NewData As String, response As Integer)
  DoCmd.SetWarnings False
  Dim risposta As Integer
  risposta = MsgBox("Tecnico non in elenco, Vuoi Inserirlo?", vbYesNo,
"ERRORE")
  If risposta = vbYes Then
     DoCmd.OpenForm "Inserimento tecnici"
   Else: Cancel = "true"
  End If
End Sub
e come vedi lascio disabilitato il setwarnings anche alla fine della
procedura, ma nonostante ciò anche nelle sessioni successive viene comunque
visualizzato il messaggio!!

 ha scritto nel messaggio
news:lsoha.61299$Lr4.1...@twister2.libero.it...

Ciao,
puoi utilizzare la variabile Response inserita da VBA nella prima riga di
codice della Sub
Response = acDataErrAdded
Deve essere inserita dopo che hai aggiunto il tecnico non in elenco
Ciao Massimo
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.465 / Virus Database: 263 - Release Date: 25/03/2003

 ha scritto nel messaggio
news:Ddxha.41767$i26.1...@news2.tin.it...

Scusa la limitatezza, ma non ho capito dove dovrei inserire l'impostazione
della variabile dato che questa Sub si attiva automaticamente nel momento in
cui si conferma, con invio, l'inserimento di una voce non in elenco in una
casella combinata : ((