Merhaba Değerli Arkadaşlar,
Accesste Siparis tablosunda "Cari_Kodu" alanı var ama "Cari_Adı" alanı koymadım,
CariSabit tablosunda hem "Cari_Kodu" hem de "Cari_Adi" alanları var.
Excel userform üzerinde Siparis tablosunda olmayan "Cari_Adi" na göre filtre yapılabilir mi ?
yani iki tabloyu birleştirilip sorgu yazılabilir mi ?
Yardımlarınızı rica ediyorum.
Olumlu olumsuz her cevap için şimdiden teşekkür eder, saygılar sunarım.
Tabloda Olmayan Alana Göre Arama
çalışmanız olsaydı çözüm bulmak daha kolay olurdu, en azından öneride bulunmadan önce çalışıp çalışmadığını kontrol edebilirdik
ama varsayımsal olarak mümkün olduğunu düşünüyorum accesste olduğu gibi excelde de öyle bir sorgu oluşturulabilir
ama belirttiğim gibi çalışmanızı görmeden kesin bir şey söyleyemem
ama varsayımsal olarak mümkün olduğunu düşünüyorum accesste olduğu gibi excelde de öyle bir sorgu oluşturulabilir
ama belirttiğim gibi çalışmanızı görmeden kesin bir şey söyleyemem
(26/02/2021, 22:33)berduş yazdı: çalışmanız olsaydı çözüm bulmak daha kolay olurdu, en azından öneride bulunmadan önce çalışıp çalışmadığını kontrol edebilirdik
ama varsayımsal olarak mümkün olduğunu düşünüyorum accesste olduğu gibi excelde de öyle bir sorgu oluşturulabilir
ama belirttiğim gibi çalışmanızı görmeden kesin bir şey söyleyemem
@berduş hocam selamlar,
Değerli vaktiniz ve görüşleriniz için teşekkür ederim. @feraz hocam dün akşam konuyu çözüme kavuşturdu sağolsun, hızır gibi yetişti gene .
Müsait olunca örnek bir çalışma paylaşmaya çalışırım örnek olması açısından. Konu da açıkta kalmamış olur.
Tekrardan teşekkür eder, saygılar sunarım.
Konunun çözüme kavuşmasına sevindim ama sizden ricam eğer sorun uzak bağlantıyla çözülmüşse çözümü burada da paylaşmanız, böylece aynı sorunu yaşayacak diğer üyeler de çözümden faydalanabilirler.
Iyi çalışmalar.
Iyi çalışmalar.
(27/02/2021, 11:18)berduş yazdı: Konunun çözüme kavuşmasına sevindim ama sizden ricam eğer sorun uzak bağlantıyla çözülmüşse çözümü burada da paylaşmanız, böylece aynı sorunu yaşayacak diğer üyeler de çözümden faydalanabilirler.
Iyi çalışmalar.
@berduş hocam bir önceki mesajımda da belirttiğim gibi Access olan bilgisayara geçtiğimde paylaşacağım. Herkes faydalansın bende isterim. İlginize teşekkür ederim.
Merhabalar,
Konunun çözümü aşağıdaki gibidir.
Aşağıda görseli bulunan database de görüldüğü gibi müşteri adı bulumuyor.
[img][/img]
Dolayısı ile userformda doğrudan müşteri adına göre arama yapamıyoruz. Bu durumda cari adına ulaşabileceğimiz bir tablo lazım.Bu tablo cari sabit bilgilerinin bulunduğu tablo olabilir,
Şimdi yapılması gereken veritabanında CariSabit tablosu ile Siparişler tablosunu her iki tabloda aynı olan Cari kodu alanı ile birleştirip, buna göre sorgu yazmak,
Hangi textboxta arama yapılacaksa o textbox'ın change olayına ;
şeklinde kodumuzu yazıp, aşağıdaki sonuca ulaşabiliyoruz.
Umarım açıklayıcı olmuştur.
Özel bilgiler içerdiğinden dosya paylaşımı maalesef yapamıyorum.
Konunun çözümü aşağıdaki gibidir.
Aşağıda görseli bulunan database de görüldüğü gibi müşteri adı bulumuyor.
[img][/img]
Dolayısı ile userformda doğrudan müşteri adına göre arama yapamıyoruz. Bu durumda cari adına ulaşabileceğimiz bir tablo lazım.Bu tablo cari sabit bilgilerinin bulunduğu tablo olabilir,
Şimdi yapılması gereken veritabanında CariSabit tablosu ile Siparişler tablosunu her iki tabloda aynı olan Cari kodu alanı ile birleştirip, buna göre sorgu yazmak,
Hangi textboxta arama yapılacaksa o textbox'ın change olayına ;
Kod:
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\Database\veritabani.accdb"
rs.Open "SELECT * FROM SiparisKayitlari as s INNER JOIN carikart as c ON c.CARIKOD = s.Cari_Kod WHERE c.CARIADI Like '" & TextBox2.Text & "%'", baglan, 1, 1
With ListView1
.ListItems.Clear
If rs.RecordCount > 0 Then
Do While Not rs.EOF
.ListItems.Add , , rs(1).Value & ""
For i = 2 To rs.Fields.Count - 1
.ListItems(.ListItems.Count).ListSubItems.Add , , rs(i).Value & ""
Next i
rs.MoveNext
Loop
End If
End With
Set rs = Nothing
Set con = Nothing
Umarım açıklayıcı olmuştur.
Özel bilgiler içerdiğinden dosya paylaşımı maalesef yapamıyorum.
Son Düzenleme: 01/03/2021, 20:47, Düzenleyen: kanakan52.
(Sebep: Yanlış resim dizilişi.)
Konuyu Okuyanlar: 2 Ziyaretçi