Newsgroup: it.comp.appl.access
Titolo: ricerca record da casella combinata

Ciao,
non riesco a trovare la soluzione a questo problema :
Quando dalla Maschera A apro tramite una casella combinata non
associata la
Maschera B per la ricerca di un determinato record corrispondete ad un
Nominativo ,
(tramite il codice : DoCmd.OpenForm "A5Visualizza", _
    acNormal, , "Nominativo=" & Chr$(34) _
    & Me![CasellaCombinata74] & Chr$(34) )
La maschera B si apre  mi restituisce il record del Nominativo cercato.
Adesso , sempre nella maschera B , tramite un altra casella combinata
non
associata cerco di trovare il record corrispondente ad un altro
Nominativo :
la maschera mi rimane ferma sempre sul nominato cercato in precedenza.
La cosa curiosa è che se apro direttamente la maschera B e provo a
cercare
un nominato dalla casella combinata , questo mi viene restituito.
Il codice della casella combinata della Maschera B è il seguente :
  Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Matricola] = " & str(Nz(Me![CasellaCombinata346],
0))
   If Not rs.EOF Then Me.Bookmark = rs.Bookmark
   Me.DataVariazione = ""
   Me.Cambiamento = ""
End Sub
Come posso risolvere ???
(In pratica se passo dalla visualizzazione da  Maschera a Struttura e
nuovamente a maschera la casella combinata funziona altrimenti no !)
p.s.
curiosità :
Si tratta di un codice che "adattai" circa 4 anni fa , ora mi è sorta
la
curiosità del perchè inseri (o copiai) la seconda parte del codice :
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
   Me.DataVariazione = ""
   Me.Cambiamento = ""
Che significa ? :))))
Ringraziamento anticipato a tutti coloro che mi risponderanno.

Come mai nella chiamata alla Form:
DoCmd.OpenForm "A5Visualizza", _
    acNormal, , "Nominativo=" & Chr$(34) _
    & Me![CasellaCombinata74] & Chr$(34) )
applichi correttamente la formattazione delle stringhe ed invece
nella chiamata tramite COMBO no...?
Oltretutto non mi torna molto scritto così...!
 rs.FindFirst "[Matricola] = " & str(Nz(Me![CasellaCombinata346], 0))
Prova questo:
 rs.FindFirst "[Matricola] = " & chr(34) & Me![CasellaCombinata346] &
chr(34)
se vuoi che non selezionando escano tutti allora fai così:
  rs.FindFirst "[Matricola] = " & chr(34) &
NZ(Me![CasellaCombinata346],"*") & chr(34)
Ciao
@Alex

chr(34)
Mi restituisce errore : tipo dati non corrispondenti nell'espressione
criterio.
Aiuto :((((
ciao !

 NZ(Me![CasellaCombinata346],"*") & chr(34)
uhmmmm.....  "matricola = '*'" dici che li tira fuori tutti?
;<)
--
ac


Avevi fatto bene. il campoa "matricola e' numerico quindi
rs.FindFirst "[Matricola] = " & Nz(Me![CasellaCombinata346],0)
la str puoi anche metterla ma non serve.
Set rs = Me.Recordset.Clone
questa non mi piace  preferisco
Set rs = Me.RecordsetClone
--
ac

    Me.Cambiamento = ""
Come sai il form ha due strutture dati a cui fa riferimento:
Recordset che riflette quello che vedi
e Recordsetclone che e' una copia che sta li' per usi "impropri"
Quando tu cerchi qualcosa su recordsetclone quello che hai cercato "non" 
si riflette sul form. Hai quindi necessita' di risincronizzare le due 
strutture ed eccolo la'
me.bookmark = rs.bookmark
in quel caso, non ne conosco il motivo, pulisci i due controlli 
DataVarizione e Cambiamento
--
ac

Ciao,
scusa se nopn sono stato chiaro, ma il problema è :
se apro direttamente la maschera dove è la casella combinata il codice
funziona perfettamente, ma se apro la maschera tramite altra altra
maschera (che sarebbe la maschera principale del mio pseudo programma)
, la casella combinata non mi restituisce nulla.
ciao !

> scusa se nopn sono stato chiaro,
scusa se non sono stata chiara,
a furia di lavorare con access sto cambiando mentalmente sesso :)
ciao !


In quanto al sesso bisogna essere sempre di larghe vedutae ;<)
Il tuo problema specifico non lo avevo guardato.
cmq "c'e' facile"
da A verso B apri il form con un filtro quindi quello e' l'unico record 
che vedi. Questa cosa non avviene (il filtro) quando apri direttamente B.
Quando cerchi il secondo nominativo prova a mettere questa istruzione
filteron = false
--
ac

grazie Mille !
non ci sarei mai arrivata !!!!!!
ciao !!!!!!!!

Grazie !
mi hai fatto ricordare il tutto !
ciao !