Newsgroup: it.comp.appl.access
Titolo: Operazione non supportata

Ciao a tutto il ng. Forse vi è sfuggito l'altro messaggio oppure non merita
risposta, però tra vedere e non vedere ve lo ripropongo sperando che
qualcuno sappia rispondere al mio problema.
In Questo modo gestisco l'eliminazione dei record:
Private Sub TastoElimina _Click()
On Error GoTo Err_ TastoElimina _Click
On Error Resume Next
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    Me. MioRecord.SetFocus
Exit_ TastoElimina _Click:
    Exit Sub
Err_ TastoElimina _Click:
    MsgBox Err.Description
    Resume Exit_ TastoElimina _Click
End Sub
----------------------------------------------------------------------------
Private Sub Form_AfterDelConfirm(Status As Integer)
If Status = 0 Then
    DoCmd.GoToRecord , , acFirst
End If
End Sub
-------------------------------------------------------------------------
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
    Response = acDataErrContinue
    Cancel = False
End Sub
----------------------------------------------------------------------------
Private Sub Form_Delete(Cancel As Integer)
If Forms!MiaMaschera!MioControllo.Visible = False Then
    Cancel = True
ElseIf MsgBox("Sei sicuro di voler Eliminare il Record N° " & MioRecord &
Chr(13) &_ "della Ditta  " & Nominativo & " ?", vbExclamation + vbYesNo,
"Attenzione!") = vbNo Then
    Cancel = True
End If
End Sub
Dopo avere annullato l'eliminazione di un record, mi è capitato per caso di
avere cliccato da un menù di scelta rapida della mia maschera, il tasto
"Rimuovi filtro/Ordina", ottenendo come risposta una MsgBox che dice quanto
segue "Operazione non supportata nelle transazioni", costringendomi a
cliccare su "?" oppure su "Ok" per ben 4 volte. Se però confermo l'
eliminazione e clicco su "Rimuovi filtro/Ordina", tutto fila liscio.
Ovviamente la domanda è : come posso risolvere l'inghippo?
Grazie a chiunque mi degni di risposta.
Ciao da cranze.

 Ovviamente la domanda č : come posso risolvere l'inghippo?
A parte il fatto che c'hai 4 procedure evento legate alla stessa operazione
e mi pare molto strano, prova a fare un requery della form prima di cliccare
quel pulsante.
Per fare un test, senza usare il codice, premi F9
Antonio


Grazie Antonio per il tuo interessamento però la soluzione da te prospettata
non ha risolto il problema. A questo punto mi chiedo se sia possibile
disabilitare il comando "Rimuovi filtro/Ordina" dal mio menù di scelta
rapida ed abilitarlo solo se effettivamente sia stato messo un filtro od
ordinato la maschera in qualche campo in modo crescente o decrescente.
Oppure Creare un'altro menù di scelta rapida senza il comando "Rimuovi
filtro/Ordina" e visualizzare l'uno o l'altro menù a seconda se sia stato
messo un filtro od ordinato in modo crescente o decrescente, oppure no.
Sapresti eventualmente come fare? Ciao ed ancora grazie da cranze.

 ordinato la maschera in qualche campo in modo crescente o decrescente.
Io non lavoro con quei menů ma preferisco gestire tutto da maschera con
controlli e query recordsource basate su quei controlli
Antonio

 Ok Antonio, capisco che a te non piaccia questo metodo, ma scusa se abuso
della tua disponibilità.
Se io volessi assegnare ad una form il menù di scelta rapida via codice,
come lo dovrei scrivere?
Sulla guida in linea non è moto chiaro.
Cranze

 Sulla guida in linea non è moto chiaro.
Ovviamente se non lo uso, non ho esperienza da fornire. Prova a vedere la
proprietà menù della form
Antonio

 Credo di aver trovato la soluzione
Forms("MiaForm").ShortcutMenuBar = "MioMenù"
casomai avessi bisogno di usarla prima o poi.
Ciao da cranze