Newsgroup: it.comp.appl.access
Titolo: errore sull'azione trovarecord (lungo)

ciao a tutti,
ho realizzato un piccolo db di gestione articoli di magazzino e ho
inserito tra le tante utilità anche quelle di ricerca per codice,
descrizione e fascia di prezzo. 
Quello che voglio ottenere è ciò che segue:
dopo aver effettuato una di queste ricerche, mi vengono filtrati 1 o più
articoli corrispondenti, scelgo uno degli articoli, cliccando sul
tasto ok voglio che il programma si posizioni nella
categoria/sottocategoria di appartenenza dell'articolo posizionandosi su
di esso e dandomi la possibilità di andare avanti o indietro a partire
dall'articolo scelto.
le procedure agli eventi su click dei rispettivi pulsanti sulle
maschere sono:
'************************************************
'TASTO CERCA X FASCIA DI PREZZO
'Ricerca x prezzo
'questa procedura mi filtra tutti i record compresi
'nella fascia prezzo scelta
'************************************************
Me.CercaCategoria = Null
Me.Cercasottocategoria = Null
Me.cercades = Null
Me.cercacodice = Null
Me.minimo = Null
Me.massimo = Null
inser:
minor = InputBox("Inserire il valore minimo, lasciare vuoto per il valore minore...", "Valore minimo")
If minor = "" Then minor = 0
minor = Val(minor)
maxi = InputBox("Inserire il valore massimo, lasciare vuoto per il valore massimo...", "Valore massimo")
If maxi = "" Then maxi = 9999999
maxi = Val(maxi)
If maxi < minor Then
aa = MsgBox("Attenzione!! il valore massimo è minore del valore minimo... reinserire i dati correttamente", vbOKOnly, "Errore!!")
GoTo inser
End If
Me.minimo = minor
Me.massimo = maxi
Me.Requery
'************************************************
'TASTO CERCA X CODICE
'Ricerca x codice
'questa procedura mi filtra tutti i record che contengono
'il valore aaa ricercato 
'************************************************
Me.CercaCategoria = Null
Me.Cercasottocategoria = Null
Me.cercades = Null
Me.cercacodice = Null
Me.minimo = null
Me.massimo = null
Me.Requery
aaa = InputBox("Codice da cercare intero o in parte", "Cerca Codice")
Me.cercacodice = aaa
Me.Requery
'************************************************
'TASTO CERCA X DESCRIZIONE
'Ricerca x descrizione
'questa procedura mi filtra tutti i record che contengono
'il valore aaa ricercato 
'************************************************
Me.CercaCategoria = Null
Me.Cercasottocategoria = Null
Me.cercades = Null
Me.cercacodice = Null
Me.minimo = null
Me.massimo = null
Me.Requery
aaa = InputBox("Descrizione da cercare intera o in parte", "Cerca Descrizione")
Me.cercades = aaa
Me.Requery
'************************************************
'TASTO OK
'Conferma articolo scelto
'questa procedura conferma l'articolo visualizzato 
'a video, si posiziona nella sua categoria di appartenenza
'e si posiziona in seguito sull'articolo scelto mettendo
'nella variabile bbb il codice dell'articolo scelto nella
'precedente procedura...
'************************************************
bbb = Me.codice
Me.CercaCategoria = Me.Categoria
Me.Cercasottocategoria = Me.SottoCategoria
Me.minimo = 0
'Me.massimo = 9999999
'Me.cercacodice = Null
Me.cercades = Null
Me.Requery
'Me.codappoggio = bbb
DoCmd.FindRecord bbb, acAnywhere, , acSearchAll, , acAll, True
le prime tre procedure funzionano perfettamente e anche parte della quarta, infatti 
premendo OK viene filtrata la categoria/sottocategoria di appartenenza, ma mi viene 
dato un errore nella riga:
DoCmd.FindRecord bbb, acAnywhere, , acSearchAll, , acAll, True
l'errore è il seguente:
errore di run-time '2162'
l'esecuzione di una macro impostata ad una delle proprietà del campo corrente
non è riuscita per un errore nell'argmento dell'azione TrovaRecord.
dov'è lerrore?
mi scuso per essermi dilungato e vi ringrazio in anticipo per l'attenzione..
Nicola

 ha scritto nel messaggio news:pan.2005.08.05....@tiscalinet.it...

Prova, prima, a selezionare l'oggetto/controllo dove effettuare la ricerca; utilizzando o il metodo "SelectObject" (vedi help).
Oppure, utilizzando per la ricerca, il "FindRecord" sul "RecordSetClone" della tua form (vedi help)..
Ciao.
-- 
Sergio MAZZA