Newsgroup: it.comp.appl.access
Titolo: X ARTURO... Text Box...

Ciao... Arturo ...in email non riesco assolutamente a contattarti....
le Text Boxes... funzionano bene... siccome ho sia Access 2000 che A97...
ho dovuto prima convertirlo alla versione vecchia...
però vorrei che la ricerca del Cognome_Nome sia selettiva... nel senso
che si deve digitare Cognome e Nome x trovarlo oppure se si può
sia selettivo che come hai fatto tu mettendo solo il cognome...
dato che il DB è grande ... se digito Pinco... è probabile me ne escano una
50a ...
infine la Text box di avviso... è quella o è possibile sceglierla tra
alcune..
intendo quelle con il segnale di errore oppure di pericolo di Windows..
inoltre si ci può abbinare un segnale sonoro di avviso..all'apertura....???
ti incollo il codice SQL anche se penso lo avrai già...grazie x l'aiuto..
-------------------------------------------
Private Sub Cerca1_AfterUpdate()
Me!Cerca2 = "": Me!Cerca3 = "": Me!Cerca4 = ""
If Val(Me!Cerca1) = 0 Then
Me.Filter = "[cognome] like '*" & Me![Cerca1] & "*' or [nome] like '*" &
Me![Cerca1] & "*'"
Else:
Me.Filter = "[Anagrafe_ID_assistito] = " & Me![Cerca1]
End If
Me.FilterOn = True
If Me.RecordsetClone.RecordCount = 0 Then
    Beep
    MsgBox ("Il nominativo cercato no esiste!")
End If
'Me.Requery
End Sub
----------------------------
Ciao....


Ciao, Arturo

 ha scritto nel messaggio
| news:9hh97.551$y_3....@news.infostrada.it...
[super CUT]
Arturo.... non mi chiamare scocciante... magari ignorante in Access sì....
cmq... il Beep non funziona ... perchè non si sente niente...
inoltre ho incollato (forse male) il tuo codice... ma mi dà errore di
compilazione
do codice... etc...
----------------------
Private Sub Cerca1_AfterUpdate()
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 nominativo cercato non esiste!", vbCritical +
vbOK,"Attenzione")
End If
'Me.Requery
End Sub
---------------------------
aspetto tue notizie... TnX

 do codice... etc...
Il codice si è spezzato male nell'invio, nel senso che se lo hai copiato
pari pari ci sono delle righe in cui è andato a capo dove invece non doveva,
ora lo incollo con righe più corte in modo che non vada a capo da solo. Poi
c'è un errore nella riga con MsgBox, non hai copiato x =. Aggiungo anche il
Dim all'inizio, invece che nella riga di MsgBox.
Ecco il codice testato e funzionante:
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 nominativo cercato non esiste!", _
vbCritical + vbOKOnly, "Attenzione")
End If
----------------
Ciao
Arturo

 ha scritto nel messaggio
news:o8sa7.8594$te7.3...@news.infostrada.it...

| Ciao
| Arturo
----------------------------------
     quasi perfetto Arturo....nel senso che avrei da chiederti alune altre
piccole
rifiniture... quali, e questo non capisco, il Beep non funziona... ho
provato anche a metterlo appena dopo il 0Then.... ma non sento nulla ..
l'audio funziona...
poi nella mia maschera originale ... aprendola... la maschera appare vuota
mentre dopo le tue modifiche appare il primo nomonativo del DB...
vorrei fosse vuota....
infine nel campo protocollo che la stringa normalmente ha questa
caratteristica..... 10/2000/M345...prima digitando i caratteri Jolly tipo
*/*/M345 mi dava il risultato... ora devo digitarlo x intero..altrimenti
mi dà errore...
mi puoi aiutare x queste ultime rifiniture ???
Grazie... e se non hai tempo non fa niente... buon Weekend... Ciao da
Giuseppe.