Buongiorno,
sto sbattendo la testa con questo problema che non riesco ad aggirare.
Access va in crash come provo a modificare qualsiasi campo di una tabella locale.
Eseguendo il codice seguente in debug Access si arresta cercando di eseguire la riga
Rs.Fields("Action") = 8
Private Sub TxtOra_AfterUpdate()
Dim Rs As Recordset
Set Rs = CurrentDb.OpenRecordset("LOC_ras_AttRecord", dbOpenDynaset)
Rs.MoveLast
Rs.FindFirst ("[DIN] =" & DIN & " AND [Clock] = #" & Format(DataOra, "yyyy/mm/dd hh:mm:ss") & "#")
If Rs.NoMatch Then
MsgBox "Non trovo il record relativo nella tabella LOC_ras_AttRecord"
Exit Sub
End If
Debug.Print Rs.Fields("Clock") & "<-" & CDate(Format(Me.TxtData, "yyyy/mm/dd") & " " & Me.TxtOra)
Rs.Edit
Rs.Fields("Action") = 8
Rs.Fields("Clock") = CDate(Format(Me.TxtData, "yyyy/mm/dd") & " " & Me.TxtOra)
Rs.Fields("CollectDate") = Now
Rs.Update
Rs.Close
Forms!Presenze!Sottomaschera_Timbrature2_CampiIncrociati.Requery
End Sub
Ho provato a modificare l'ordine dei campi da modificare ma niente. Va in crash qualsiasi campo provi a toccare.
Suggerimenti?