Ciao a tutti
Ho notato che questo codice che legge il num. dei record:
Private Sub NumRecordFrmDettaglioRegistrazioni(IdReg)
Me.Refresh
Dim con As ADODB.Connection
Dim rst As ADODB.Recordset
Set con = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "Select * FROM TblDettRegistrazione", con, adOpenKeyset, adLockOptimistic
rst.Filter = "IdRegistrazione=" & IdReg
Dim NumRecord As Long
NumRecord = rst.RecordCount
MsgBox NumRecord
If NumRecord > 1 Then
DoCmd.RunCommand acCmdDeleteRecord
End If
If NumRecord = 1 Then
DoCmd.RunCommand acCmdDeleteRecord
'Me.AllowAdditions = True
End If
If rst.EOF Then
MsgBox " Non ci sono record da eliminare"
Exit Sub
End If
rst.Close
con.Close
Set rst = Nothing
Set con = Nothing
rst.Close
con.Close
Set rst = Nothing
Set con = Nothing
End Sub
Dim NumRecord as long
l'istruzione NumRecord = rst.RecordCount mi da problemi di tipo dato
Se gira su office 2010 va bene; su office 365 no
Se dichiaro Dim NumRecord as LongLong su office 365 va bene,
E' chiaro che posso operare solo su un pc
Esiste un modo che mi consenta di non avere questo problemi e di operare su entrambi i pc?
Grazie
Saluti
RG