Newsgroup: it.comp.appl.access
Titolo: Cancellare l'ultimo record della serie..........

Poniamo il caso che io abbia una maschera Singola col seguente
codice.. (ovvero, ad ogni nuovo record, mi riempie il campo [Gruppi
Omogenei])
Private Sub Form_Current()
Dim Mycount As Long
' se il campo è vuoto
If IsNull(Me.GruppiOmogenei) Then
' conto quanti gruppi già ci sono
Mycount = DCount("[GruppiOmogenei]", "Q_GruppiOmogeneiRumore",
"[IdAnagrafica]= " & Me.Id_Anagrafica_GruppiOmogenei)
Me.GruppiOmogenei = Chr(Mycount + 65)
End If
End Sub
Poniamo poi il caso che io mi sia creato un button per cancellare:
Private Sub MyElimina_Click()
On Error GoTo Err_MyElimina_Click
Dim stDocName As String
'Seleziona il record GruppiOmogenei (il tasto deve eliminare solo i
gruppi
'Omogenei e non un record qualsiasi
Me.GruppiOmogenei.SetFocus
    ' elimina il gruppo
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    ' e vai al record precedente (ho provato a mettercelo pensando che
così non
' sarei ripassato'dal form_Current, ma evidentemente non è così
    DoCmd.GoToRecord , , acPrevious
Exit_MyElimina_Click:
    Exit Sub
Err_MyElimina_Click:
    MsgBox Err.Description
    Resume Exit_MyElimina_Click
End Sub
Prima che mi portino via degli affabili Signori tutti di bianco
vestiti,
Perchè tutto funziona alla perfezione con un record qualsiasi, ma se
lo faccio con l'ultimo, me lo ricrea con il valore che di genera da
Private Sub Form_Current()?????
Ovviamente grazie in anticipo!!!!!!!!!!!!

 ha scritto nel messaggio 
news:1179696106.3...@y2g2000prf.googlegroups.com...



End Sub

Dim stDocName As String



End Sub

[risposta]
Sarà per questa (tua) istruzione?
...
' se il campo è vuoto
If IsNull(Me.GruppiOmogenei) Then
...
Ma invece di generare un valore sull'evento "su corrente" (che oltre tutto 
ti si scatena ad ogni movimento di cursore del record), utilizza l'evento 
"prima di inserire" o "prima di aggiornare"...
Ciao.
-- 
Sergio MAZZA 

 Cioa
Non è l'istruzione a "fare danni", ma l'errato utilizzo di quella istruzione 
allo scatenarsi di quell'evento...
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
Ciao
Access

 ha scritto nel messaggionews:1179696106.3...@y2g2000prf.googlegroups.com...

é ovvio che NON è così perchè i fatti lo dimostrano, ma mi aspettavo
che premendo il mio bottone venissero eseguite tutte le sue istruzioni
(e quindi anche lo spostamento al record precedente) prima che si
creasse un nuovo record e quindi il conseguente evento "_Current".
Grazie Nunc et Semper!

 ha scritto nel messaggio news:1179765630.0...@a26g2000pre.googlegroups.com...
é ovvio che NON è così perchè i fatti lo dimostrano, ma mi aspettavo
[risposta]
Quali fatti?
Non hai scritto forse: "...Perchè tutto funziona alla perfezione con un record qualsiasi, ma se lo faccio con l'ultimo, me lo ricrea 
con il valore che di genera da Private Sub Form_Current()?????"
Per "ultimo" e "record qualsiasi" che intendi?
che premendo il mio bottone venissero eseguite tutte le sue istruzioni
(e quindi anche lo spostamento al record precedente) prima che si
creasse un nuovo record e quindi il conseguente evento "_Current".
[risposta]
La sequenza degli eventi in base ad una (tua) azione è anche descritta nell'help; ne trovi traccia alla voce: Evento Corrente.
Grazie Nunc et Semper!
[risposta]
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggionews:1179765630.0...@a26g2000pre.googlegroups.com...

Per record qualsiasi intendevo record qualsiasi diverso da ultimo
Per record ultimo intendevo, l'utlimo della serie (chiaro no?? hihihi)
Esempio ho 5 GruppiOmogenei equivalenti a 5 maschere a pagina singola
Se premevo il bottone (adesso ho cambiato tutto) su i record 1,2,3,4
mi si cancellava (e ottenevo un totale di 4 record residui)
Se premevo bottone su record 5 (ultimo), mi si cancellava il
contenuto, ma rimanevo cmq con cinque record (il campo GruppoOmogenei
del record appena eliminato mi si RIriempiva subito....)

 ha scritto nel messaggio news:1179931997....@h2g2000hsg.googlegroups.com...
Per record qualsiasi intendevo record qualsiasi diverso da ultimo
Per record ultimo intendevo, l'utlimo della serie (chiaro no?? hihihi)
[risposta]
Ah! Ora sě.
Esempio ho 5 GruppiOmogenei equivalenti a 5 maschere a pagina singola
Se premevo il bottone (adesso ho cambiato tutto) su i record 1,2,3,4
mi si cancellava (e ottenevo un totale di 4 record residui)
Se premevo bottone su record 5 (ultimo), mi si cancellava il
contenuto, ma rimanevo cmq con cinque record (il campo GruppoOmogenei
del record appena eliminato mi si RIriempiva subito....)
[risposta]
Ecco ora mi si sono rincasinate le idee.
Comunque, senza entrare nel merito; ho riletto il tuo primo messaggio e quando dici che vorresti eliminare i record dello stesso 
gruppo immaggino tu intenda quelli corrispondenti a: [IdAnagrafica]= " & Me.Id_Anagrafica_GruppiOmogenei.
Se č cosě, invece di utilizzare il DoMenuItem (che ti lega anche alla versione di access) utilizza una query di eliminazione:
es.
...
Currentbd.execute "Delete * From Q_GruppiOmogeneiRumore Where [IdAnagrafica]= " & Me.Id_Anagrafica_GruppiOmogenei
...
Me.requery
Il passaggio dall'evento "su corrente" non puoi evitarlo; se utilizzi il debug passo-passo lo vedrai...
Ciao.
-- 
Sergio MAZZA