Dim lngStore As Long
lngStore = Me!Id
Me.Requery
Me.RecordsetClone.FindFirst "Id = " & lngStore
Me.Bookmark = Me.RecordsetClone.Bookmark
e pongo un piccolo quesito: Se deve essere inserito in una maschera popup
e il requery deve essere effettuato alla maschera madre, il me.requewry
diventa form_pippo.requery, le altre 2 righe di codice invece saranno?
Grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news segnala gli abusi ad ab...@newsland.it
> Mi riferisco al codice delle FAQ trovato su http://www.donkarl.com/it/:
> Dim lngStore As Long
> lngStore = Me!Id
> Me.Requery
> Me.RecordsetClone.FindFirst "Id = " & lngStore
> Me.Bookmark = Me.RecordsetClone.Bookmark
> e pongo un piccolo quesito: Se deve essere inserito in una maschera popup
> e il requery deve essere effettuato alla maschera madre, il me.requewry
> diventa form_pippo.requery, le altre 2 righe di codice invece saranno?
> Grazie
Ho sostituito
Me.RecordsetClone.FindFirst "Id = " & lngStore
Me.Bookmark = Me.RecordsetClone.Bookmark
con
form_pippo.RecordsetClone.FindFirst "Id = " & lngStore
form_pippo.Bookmark = Me.RecordsetClone.Bookmark
non ottengo ne errori ne tantomeno all'uscita della popup ottengo il
puntamento del record di partenza.Torna al primo.Ora provo a mettere
queste istruzioni nel close della maschera...e vi faccio sapere
Parli di due maschere diverse dove l'una ha impostato la sua proprietà
Popup a Sì o di una maschera principale con una sottomaschera?
> Me.RecordsetClone.FindFirst "Id = " & lngStore
> Me.Bookmark = Me.RecordsetClone.Bookmark
> con
> form_pippo.RecordsetClone.FindFirst "Id = " & lngStore
> form_pippo.Bookmark = Me.RecordsetClone.Bookmark
> non ottengo ne errori ne tantomeno all'uscita della popup ottengo il
> puntamento del record di partenza.Torna al primo.Ora provo a mettere
> queste istruzioni nel close della maschera...e vi faccio sapere
In genere devi sostituire tutti "Me" con un riferimento alla maschera
che vuoi aggiornare. Se p.e. la maschera che viene "Requeried"
si chiama "pippo" il codice sarebbe:
Dim lngStore As Long
lngStore = Forms!Pippo!Id
Forms!Pippo.Requery
Forms!Pippo.RecordsetClone.FindFirst "Id = " & lngStore
Forms!Pippo.Bookmark = Forms!Pippo.RecordsetClone.Bookmark
Se non funzione mostra il tuo codice reale con i veri nomi delle maschere
ecc.
--
HTH
Karl
*********
Access FAQ: www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1)