tüm forum üyerine merhaba
kolay gelsin.
excel ile ilgili bir sıkıntım var,
çalışma1 isimli Excel dosyasında reaktif boyama sayfasında TÜKETİMLERİ AKTAR butonuna tıklayınca TÜKETİMLER sayfasına kimyasal madde ve miktarlarını aktarıyor. buraya kadar bir sorun yok.
Benim istediğim masaüstündeki TUKETIMLER isimli Access dosyasındaki TUKETIMLER veritabanına kaydetsin.inşallah olur.
yardımlarınızı bekliyorum
herkese hayırlı ramazanlar
kolay gelsin.
Sn husem;
Excel dosyasi aktar makrosuna call satiri ile VeriAktar prosedurunu ekleyip, aktarma islemi yapabilirsiniz.
For Satir = 11 To 96
If Worksheets("Reaktif Boyama").Columns(BM_Sutun).Rows(Satir) <> "" Then
Call VeriAktar(Worksheets("Reaktif Boyama").Columns(11).Rows(2), Worksheets("Reaktif Boyama").Columns(BM_Sutun).Rows(Satir), Worksheets("Reaktif Boyama").Columns(Tuketim_Sutun).Rows(Satir))
...
....
Next Satir
Sub VeriAktar(PrNo, Adi As String, Mik As Double)
Dim Kyt As DAO.Recordset, VT_Yer As String
VT_Yer = Workbooks.Item(1).Path & "\TUKETIMLER.mdb"
Set Kyt = dbengine.OpenDatabase(VT_Yer).OpenRecordset("Select * From TUKETIMLER")
Kyt.AddNew
Kyt!PARTI_NO = PrNo
Kyt!KIMYASAL_ADI = Adi
Kyt!TUKETIM_MIKTARI = Mik
Kyt!TARIH = Date
Kyt.Update
Kyt.Close: Set Kyt = Nothing
End Sub
sayın dsezgin83260
cevabınızı yeni gördüm, aynen dediğiniz gibi ekledim.
referances den DAO.3.6 yı ekledim.
VT_Yer = VT_Yer = Workbooks.Item(1).Path & "\TUKETIMLER.mdb"
VT_Yer iki defa yazılmış, birini sildim.
HER ŞEY TAMAM
çalışmamda bir yere geliyorum, takılıyorum, imdadıma hızır gibi yetişiyorsun.
ELİNİZE EMEĞİNİZE SAĞLIK.
ALLAH RAZI OLSUN
KOLAY GELSİN
