Merhaba arkadaşlar,
hayırlı işler.
eklediğim formadaki parti numarası kısmından seçmiş olduğum partiye ait tablodaki verileri YENİ PARTİ numarasıyla tabloya eklemesini istiyorum. yeni parti numarası verdiremedim. yardımcı olabilirmisiniz?

[img][Resim: https://resim.accesstr.net/do.php?img=16552][/img]

Öncelikle merhaba,
Üzerinde çalıştığım bir projede accsess ile aynı klasörde buluna hazır excelde yapılmış bir şablona veri aktarıyorum.
kullandığım kod

 Dim objExcel

Dim objWorkBook

Set objExcel = CreateObject("EXCEL.APPLICATION")

objExcel.Visible = True

Set objWorkBook = objExcel.Workbooks.Open(CurrentProject.Path & "\raportemp.xlsx")



objExcel.Range("E15") = Dlookup ("[id]", "ExceleVer")

objExcel.Range("E16") = Dlookup ("[ekipman_no]", "ExceleVer")





End Sub

 
merak etti