Nel progetto ho incluso un form dati generato automaticamente con i campi del file excel che uso.
Il codice associato al form è il seguente:
codice:
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'Posizione per il codice di gestione degli errori
'Se si desidera ignorare gli errori, impostare come commento la riga successiva
'Se si desidera intercettarli, aggiungere qui il codice di gestione
MsgBox "Intercettato errore dei dati:" & Error$(DataErr)
Response = 0 'Ignora l'errore
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'Visualizza la posizione del record corrente
'per Recordset di tipo Dynaset e Snapshot
Data1.Caption = "Record: " & (Data1.Recordset.AbsolutePosition + 1)
'Per l'oggetto tabella è necessario impostare la proprietà Index
'al momento della creazione del Recordset e utilizzare la riga seguente
'Data1.Caption = "Record: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'Posizione per il codice di convalida
'Questo evento viene richiamato quando si verificano le seguenti azioni
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
'Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
End Sub
Ho omesso di inserire il codice dei pulsanti per modificare/aggiunfere record e chiudere il form: si tratta anche in questo caso di codice generato dal wizard form dati.
In pratica il programma viene eseguito normalmente ma appena apro il form mi esce "Intercettato errore dei dati: Application-defined or Object-defined error" e di seguito il famoso errore 91