ado referansını ekle vb projene
Private Sub bit_Enter()
Finish = Timer
TotalTime = Round(((Finish - Start) / 60), 2)
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim klasor
klasor = CurrentProject.Path & "\örnek.mdb"
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open klasor
End With
With rst
.ActiveConnection = conn
.Open "tabloadın", LockType:=adLockOptimistic
End With
With rst
.AddNew
.Fields("dakika").Value = TotalTime
.Update
End With
rst.Close
conn.Close
end sub
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz