Newsgroup: it.comp.appl.access
Titolo: Cancellare / salvare record da una sottomaschera

Quesito del giorno... 
ho fatto questo "coso" che mi da errore... ma l'idea sarebbe questa....
nella sottomaschera
Dim Maschera As String, SottoMaschera As String, Insieme As Form
Maschera = 
Me.Parent.Name
SottoMaschera = Me.Name
Set Insieme = "Forms!" & Maschera & "!" & SottoMaschera & ".Form"
Insieme.SetFocus
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
io dovrei da una sotto maschera... (menu) cancellare o salvare i record che si trovano in una maschera principale ma di cui non so il nome... 
credo che il problema principale sia che acCmdDeleteRecord non funziona se non ha il SetFocus nella maschera contenente i record... ma il mio problema è spostare il setfocus nella principale.. 
qualcuno mi può aiutare?
Grazie... obligado... 
-- 
Saluti
- - -- - -- - -- - -- - -- - -- - -- - -
JoeBlack

 wrote in message
news:o7a6d.6994$
75.3...@news3.tin.it

A livello di principio non è corretto ELIMINARE il Record della
Form dalla SubForm, perchè dovrebbe eliminare anche il Record Attivo
nella SubForm.
Però quanto fai non và sicuramente bene.
Con questa elimini il Record nella Form Principale, e
se hai abilitato l'Eliminazione a catena dovresti eliminare
anche i Records collegati nella Tabella Relazionata(Origine della
SubForm), quindi devi eseguire il Requery...!
Private Function fDelCurrentRec() As Boolean
    On Error GoTo Err_Section
    'Elimina il Record Corrente nella FrmMain
    'quindi esegue il Requery.
        'Return:True se l'operazione è andata a buon fine
        '       False se viene generato un errore
    With Me.Parent.Form.RecordsetClone
        .Bookmark = Me.Parent.Bookmark
        .Delete
    End With
    fDelCurrentRec = True
Exit_Section:
    Exit Function
Err_Section:
    fDelCurrentRec = False
    Resume Exit_Section
End Function
Ciao.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio news:5f5fd9d6724aaee630...@mygate.mailgate.org...

Grazie per la risposta Alessandro
cmq.. c'e' da dire che la subform non ha record... ma solo comandi... (pulsanti)
in pratica è il menu di ieri... che rendendolo dinamico lo userei come sottomaschera "adattabile" ad ogni maschera..
scusami forse avrei fatto meglio a spiegarlo prima.. 
Joe.. 

 Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
PERFETTO ALEX... !!!!
Funnziona perfettamente.. 
l'ho adattata anche per il salvataggio..
invece di .Delete ho messo .Save
e va a meraviglia...
Grazie.. Alex.. 
Joe

 Joe
Beh... avevi dubbi....?
;-)
Non hai fatto 2 Funzioni vero...?
Ciao


 @Alex.
uahhhh...svegliato dal piccolo break pomeridiano... 
ehm....
azz... vero... potrei passargli come parametro
es:
Private Function fCurrentRec(Opzione As ?????????) As Boolean
    With Me.Parent.Form.RecordsetClone
        .Bookmark = Me.Parent.Bookmark
        .Opzione
    End With
eh?
Bye
...........Joe

 ha scritto nel messaggio
news:bze6d.13842$35.8...@news4.tin.it...



es:

eh?
Bye
...........Joe
MMmmmm nno ho capito quello che hai fatto però con Save....!
Cosa potrebbe servirti il SAVE....?
In che modo lo hai inserto c'è qualche cosa che non mi torna...!
Se la Form principale è associata non dovrebbe servire il SAVE
che non ho mai sentito applicato al modello ad oggetti DAO
ma all'oggetto DoCmd.........!!!
Hai fatto una MAGIA secondo me......!
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


ehm... mi sai tipo da cose facili?.. eheheheh
ho giocato un po con 
Me.Parent.AllowAdditions = True/False
Me.Parent.AllowEdits = True/False
e quindi necessitava il save.. 
Ciao... Joe
Microsoft Windows: leggere le avvertenze, può indurre sonnolenza.

 Microsoft Windows: leggere le avvertenze, può indurre sonnolenza.
He....He....He.......!!!
