erdem dag
Yeni Üye
- Katılım
- 23 Nis 2023
- Mesajlar
- 5
- En iyi yanıt
- 0
- Puanları
- 3
- Yaş
- 46
- Konum
- istanbul
- Ad Soyad
- erdem dag
- Office Vers.
- office 2007
Merhaba, sizden bir ricam olacaktı değerli ustalarım
Excel ile accese veri gönderip alabiliyorum ancak yapmak istediğim şey şu şekilde:
A kolununda kaç satır veri varsa karşılığını accesden aşağdaki gibi almak maksadındayım sizden ricam.
B kolonuna accesden tanım gelmesi
C kolonuna accesden fiyat gelmesi
D kolonuna accesden miktar gelmesi; aynı artikel birden fazla kaydı var, toplamda kaç miktar var onun gelmesi sizden ricam ustalarım.
E kolonuna ise miktar çarpı fiyat yani tutarın gelmesi
F kolonuna ise datadaki tarih
NOT: Satır sayısı değişmektedir.
Accese veri göndermede kullandığım kodlar ise:
Sub artikel_işlemleri()
On Error Resume Next
Range("E3").Value = Now
Call database_open
Set DataKayitlari = DataBaglan.OpenRecordset("ARTİKEL")
DataKayitlari.AddNew
DataKayitlari.Fields("ARTİKEL") = Range("a3").Value
DataKayitlari.Fields("TANIM") = Range("b3").Value
DataKayitlari.Fields("SATICI") = Range("c3").Text
DataKayitlari.Fields("FİYAT") = Range("d3").Value
DataKayitlari.Fields("TARİH") = Range("E3").Value
DataKayitlari.Update
Call database_close
MsgBox "iŞLEM TAMAM"
End Sub
Excel ile accese veri gönderip alabiliyorum ancak yapmak istediğim şey şu şekilde:
A kolununda kaç satır veri varsa karşılığını accesden aşağdaki gibi almak maksadındayım sizden ricam.
B kolonuna accesden tanım gelmesi
C kolonuna accesden fiyat gelmesi
D kolonuna accesden miktar gelmesi; aynı artikel birden fazla kaydı var, toplamda kaç miktar var onun gelmesi sizden ricam ustalarım.
E kolonuna ise miktar çarpı fiyat yani tutarın gelmesi
F kolonuna ise datadaki tarih
NOT: Satır sayısı değişmektedir.
Accese veri göndermede kullandığım kodlar ise:
Sub artikel_işlemleri()
On Error Resume Next
Range("E3").Value = Now
Call database_open
Set DataKayitlari = DataBaglan.OpenRecordset("ARTİKEL")
DataKayitlari.AddNew
DataKayitlari.Fields("ARTİKEL") = Range("a3").Value
DataKayitlari.Fields("TANIM") = Range("b3").Value
DataKayitlari.Fields("SATICI") = Range("c3").Text
DataKayitlari.Fields("FİYAT") = Range("d3").Value
DataKayitlari.Fields("TARİH") = Range("E3").Value
DataKayitlari.Update
Call database_close
MsgBox "iŞLEM TAMAM"
End Sub