Set atolye_paketleme = Sheets("ATOLYE_PAKETLEME")
MyRow = ActiveCell.Row
m_stok_kodu = Range("P_mamul_stok_kodu").Rows(MyRow).Value
p_miktar = Range("p_miktar").Rows(MyRow).Value
y_stok_kodu = m_stok_kodu
'______________
Set baglanti = New ADODB.Connection
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=C:\Users\zeynep\Desktop\batutek\anatolia\anatolia.accdb;"
Sql = "SELECT * FROM MAMUL_STOK Where STOK_KODU='" & m_stok_kodu & "'"
Set rs = New ADODB.Recordset
rs.Open Sql, baglanti, 1, 3
' rs.Open
A = rs.Fields("miktar").Value
Range("A10").Value = A
rs.Fields("miktar").Value = 10 + A
rs.Update
rs.Close
baglanti.Close
10+A lı yerde automation error hatası veriyor ayrıca A değeri 10 olmasına rağmen (veritabanında) bunu okuyamıyor. burda sorguyu mu yanlış yazdım. accesten veriyi okumaya çalışıyorum aynı zamanda da değiştirme yapacagım yardım ederseniz çok sevinirim.
MyRow = ActiveCell.Row
m_stok_kodu = Range("P_mamul_stok_kodu").Rows(MyRow).Value
p_miktar = Range("p_miktar").Rows(MyRow).Value
y_stok_kodu = m_stok_kodu
'______________
Set baglanti = New ADODB.Connection
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=C:\Users\zeynep\Desktop\batutek\anatolia\anatolia.accdb;"
Sql = "SELECT * FROM MAMUL_STOK Where STOK_KODU='" & m_stok_kodu & "'"
Set rs = New ADODB.Recordset
rs.Open Sql, baglanti, 1, 3
' rs.Open
A = rs.Fields("miktar").Value
Range("A10").Value = A
rs.Fields("miktar").Value = 10 + A
rs.Update
rs.Close
baglanti.Close
10+A lı yerde automation error hatası veriyor ayrıca A değeri 10 olmasına rağmen (veritabanında) bunu okuyamıyor. burda sorguyu mu yanlış yazdım. accesten veriyi okumaya çalışıyorum aynı zamanda da değiştirme yapacagım yardım ederseniz çok sevinirim.
((