Arkadaşlar ekte yapılmış olan Timer değerini daha önce bir tabloda açılmış olan bir değere atayarak kaydetmek istiyorum. Ms access'de vb ile kayıt nasıl yapılacağını anlatabilirmisiniz.
Saygılar[/color]
Option Compare Database
Dim Start
Private Sub bas_Enter()
Start = Timer
End Sub
Private Sub bit_Click()
End Sub
Private Sub bit_Enter()
Finish = Timer
TotalTime = Round(((Finish - Start) / 60), 2)
MsgBox (TotalTime & " dakika")
End Sub
Arkadaşlar,
Yardımcı olabilecek hiç vatandaş yok mu ?
Saygılar
Sayın ebekkaya
Ekteki kronometre uygulamasını indirip inceleyiniz. Burada saat bilgisinide kaydetmek isterseniz hangi aşamada kaydedilecekse(Butona basma vs.) orada saat bilgisini tablodaki bir alana kaydetmeniz yeterlidir.
NOT : Program eşref hocamızdan alıntı diye hatırlıyorum.
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
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