Newsgroup: it.comp.appl.access
Titolo: Pulsante Eliminazione in maschera...

Ciao a tutti... ho un pulsante di eliminazione record
in una maschera... il quale mi elimina il record corrente
e le relazioni il una sottomaschera... e vorrei chiedere
se le istruzioni sono esatte per il mio scopo...
a funzionare funziona... ma se si può perfezionare
è meglio.... ciao....
---------------------------------------------------------
Private Sub Comando42_Click()
On Error GoTo Err_Comando42_Click
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Comando42_Click:
    Exit Sub
Err_Comando42_Click:
    MsgBox Err.Description
    Resume Exit_Comando42_Click
    End Sub
--------------------------------------------------------

--------------------------------------------------------
funzionare funziona per forza...autocomposizione di access...
l'unica cosa ke si puo' perfezionare, o meglio aggiungere è un
messaggetto di conferma eliminazione e togliere i messaggi di allerta
di access ke dicono: numero di record che verranno...bla...bla...
ma e' solo per "ottimizzare" alcune idiozie
prova con:
---------------------------------------------------------
Private Sub Comando42_Click()
Dim EliminaRecord
EliminaRecord = MsgBox("Eliminare il record
visualizzato?",vbApplicationModal+vbYesNo+vbQuestion)
If EliminaRecord = vbNo then
	MsgBox "Operazione annullata.",vbExclamation
	Exit Sub
Else
On Error GoTo Err_Comando42_Click
	'Nasconde gli avvisi di access
	docmd.setwarnings false
	'elimina il record
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
	'rimette apposto gli avvisi di access
	docmd.setwarnings true
Exit_Comando42_Click:
    Exit Sub
Err_Comando42_Click:
    MsgBox Err.Description
    Resume Exit_Comando42_Click
 
End if
End Sub
--------------------------------------------------------
ma come vedrai...nulla cambia in fin dei conti.
Ciao :)

"SuperPippo®" <ik0qd...@SPAMlibero.it> ha scritto nel messaggio
news:OWnea.30878$7y3.1...@twister1.libero.it...

Prova così:
Private Sub Comando42_Click()
DoCmd.RunCommand acCmdDeleteRecord
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 End Sub
---------------------
grazie a yQy ed a te Roberto per avermi risposto...
certo che l'ho fatto con l'autocomposizione...e del
resto funziona... ma utilizzando il primo codice...
 vedo una msgbox...
ma quello di Roberto funziona praticamente uguale..
a quello dell'autocomposizione... con l'unica differenza
che sono 3 righe...
e cmq... vorrei sapere in termini di vantaggi significa
qualcosa... utilizzare meno codice ???
grazie...

"SuperPippo®" <ik0qd...@SPAMlibero.it> ha scritto nel messaggio
news:92Jea.35747$Lr4.1...@twister2.libero.it...

Nel caso specifico ritengo che il numero delle righe in cui il codice è
articolato sia del tutto indifferente.
Resta il fatto che la soluzione generata dall'autocomposizione di Access sia
una forma di codice VBA arcaica che esiste ancora solo per un problema di
compatibilità con le versioni di Access precedenti A 97; non è escluso che
prima o poi non venga più accettata.
Comunque ho dei dubbi che funzioni in assenza di una barra dei menu o con
una barra dei menu personalizzata in cui non ci sia il menu Modifica o
comunque ci sia il menu Modifica in cui i comandi di Seleziona record ed
Elimina record non si trovino all'ottava ed alla sesta posizione.


Perfetto!
Se all'occorrenza si volesse inserire un messaggio di conferma eliminazione
record Si/No cosa occorre?
Grazie,Roberto.


wrote:

quello ke ho gia proposto io prima :))
chiede appunto se vuoi o no eliminare il record.
Ciao :)

 ha scritto nel messaggio
news:b5hjse$5qg$1...@lacerta.tiscalinet.it...

Ti ha risposto yQy.


 sesta posizione.
---------------
grazie Roberto... sei sato molto esauriente e preciso....
quindi per ora seguo il tuo consiglio ed il tuo codice...
Ciao...a presto....

Ho inserito il codice come dal post (copia incolla) ma su click mi dà
messaggio errore di sintassi ed esce il debugger che evidenzia la riga
Eliminarecord = .......ecc.
per cui non mi funziona, ho sbagliato qualcosa oppure è errato il post?
Grazie.


wrote:

EliminaRecord = MsgBox(.......)
tutto su una riga