Access 2010: errore "Tipo non corrispondente" su evento Click in applicazione compilata

Anonimo
2011-03-21T16:48:46+00:00

Cari amici,

ho creato un'applicazione che ad un certo punto, utilizzando un tasto Registra, salva su una tabella i valori calcolati.

L'evento è sul Click e la Routine evento è la seguente:

Private Sub Registra_Click()

    Dim cn As ADODB.Connection

    Dim rs As ADODB.Recordset

    Set cn = CurrentProject.AccessConnection

    Set rs = New ADODB.Recordset

    If Nome = "" Or IsNull(Nome) Then

        MsgBox "Il Nome del punto da registrare è obbligatorio!", vbCritical

        Set rs = Nothing

        Set cn = Nothing

        Exit Sub

    End If

    With rs

      Set .ActiveConnection = cn

      .Source = "SELECT * from Trigonometrici where Trigonometrici.Nome = '" & Nome & "'"

      .LockType = adLockOptimistic

      .CursorType = adOpenKeyset

      .CursorLocation = adUseServer

      .Open

    End With

    If rs.RecordCount = 1 Then

        MsgBox "Il Nome del punto da registrare è già presente in banca dati!", vbCritical

        Set rs = Nothing

        Set cn = Nothing

        Exit Sub

    End If

   ' rs.MoveFirst

    rs.AddNew

    rs.Fields("Nome") = Nome

    rs.Fields("Fuso") = FusoRis

    rs.Fields("Est") = EstRis

    rs.Fields("Nord") = NordRis

    rs.Fields("Quota") = QuotaRis

    rs.Update

    Set rs = Nothing

    Set cn = Nothing

End Sub

Il tutto funziona su qualunque PC, ma se creo un compilato .ACCDE il programma funziona perfettamente sul mio pc, mentre su altri PC sulla pressione del tasto Registra mostra il seguente errore:

"L'espressione su click immessa come impostazione della proprietà di evento ha generato l'errore seguente: Tipo non corrispondente."

Tengo a precisare che tutte le altre Routine Evento (apri maschera, chiudi, lost focus di controlli, etc..) funzionano sempre e comunque.

Cosa succede?

Resto in attesa di una risposta illuminante. Grazie.

Nicolò

Microsoft 365 e Office | Access | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

1 risposta

Ordina per: Più utili
  1. Anonimo
    2011-03-22T14:00:31+00:00

    Ciao, Nicolò.

    attendi per vedere se qualche frequentatore del forum è in grado di assisterti sul problema.

    Per permettere una più precisa identificazione ho modificato il titolo.

    La risposta è stata utile?

    0 commenti Nessun commento