1 - öğrenci takip Sorgu sorgusunu düzeltmemişsiniz?
2 - xl.Range("B3") = Dlookup ("[Adı_Soyadı]", "öğrenci takip Sorgu") bu kodda tek alttire kullanmışsınız
xl.Range("B3") = Dlookup ("[Adı__Soyadı]", "öğrenci takip Sorgu") deki gibi 2 alttire olmalıydı

---

(07/08/2021, 13:24)17mart yazdı: Set xlwkbk = xl.Workbooks.Open(CurrentProject.Path & "\Ogrenci_Bilgi.xlsx") hatası veriyor

ya Excel dosyısı yoktur yada siz çalışmayı winrar içinde açmışsınızdır

(07/08/2021, 13:26)berduş yazdı: 1 - öğrenci takip Sorgu sorgusunu düzeltmemişsiniz?
2 -  xl.Range("B3") = Dlookup ("[Adı_Soyadı]", "öğrenci takip Sorgu") bu kodda tek alttire kullanmışsınız
xl.Range("B3") = Dlookup ("[Adı__Soyadı]", "öğrenci takip Sorgu") deki gibi 2 alttire olmalıydı

---

(07/08/2021, 13:24)17mart yazdı: Set xlwkbk = xl.Workbooks.Open(CurrentProject.Path & "\Ogrenci_Bilgi.xlsx") hatası veriyor

ya Excel dosyısı yoktur yada siz çalışmayı winrar içinde açmışsınızdır

yok winrardan cıkmış durumda acık suan

(07/08/2021, 13:29)17mart yazdı: yok winrardan cıkmış durumda acık suan

demek ki Excel dosyanız yok.

(07/08/2021, 13:32)berduş yazdı:

(07/08/2021, 13:29)17mart yazdı: yok winrardan cıkmış durumda acık suan

demek ki Excel dosyanız yok.

evet yanında exel dosyası yok tek Access var

bahsettiğim son düzenlemeleri yaptınız mı?
bende yazdırma kodu bahsettiğim değişiklikleri yapınca sorunsuz çalıştı

(07/08/2021, 13:33)17mart yazdı:

(07/08/2021, 13:32)berduş yazdı:

(07/08/2021, 13:29)17mart yazdı: yok winrardan cıkmış durumda acık suan

demek ki Excel dosyanız yok.

evet yanında exel dosyası yok tek Access var

öğrenci takip sorguda

Soyadı: [Adı Soyadı] & " " & [Soyadı]

bu şekilde

---

(07/08/2021, 13:33)berduş yazdı: bahsettiğim son düzenlemeleri yaptınız mı?
ben de yazdırma kodu bahsettiğim değişiklikleri yapınca sorunsuz çalıştı

yaptıgınız öğrenği yüklermisiniz acaba

herşeyi yapmaya calıstım