Ajanda Çalışması Hakkında

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
27/06/2020, 13:12

berduş

Bu haliyle hiç bir yerde kullanmayın bence)
Önceki sürümünde denemelerimde doğru sonuç vermişti ama çok şey değişti.
Kafamda tam oturtamadigim için kaba taslak bir kod, ama tam haliyle bu kod accessteki sorguda kullanılacak, siz excelden bu sorguyu çağiracaksiniz gerçi excel'in fonksiyonlu sorguyu çalıştırabileceğini varsayıyorum
Önce accesste halledebilirsem excele uyarlamaya calisiriz)
27/06/2020, 13:28

kanakan52

(27/06/2020, 13:12)berduş yazdı: Bu haliyle hiç bir yerde kullanmayın bence)
Önceki sürümünde denemelerimde doğru sonuç vermişti ama çok şey değişti.
Kafamda tam oturtamadigim için kaba taslak bir kod, ama tam haliyle bu kod accessteki sorguda kullanılacak, siz excelden bu sorguyu çağiracaksiniz gerçi excel'in fonksiyonlu sorguyu çalıştırabileceğini varsayıyorum
Önce accesste halledebilirsem excele uyarlamaya calisiriz)


Hakkınız ödenmez  hocam. Allah razı olsun. Bukonuda sizden gelecek cevabı beklicem hocam. Bende bu arada diğer eksikliklere devam edeceğim de yine sormak istediğim bir konu var.. Aynı çalışma içinde filtreleme yapmak istediğimde;

sorgu içindeki Tablo alan adlarını ve  "eşit",  "eşit değil", "arasında" gibi değerleri değişken tanımlayabilir miyiz?

Aşağıdaki örnek için ; alan  = secim değişken atanabilir mi?
Ajandam.alan ='" & secim & "'"




Sub filtre()
Dim secim As String
Dim alan As String

Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\Database.accdb"

If ComboBox14.Value = "Başlama Zamanı" Then
alan = "BaslamaZamani"
ElseIf ComboBox14.Value = "Bitiş Zamanı" Then
alan = "BitisZamani"
ElseIf ComboBox14.Value = "Hatırlatma Zamanı" Then
alan = "HatirlatmaZamani"
End If

secim = TextBox11.Text
'..................Tarih Fitreleri.................................................
If ComboBox15.Value = "Eşittir" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1
ElseIf ComboBox15.Value = "Arasında" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1
ElseIf ComboBox15.Value = "Önce" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1
ElseIf ComboBox15.Value = "Sonra" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1
ElseIf ComboBox15.Value = "Geçen Ay" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1
ElseIf ComboBox15.Value = "Bu Ay" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1
ElseIf ComboBox15.Value = "Gelecek Ay" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1
ElseIf ComboBox15.Value = "Geçen Yıl" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1
ElseIf ComboBox15.Value = "Bu Yıl" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1
ElseIf ComboBox15.Value = "Gelecek Yıl" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1
'..................Metin Fitreleri.................................................
ElseIf ComboBox15.Value = "Eşittir" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1
ElseIf ComboBox15.Value = "Eşit Değil" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1
ElseIf ComboBox15.Value = "İle Başlar" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1
ElseIf ComboBox15.Value = "İle Biter" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1
ElseIf ComboBox15.Value = "İçerir" Then
rs.Open "select*from Ajandam WHERE Ajandam.alan ='" & secim & "'", baglan, 1, 1

End If

With ListView1
    .ListItems.Clear

    If rs.RecordCount > 0 Then
    Do While Not rs.EOF
        .ListItems.Add , , rs(0).Value & ""
        For i = 1 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

End Sub
27/06/2020, 13:51

berduş

Excel hakkında çok bilgim yok ama eğer Excel asıl sorguyu calistirabilirse, sorguyu koşullu da çalıştırabilir bence ama Excel konusunda @feraz bey daha bilgilidir.
27/06/2020, 14:22

feraz

(27/06/2020, 13:51)berduş yazdı: Excel hakkında çok bilgim yok ama eğer Excel asıl sorguyu calistirabilirse, sorguyu koşullu da çalıştırabilir bence ama Excel konusunda @feraz bey daha bilgilidir.
Daha öncedende yazdığım gibi eğer atıyorum her ayın 27 sinde hatırlatılacaksa.
Bir adet textbox eklenir hatırlatma süresi gibi mesela.
Kaydet tıklanınca accesse ilgili tarihten textboxa yazılan ay sayısı kadar veri kaydedilmiş olunur.Bu işlem kolay.
Yani 60 yazılırsa 5 senelik uyarı verdirilir her ay o gün geldiğinde.Tabii ayın 27 since axcel açılmazsa yani 28 inde açılırsa o zaman nasıl olacak birde bu durum var.
27/06/2020, 14:50

kanakan52

(27/06/2020, 14:22)feraz yazdı:
(27/06/2020, 13:51)berduş yazdı: Excel hakkında çok bilgim yok ama eğer Excel asıl sorguyu calistirabilirse, sorguyu koşullu da çalıştırabilir bence ama Excel konusunda @feraz bey daha bilgilidir.
Daha öncedende yazdığım gibi eğer atıyorum her ayın 27 sinde hatırlatılacaksa.
Bir adet textbox eklenir hatırlatma süresi gibi mesela.
Kaydet tıklanınca accesse ilgili tarihten textboxa yazılan ay sayısı kadar veri kaydedilmiş olunur.Bu işlem kolay.
Yani 60 yazılırsa 5 senelik uyarı verdirilir her ay o gün geldiğinde.Tabii ayın 27 since axcel açılmazsa yani 28 inde açılırsa o zaman nasıl olacak birde bu durum var.

Hocam bilgisayar açılmazsa sistemin çalışmasını engeller mi ?

Örnek veriyorum bu ayın 27 si pazara geldi açmadım bilgisayarı, Temmuz 27 de hatırlatmaz mı ? Sonuç olarak bir işlemin yapılacağı tarih birde hatırlatma tarihi olacak.
27/06/2020, 14:55

berduş

Yalniz veriler sorgu aracılığıyla geliyor ve sorgu da verileri günlük getiriyor önceki günün hatırlatmasını neden getirsin ki?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18