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ò