21/10/2014, 13:49
Işin Bağcilar
İyi Günler;
Formda hazırlamış olduğum verileri bir tabloya aşağıdaki şekilde aktarıyorum.
Masa üstündeki bir Excel i Access e linklesem (başlıklar aynı olacak şekilde) , aşağıdaki kodlamada ne değişikliği yapmam gerekmektedir?
Private Sub Command123_Click()
Dim rs As New ADODB.Recordset
rs.Open "Rakip_Fiyatları", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("Tarih") = Me.Tarih.Value
rs("No") = Me.No.Value
rs("Müşteri") = Me.Müşteri.Value
rs("Brüt Teklif") = Me.Brüt.Value
rs("Net Teklif") = Me.Net.Value
rs("Rakip Marka") = Me.AB1.Value
rs("Rakip No") = Me.AB6.Value
rs("Rakip Brüt Fiyat TL") = Me.AB2.Value
rs("Rakip İskonto") = Me.AB3.Value
rs("Rakip Net Fiyat TL") = Me.AB4.Value
rs("Rakip Net Euro") = Me.AB5.Value
rs("Not") = Me.Not.Value
rs.Update
Set rs = Nothing
End Sub
Formda hazırlamış olduğum verileri bir tabloya aşağıdaki şekilde aktarıyorum.
Masa üstündeki bir Excel i Access e linklesem (başlıklar aynı olacak şekilde) , aşağıdaki kodlamada ne değişikliği yapmam gerekmektedir?
Private Sub Command123_Click()
Dim rs As New ADODB.Recordset
rs.Open "Rakip_Fiyatları", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("Tarih") = Me.Tarih.Value
rs("No") = Me.No.Value
rs("Müşteri") = Me.Müşteri.Value
rs("Brüt Teklif") = Me.Brüt.Value
rs("Net Teklif") = Me.Net.Value
rs("Rakip Marka") = Me.AB1.Value
rs("Rakip No") = Me.AB6.Value
rs("Rakip Brüt Fiyat TL") = Me.AB2.Value
rs("Rakip İskonto") = Me.AB3.Value
rs("Rakip Net Fiyat TL") = Me.AB4.Value
rs("Rakip Net Euro") = Me.AB5.Value
rs("Not") = Me.Not.Value
rs.Update
Set rs = Nothing
End Sub