Newsgroup: it.comp.appl.access
Titolo: Modifica di un codice scaricato su sito comune

Ciao a tutti, ho un problema non riesco a capire come fare a modificare
qusto codice preso sul sito comune per far in modo che se non è presente
l'articolo mi esca un messaggio..
Mi date una mano? grazie mille
Alberto
Private Sub Testo17_AfterUpdate()
DoCmd.Hourglass True
Dim rst As Recordset
Dim str As String
If Not IsNull(Me!Testo17.Text) Then
Set rst = Me.RecordsetClone
rst.FindPrevious "ARFOGA like """ & Me!Testo17.Text & "*"""
If rst.NoMatch Then
rst.FindFirst "ARFOGA like """ & Me!Testo17.Text & "*"""
End If
End If
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Nothing
Me!Testo17.SetFocus
Me!Testo17.SelStart = 255
DoCmd.Hourglass False
End Sub

 ha scritto nel messaggio 
news:iCGne.68044$Of5....@nntpserver.swip.net...

Ciao,
non vorrei "spararla" ma sulla base della proprietà della  NoMatch che 
assume un valore booleano ed indica se l'ultima ricerca effettuata è andata 
a buon fine prova a modificare il seguente codice
If rst.NoMatch Then
Msgbox "articolo non trovato"
else
rst.FindFirst "ARFOGA like """ & Me!Testo17.Text & "*"""
End If
---------
Buona giornata
Gaspare 

 ha scritto nel messaggio
news:_VGne.973700$b5.42...@news3.tin.it...

No gaspare ho provato in quasto modo ma mi esce sempre "articolo non
trovato" senza secondo me ricercarlo..
grazie lo stesso

 ha scritto nel messaggio 
news:Z8Hne.68064$Of5....@nntpserver.swip.net...

Prova un pò a mettere il commento su questa riga
'rst.FindPrevious "ARFOGA like """ & Me!Testo17.Text & "*"""
ammesso che il resto funzioni 

 ha scritto nel messaggio
news:RaHne.973746$b5.42...@news3.tin.it...

niente da fare, :-)  in questo modo mi ricerca l'articolo e
indipendentemente se lo trova o no esce il messaggio.
si si il codice funziona alla perfezione, digito il testo premo invio e lui
ricerca l'articolo, se è presente mi filtra giustamente i recod se invece
non è presente le visualizzo tutti.

 ha scritto nel messaggio 
news:iiHne.68067$Of5....@nntpserver.swip.net...

Prova 1 ultima cosa....la sto sparando ripeto!
If rst.NoMatch Then
rst.FindFirst "ARFOGA like """ & Me!Testo17.Text & "*"""
else
Msgbox "articolo non trovato"
End If 

 ha scritto nel messaggio
news:BqHne.973822$b5.42...@news3.tin.it...

Si si gaspare non ti preoccupare non me la prendo ne stai facendo una
figuraccia :-) niente da fare se non lo trova non esce il messaggio.
grazi mille lo stesso per i tuoi suggerimenti
magari prima o poi mi rispondera l'artefice di qusto codice.
buona serata

[CUT]
Mi dici su quale riga si blocca? 


Figurati se te la prendi o faccio una figuraccia...se vuoi analizziamo 
insieme il codice...dove ti dà errore? 

[CUT]
Ciao Alberto,
prova ad aggiungere la gestione degli errori nel seguente modo:
Private Sub Testo17_AfterUpdate()
On Error GoTo GestErr
DoCmd.Hourglass True
Dim rst As Recordset
Dim str As String
   If Not IsNull(Me!Testo17.Text) Then
             Set rst = Me.RecordsetClone
              rst.FindPrevious "ARFOGA like """ & Me!   Testo17.Text & "*"""
                       If rst.NoMatch Then
                            rst.FindFirst "ARFOGA like """ & Me!Testo17.Text 
& "*"""
                    End If
         End If
 Me.Bookmark = rst.Bookmark
 rst.Close
 Set rst = Nothing
   Me!Testo17.SetFocus
  Me!Testo17.SelStart = 255
 DoCmd.Hourglass False
Exit Sub
GestErr:
   MsgBox Err.Description
   Resume Next
End Sub
----------
Buona giornata
Gaspare 


Modificherei cosě:
Private Sub Testo17_AfterUpdate()
me.refresh
DoCmd.Hourglass True
Dim rst As Recordset
Dim str As String
    If Not IsNull(Me!Testo17.Text) Then
    Set rst = Me.RecordsetClone
    rst.FindPrevious "ARFOGA like """ & Me!Testo17.Text & "*"""
        If rst.NoMatch Then
        rst.FindFirst "ARFOGA like """ & Me!Testo17.Text & "*"""
            If rst.NoMatch Then
            msgbox "Articolo non trovato"
            DoCmd.Hourglass False
            exit sub
            end if
        End If
    End If
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Nothing
Me!Testo17.SetFocus
Me!Testo17.SelStart = 255
DoCmd.Hourglass False
End Sub
Ciao, Carlo 

 ha scritto nel
messaggio news:S7Sne.975125$b5.42...@news3.tin.it...

Grazie mille Carlo funziona alla perfezione
Buona Giornata
Ciao,Alberto

[CUT]
Ciao Carlo,
hai "pienamente" ragione tu...continuavo a spararla di brutto (tentativi a 
parte) convinto del fatto che quel textbox servisse per l'immissione dei 
dati  nel senso che si trattasse di un campo vero e proprio e dopo 
l'immissione dei dati l'utente volesse riposizionarsi su un record 
precedente archiviato (anche se effettivamente non ne intuivo la logica ma 
sul presupposto che la gente spesso chiede l'impossibile purchè 
"personalizzato" mi ero arreso a quell'idea)
In tal senso con la gestione degli errori si evitava l'errore nel caso non 
ci fossero record e l'utente si posizionava sempre all'inizio...ovviamente 
non capivo a cosa servisse rst.FindPrevious
Pardon :-)
Buona giornata
Gaspare