[Yardım]  Kapalı dosyadan comboboxa veri alma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Kapalı dosyadan comboboxa veri alma

İleti#1)  mutu54 » 11 Oca 2019 10:11

Kod: Tümünü seç
Sorgu = "Select Adı from [KimlikData$] where '" & "' and BelgePRID = '" & veri1 & "' "
        Set Rs = con.Execute("[KimlikData$]") & "Sorgu"



Bunda bir hata alıyorum set rs bölümünü nasıl düzenlemem gerekiyor acaba
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 18:05
Meslek: ön muhasebe
Yaş: 27
İleti: 61
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Kapalı dosyadan comboboxa veri alma

İleti#2)  mutu54 » 11 Oca 2019 10:23

Kod: Tümünü seç
Sub Combobox()
Dim con As Object
Set con = CreateObject("adodb.connection")
veri1 = Range("J3").Value
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
        "C:\Users\BELALAN\Desktop\resim açma2\Yeni klasör\PersonelÖzlükTakip.xlsm" & ";extended properties=""excel 12.0;hdr=yes"""
        Sorgu = "Select Adı from [KimlikData$] where '" & "' and BelgePRID = '" & veri1 & "' "
        Set Rs = con.Execute("[KimlikData$]" & "[Sorgu$]")
         Sheets("Sayfa1").ComboBox1.Column = Rs.GetRows
End Sub


Arkadaşlar Burada sadece tek bir kolonu alıyor bana Bana sorgu sonucuna göre vermesini istiyorum orayı
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 18:05
Meslek: ön muhasebe
Yaş: 27
İleti: 61
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Kapalı dosyadan comboboxa veri alma

İleti#3)  mutu54 » 11 Oca 2019 11:20

ÇOK SAĞOLUN ARKADAŞLAR ÇÖZDÜM YA GEREK KALMADI
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 18:05
Meslek: ön muhasebe
Yaş: 27
İleti: 61
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot], Yandex[Bot] ve 2 misafir

Bumerang - Yazarkafe