Newsgroup: it.comp.appl.access
Titolo: Maschera con Beep !!!

salve amici... ho una maschera su cui effettuare delle ricerche di un DB
anagrafico....
ed ho 4 caselle di testo non associate che mi apre un query con origine dati
da una
tabella....ebbene vorrei 2 cose...
che all'apertura della maschera non comparisse il primo record della
tabella...
ma una maschera vuota...
inoltre che funzionasse il "Beep" all'inserimento di un dato non
corrispondente..
spero di essermi spiegato bene...
allego il codice della prima casella di testo della maschera...
------------------------------------------
Private Sub Cerca1_AfterUpdate()
Dim x As Integer
Me!Cerca2 = "": Me!Cerca3 = "": Me!Cerca4 = ""
If Val(Me!Cerca1) = 0 Then
Me.Filter = "[cognome] = '" & Me![Cerca1] & "' or " _
& "[cognome] & "" "" & [nome] = '" & Me![Cerca1] & "' or " _
& "[nome] & "" "" & [cognome] = '" & Me![Cerca1] & "'"
Else:
Me.Filter = "[Anagrafe_ID_assistito] = " & Me![Cerca1]
End If
Me.FilterOn = True
If Me.RecordsetClone.RecordCount = 0 Then
Beep
x = MsgBox("Il Cognome_Nome cercato non esiste!", _
vbCritical + vbOKOnly, "Attenzione")
End If
End Sub
-------------------------------------------------
grazie....

 ha scritto nel messaggio
news:U4cc7.19887$1c2.2...@news.infostrada.it...

Mi sembra di capire che questa maschera la devi utilizzare per inserire
dati; se è così la puoi aprire in modalità "aggiunta dati"; così non vedrai
i dati già inseriti ma solo quelli che stai inserendo in quel momento.
Per il beep non capisco cosa vuoi dire, nel codice che ha inviato hai già
inserito l'istruzione "beep", forse il volume dell'altoparlante è basso?
Poi se la variabile x non la utilizzi in altre subroutine o per altri scopi
ti conviene modificare la msgbox in:
'------------
MsgBox "Il Cognome_Nome cercato non esiste!", vbCritical + vbOKOnly,
"Attenzione"
'------------
cioè utilizzandola come istruzione non come funzione e togliendo il
dimensionamento di x...
Ciao.

 ha scritto nel messaggio
| news:U4cc7.19887$1c2.2...@news.infostrada.it...
[cut]
| Mi sembra di capire che questa maschera la devi utilizzare per inserire
| dati; se è così la puoi aprire in modalità "aggiunta dati"; così non
vedrai
| i dati già inseriti ma solo quelli che stai inserendo in quel momento.
| Per il beep non capisco cosa vuoi dire, nel codice che ha inviato hai già
| inserito l'istruzione "beep", forse il volume dell'altoparlante è basso?
| Poi se la variabile x non la utilizzi in altre subroutine o per altri
scopi
| ti conviene modificare la msgbox in:
| '------------
| MsgBox "Il Cognome_Nome cercato non esiste!", vbCritical + vbOKOnly,
| "Attenzione"
| '------------
| cioè utilizzandola come istruzione non come funzione e togliendo il
| dimensionamento di x...
-------------------
Ciao Sergio... no la maschera la uso esclusivamente per la ricerca di
Cognome_Nome - Cod_Regionale - Codice_Fiscale - Data di Nascita .....
quindi mi servirebbe vuota... e non con i dati del primo record....
poi ho provato...con il Beep... (le casse sono al massimo e funzionano)....
ma non suona niente... strano....  ti incollo come è il codice... forse
sbaglio...
-------------------
Private Sub Cerca1_AfterUpdate()
Dim x As Integer
Me!Cerca2 = "": Me!Cerca3 = "": Me!Cerca4 = ""
If Val(Me!Cerca1) = 0 Then
Me.Filter = "[cognome] = '" & Me![Cerca1] & "' or " _
& "[cognome] & "" "" & [nome] = '" & Me![Cerca1] & "' or " _
& "[nome] & "" "" & [cognome] = '" & Me![Cerca1] & "'"
Else:
Me.Filter = "[Anagrafe_ID_assistito] = " & Me![Cerca1]
End If
Me.FilterOn = True
If Me.RecordsetClone.RecordCount = 0 Then
Beep
MsgBox "Il Cognome_Nome cercato non esiste!", vbCritical + vbOKOnly,
"Attenzione
End If
End Sub
----------------------

 ha scritto nel messaggio
news:Ejfc7.633$JY1....@news.infostrada.it...

Se ti serve per una ricerca potresti non associare la maschera a nessuna
fonte dati; la ricerca la effettui con DAO/ADO e se il risultato della
ricerca è positivo allora puoi visualizzare i dati nei controlli; ma poi che
ci fai li vuoi anche modificare?
Per il Beep se non lo senti, può essere che non si verifica l'if e quindi
non ci passerà mai; prova a forzare la cosa magari mettendolo prima
dell'if...
Ciao.

 ha scritto nel messaggio
news:9kua0c$1nf$1...@canarie.caspur.it...

----------------------
la maschera mi serve solo x ricerca dati... senza possibilità di
modifica....
in quanto al Beep non vuole proprio funzionare... anche mettendolo
prima dell' IF....
pazienza... chi si contenta ... gode ???
se non ci sentiamo + .... Buon Ferraqgosto..............

 se non ci sentiamo + .... Buon Ferraqgosto..............
Anche a te...