ho sul pc access 2003 ho installato office 365 tutte due funzionano. Ma se apro un MDB con 365 e lo salvo in formato 2003 o anche 2000 riaprendolo con 2003 non accetta più alcune routines .

Question

Viene seganlato l'errore (senza numero): L'oggetto o la classe non supporta il gruppo di eventi

P.esempio:

Le routine seguenti non vengono più riconosciute in Access 2003 e generano l'errore detto

Private Sub Form_Open(Cancel As Integer)

DoCmd.GoToRecord acDataForm, "0000 Movimenti", acLast

DoCmd.GoToControl "Stop"

End Sub

Private Sub Aggiungi_record_Click()

On Error GoTo Err_Aggiungi_record_Click

DoCmd.GoToRecord , , acNewRec

[DATA] = Date

'[DATA].SetFocus'

[DESCRIZ].SetFocus

Exit_Aggiungi_record_Click:

Exit Sub

Err_Aggiungi_record_Click:

MsgBox Err.Description

Resume Exit_Aggiungi_record_Click

End Sub

Private Sub Trova_record_Click()

On Error GoTo Err_Trova_record_Click

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Trova_record_Click:

Exit Sub

Err_Trova_record_Click:

MsgBox Err.Description

Resume Exit_Trova_record_Click

End Sub

Private Sub Elimina_record_Click()

Dim ValoreRestituito As Integer

On Error GoTo Err_Elimina_record_Click

ValoreRestituito = MsgBox("Cancello record?", vbOKCancel)

If ValoreRestituito = 1 Then

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

DoCmd.GoToRecord acDataForm, "0000 Movimenti", acLast

End If

Exit_Elimina_record_Click:

Exit Sub

Err_Elimina_record_Click:

MsgBox Err.Description

Resume Exit_Elimina_record_Click

End Sub

Answer 1

Ciao GrazianoMorganti,

innanzitutto, mi scuso per il ritardo nel dare seguito alla tua richiesta di assistenza..

Hai provato a consultare il seguente articolo?

http://support.microsoft.com/default.aspx?scid=kb;IT-IT;870961

Saluti,

Inga