Arkadaşlar,

Başka bir kanaldan ekteki gibi farklı bir çözüm örneği mevcut. Arkadaşlara faydası olur umarım.

Saygılar


Private Sub bit_Enter()

Finish = Timer

TotalTime = Round(((Finish - Start) / 60), 2)

Dim SQLQuery As String

vCompany = Company
vDate = Now()
vAgent_Name = "Cenk"
vTimer = TotalTime

SQLQuery = "INSERT INTO DATA (Company, zDate, Agent_Name, zTimer) SELECT '" & vCompany & "', '" & vDate & "', '" & vAgent_Name & "', '" & vTimer & "'"

DoCmd.SetWarnings False
DoCmd.RunSQL SQLQuery
DoCmd.SetWarnings True

MsgBox (Company & " SIRKETINDE " & TotalTime & " DAKIKA CALISILDI LUTFEN YENI BIR SIRKET SECINIZ")

End Sub