Newsgroup: it.comp.appl.access
Titolo: Refresh del controllo in una Maschera ... come ??

ciao amici...mi ripropongo con un nuovo piccolo problema che mi capita
in una maskera che uso esclusivamente x la ricerca di dati...
questa maschera in Intestazione ho 4 controlli di ricerca,
Cognome_Nome, Codice Regionale, etc...
denominatio Cerca1, Cerca2, Cerca3 e Cerca4.
il problema è questo... quando faccio una ricerca con Cerca1
e non trovo il record (potrebbe essere stato digitato male)..
mi sposto con il mouse oppure con il Tab in un altro controllo
x fare un'altro tipo di ricerca ... magari per Data di Nascita....
e  mi esce sempre prima la finestra di errore di non aver trovato
il record del controllo precedente etc...
spero di essermi spiegato...credo che si debba
aggiungere o spostare qualche cosa nel codice di ognuno dei 4 controlli
allego il codice...
----------------------------
Private Sub Cerca1_AfterUpdate()
Me.Requery
Dim x As String
If Me.RecordsetClone.RecordCount = 0 Then
Err = apisndPlaySound("C:\WINDOWS\MEDIA\DING.WAV", 1)
x = MsgBox("Il Cognome_Nome " & Me!Cerca1 & _
" cercato non esiste!", _
vbCritical + vbOKOnly, "Attenzione")
Me!Cerca1 = ""
Me!Cerca1.SetFocus
End If
End Sub
--------------------------
grazie x l'aiuto....
--
SuperPippo®   [;o))

 ha scritto nel messaggio
news:SeLM7.185820$sq5.8...@news.infostrada.it...

Scusami, ma se il cognome e nome sono stati digitati male (o comunque non
esistono), invece di visualizzare il messaggio e di suonare la musichetta,
tu cosa vorresti fare, picchiare l'operatore?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:9tvvcv$1fk6$1...@stargate1.inet.it...

sto ancora ridendo.....
by
stwe

 ha scritto nel messaggio
news:9tvvcv$1fk6$1...@stargate1.inet.it...

| > --
| > SuperPippo®   [;o))
|
| Scusami, ma se il cognome e nome sono stati digitati male (o comunque non
| esistono), invece di visualizzare il messaggio e di suonare la musichetta,
| tu cosa vorresti fare, picchiare l'operatore?
|
| --
| Roberto
-----------------------------
:o))  Dong...!!!   No Roberto... il problema non è questo...
il controllo funziona ed il Cognome_Nome se digitato correttamente
dà i risultati previsti....il fatto è che seppur se digitato correttamente
e non trova il record esce la famosa finestrella... digito Ok ... il prompt
naturalmente rimane sul controllo Cerca1 (Cognome_Nome)....
se poi mi sposto in un altro controllo ... se voglio fare una ricerca
x Data di Nascita mi esce nuovamente la finestrella
"Il Cognome_Nome digitato non esiste"... devo ripetere la chiusura
e poi vado sul nuovo controllo...
spero di essermi spiegato bene....
ariccioaooo !!!
--
SuperPippo®   [;o))

 ha scritto nel messaggio
news:wOQM7.188306$sq5.9...@news.infostrada.it...

Non sono sicuro di aver capito in quale situazione avviene ciò che descrivi,
ma prova a cambiare il tuo codice VBA così:
Private Sub Cerca1_AfterUpdate()
If Me!Cerca1 = "" Or IsNull(Me!Cerca1) Then
    Exit Sub
Else
    Dim x As String
    If Me.RecordsetClone.RecordCount = 0 Then
        Err = apisndPlaySound("C:\WINDOWS\MEDIA\DING.WAV", 1)
        x = MsgBox("Il Cognome_Nome " & Me!Cerca1 & _
        " cercato non esiste!", _
        vbCritical + vbOKOnly, "Attenzione")
        Me!Cerca1 = ""
        Me!Cerca1.SetFocus
    Else
        Me.Requery
    End If
End If
End Sub


 ha scritto nel messaggio
news:MeVM7.191220$sq5.9...@news.infostrada.it...
[Cut-cut]

Ok... Roby... ora ci provo poi ti faccio sapere next week....
mi raccomando non mangiare troppo.... Bye...
Ciao....
--
SuperPippo®   [;o))