(22/08/2021, 14:14)berduş yazdı: rica ederim
iyi çalışmalar

Berduş hocam kaydettiğim verileri tekrar excele çektiğimde veri exceldeki hücreye bu şekilde geliyor <font color=red>MERVE TÜRE</font> neden acaba

---

(22/08/2021, 14:14)berduş yazdı: rica ederim
iyi çalışmalar

Veri çekmede kullandığım kodlar

Sub VeriyiCagir()

' Vba Tools sekmesindeki "Referanslar bölümüne tıklayın"

' "Microsoft Office xx.0 Access database engine Object Library" alanını seçmeniz gereklidir.



    On Error Resume Next

    Dim DataBaglan As DAO.Database

    Dim DataKayitlari As DAO.Recordset

   ' Dim EgitimNumarasi As Integer

   ' EgitimNumarasi = Range("J2").Value ' Eğitim Numarası yazılı olan sayıyı aldım.

    Set DataBaglan = OpenDatabase("C:\Users\mert\Desktop\çalışma\ANASAYFA.accdb")

    

    'EgitimListesi tablosu içerisinde veri çağırmak için

    Dim adresANASAYFA As String

    adresANASAYFA = "SELECT * FROM ANASAYFA "

    Set DataKayitlari = DataBaglan.OpenRecordset(adresANASAYFA, dbOpenSnapshot)

    



If DataKayitlari.NoMatch Then 'Nomatch özelliktir. Bu özellik kayıt bulduysa False gönderir. kayıt bulamadıysa True gönderir.

   MsgBox "Eğitim ID numarasını kontrol ediniz, Eğitim bulunamadı! ", vbCritical, "Hata"

       

Else



    Range("A2").CopyFromRecordset DataKayitlari

    Range("B2") = DataKayitlari.Fields("SİCİL") * 1

    Range("C2") = DataKayitlari.Fields("TC KİMLİK NO") * 1

    Range("D2") = DataKayitlari.Fields("ADI SOYADI")

    Range("E2") = DataKayitlari.Fields("GÖREVİ")

    Range("F2") = DataKayitlari.Fields("İŞE GİRİŞ TARİHİ")

     Range("G2") = DataKayitlari.Fields("ÇALIŞMA DURUMU")

    

    DataKayitlari.Close

    Set DataKayitlari = Nothing

    DataBaglan.Close

    Set DataBaglan = Nothing



End If





End Sub