Newsgroup: it.comp.appl.access
Titolo: Requery maledetta

Ho provato in tutti i modi ha fare la requery di una Casella Combinata
su una sottomaschera ,sono uscito pazzo , non c'è verso, non riesco ha
capire dove eventualmente sbaglio, se qualcuno mi vuole aiutare .
Maschera principale : OrdiniGenerico
Sottomaschera : SottomascheraOrdini
controllo casella combinata   su Sottomaschera  IdProdotto
su IdProdotto inserisco un codice inesistente , la routine su non in Elenco
mi apre la Maschera  CodificaArticoli, inserisco il record completo, salvo,
esco e ritorno alla Maschera /Sottomaschera  e il cursore è sul controllo
IdProdotto con il valore precedentemente inserito evidenziato ,
e qui che non avviene la Requery , anzi avviene solo se  premo invio
e ricompare il messaggio della routine su non in Elenco a cui rispodo No ,
questo perchè nella routine l'istruzione      Response = acDataErrAdded
rifà la requery.
Penso che queste  istruzione : forms("OrdiniGenerico")IdProdotto.Requery
oppure    forms![OrdiniGenerico]!SottomascheraOrdini.Form.Requery
siano  quelle giuste , ho provato a metterle sull' evento su Attivato ,
dopo aggiornamento , sia della maschera principale che della sottomaschera,
niente
Spero che qualcuno mi spieghi l'errore .
Ciao Giuseppe

 niente
E
forms("Ordinigenerico").sottomascheraordini.form.idprodotto.requery
come la vedi??!?!?
Antonio

 ha scritto nel messaggio
news:%vBda.23064$7y3.7...@twister1.libero.it...

No non funziona  ho provato e riprovato ,
solo attivando la seconda parte
della routine non in elenco e rispondendo No  allora viene rifatta la
requery
Else
                    strTitolo = "                      Informazione   "
                    strMsg = "   digita un codice esistente nella casella.
"
                    IntFinestraMsg = vbOKOnly + vbExclamation
                    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
                    Response = acDataErrContinue
           >>>>      Response = acDataErrAdded   <<<<<<<
non è molto elegante ma non riesco a trovare altra soluzione
Ciao Giuseppe

 ha scritto nel messaggio
news:WCDda.107445$zo2.2...@news2.tin.it...

Che c'entra questo con la sintassi per fare la requery?!?
Antonio

 ha scritto nel messaggio
news:vjEda.24341$Lr4.7...@twister2.libero.it...



Ti spiego : Sottomaschera con
casella riepilogo IDprodotto ,inserisco valore non in elenco si apre
messaggio che chiede se voglio inserire il nuovo articolo, rispondo si
e si apre la maschera immissione dati CodificaArticoli ,inserisco il nouvo
record ,chiudo, e torno alla maschera principale con il focus sulla casella
di riepilogo IDprodotto,
dove ritrovo il valore appena inserito , e a questo punto entra in azione la
seconda parte della routine
che mi fà la requery.
Private Sub IDProdotto_NotInList(NewData As String, Response As Integer)
Dim IntNuovo As Integer, strTitolo As String
Dim IntFinestraMsg As Integer, strMsg As String
strTitolo = "                       codice non in elenco"
strMsg = "ATTENZIONE il Codice   " & NewData & "   è inesistente vuoi
codificarlo ? "
IntFinestraMsg = vbYesNo + vbQuestion
IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
 If IntNuovo = vbYes Then
 DoCmd.RunCommand acCmdUndo
 DoCmd.OpenForm "CodificaArticoliPiaggio", , , , acFormAdd, acNormal,
NewData
 Response = acDataErrAdded
 Response = acDataErrContinue
 Forms![codificaarticolipiaggio]![CodiceProdotto] = NewData
 Forms![codificaarticolipiaggio]![CasellaCombinata46].Requery
 Forms![codificaarticolipiaggio]![Descrizione].SetFocus
 Else
 strTitolo = "                      Informazione   "
 strMsg = "   digita un codice esistente nella casella.      "
 IntFinestraMsg = vbOKOnly + vbExclamation
IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
Response = acDataErrContinue
Response = acDataErrAdded
End If
End Sub
 Ciao Giuseppe

 che mi fà la requery.
Assolutamente no.
La requery la fai quando salvi il nuovo record nella maschera che si apre.
Se il record è salvato, dopo il salvataggio fai la requery, con la sintassi
che ti ho detto prima
Antonio