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
VB ile MS Access tablolarına kayıt yapabilme
Bu Konudaki Yorumlar |
VB ile MS Access tablolarına kayıt yapabilme - Yazar: ebekkaya - 02/03/2009, 15:03
Cvp: VB ile MS Access tablolarına kayıt yapabilme - Yazar: ebekkaya - 03/03/2009, 12:09
Cvp: VB ile MS Access tablolarına kayıt yapabilme - Yazar: alpeki99 - 03/03/2009, 12:39
Cvp: VB ile MS Access tablolarına kayıt yapabilme - Yazar: esrefigit - 03/03/2009, 15:11
Cvp: VB ile MS Access tablolarına kayıt yapabilme - Yazar: ebekkaya - 03/03/2009, 18:17
Cvp: VB ile MS Access tablolarına kayıt yapabilme - Yazar: ebekkaya - 04/03/2009, 16:58
|
Konuyu Okuyanlar: 1 Ziyaretçi