Personel & Zimmet Takip Programı (KZT-v.5) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1676.0

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Makro İle .mdb Dosyasına Sumif Uygulama  (Okunma sayısı 7343 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı musa_toprak_35

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: musa toprak
  • Doğum Yılınız: 1984
  • İl / İlçe: izmir
  • İşletim Sisteminiz: win7
  • Mesleğiniz: işçi
  • Office Versiyonunuz: 2007
Makro İle .mdb Dosyasına Sumif Uygulama
« : 21 Nisan 2013, 10:51:48 »
Kolay gelsin
Benim istediğim aşağıdaki tabloda ad alanında kısata göre arama yapıp karşılık gelen adet alanındaki sayıları toplatıp textbox'sa yazdırmak

Tablo

ID  ad        adet
1  beynir       5
2  zeytin      10
3  beynir      -2

Gibi

Teşekkürler Şimdiden
Kayıtlı

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Makro İle .mdb Dosyasına Sumif Uygulama
« Yanıtla #1 : 22 Nisan 2013, 09:39:18 »
Örnek dosya ekleyebilir misiniz?
Kayıtlı
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Makro İle .mdb Dosyasına Sumif Uygulama
« Yanıtla #2 : 04 Haziran 2013, 13:40:51 »
Dosyanız ektedir. :cooll
Kod: [Seç]
Private Sub CommandButton1_Click()
Dim rs As Object, conn As Object
TextBox2.Value = ""
Set conn = CreateObject("Adodb.connection")
Set rs = CreateObject("adodb.recordset")
conn.Open = "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\Test59.mdb"
Set rs = conn.Execute("select SUM(ADET) from Tablo1 where AD='" & TextBox1.Value & "'")
If rs(0) > 0 Then TextBox2.Value = rs(0)
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub
Alıntı yapılan: musa_toprak_35 - 21 Nisan 2013, 10:51:48
Kolay gelsin
Benim istediğim aşağıdaki tabloda ad alanında kısata göre arama yapıp karşılık gelen adet alanındaki sayıları toplatıp textbox'sa yazdırmak

Tablo

ID  ad        adet
1  beynir       5
2  zeytin      10
3  beynir      -2

Gibi

Teşekkürler Şimdiden
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »