Mb Kurlar Eklenti

[Bakigemlik]

Merhaba Üstatlar,

Formda aradım ama bulamadım, kurları alabileceğimiz bir eklenti dosyası elinizde mevcut mu,

teşekkürler,

 

[Korhan Ayhan]

Merhaba,

Eklenti yerine genellikle buton ya da hücreye veri girildiği anda kuru getiren uygulamalar var.

Bunlarla ilgilide forumda birçok örnek var.

tcmb ya da döviz ifadeleri ile arama yapınız.

 

[Bakigemlik]

Merhaba,

Eklenti yerine genellikle buton ya da hücreye veri girildiği anda kuru getiren uygulamalar var.

Bunlarla ilgilide forumda birçok örnek var.

tcmb ya da döviz ifadeleri ile arama yapınız.

Sayın Korhan Bey,

ilginiz için teşekkürler, lakin ben Usd/Try ,Euro/Try,Usd/Euro kurlarını sık kullanıyorum ve bir excelde çalışırken bunlar acil olarak lazım olabiliyor bu nedenle her çalıştığım excelde sadece bu kurlara internetten bakmak yerine bir eklenti ile ulaşmak istemiştim,

Teşekkürler,

 

[Korhan Ayhan]

Size pariterlermi lazım?

 

[Bakigemlik]

Size pariterlermi lazım?

Evet Korhan Bey,

Usd / Try
Euro / Try
Usd /Euro

Bunlar lazım sadece,

Teşekkürler,

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

Sağ klik menüsüne ekleme yapılmıştır.

Dosyayı eklenti olarak kayıt edip kullanabilirsiniz. VBA ŞİFRESİ +++

Ayrıca eklenti dosyası olarak ekledim. Direk Add-Ins klasörüne kopyaladıktan sonra aktifleştirip dosyalarınızda kullanabilirsiniz.

Eklenti oluşturmayı bilmiyorsanız linki inceleyiniz.

Eklenti oluşturmak


Not: Dosyalar ve bağlantılar 03.07.2021 tarihinde revize edilmiştir.

 

[Bakigemlik]

Ekteki örnek dosyayı inceleyiniz.

Sağ klik menüsüne ekleme yapılmıştır.

Dosyayı eklenti olarak kayıt edip kullanabilirsiniz. VBA ŞİFRESİ +++

Ayrıca eklenti dosyası olarak ekledim. Direk Add-Ins klasörüne kopyaladıktan sonra aktifleştirip dosyalarınızda kullanabilirsiniz.

Eklenti oluşturmayı bilmiyorsanız linki inceleyiniz.

Eklenti oluşturmak

Değerli Hocam,

öncelikle sabrınıza ve ilginize teşekkür ederim,

Dosyayı eklenti olarak kaydettim ve sağ klik menümde oluştu ama bazı hatalar aldım bunları paylaşmak isterim,

Öncelikle eklentiyi eklendikten sonra diğer iki eklentim sağ klik menüsünden kayboldu,
Kur bilgilerinde USD / TRY , EURO / TRY ve USD /TRY bunlar sağ klik menüsünde gelmedi,
Diğer kurlar hakkında bilgi almayı denediğimde ise tarih ya da internet hatası alıyorsunuz diye ileti çıktı internetimde sorun yok muhtemelen tarihle ilgili sorun var,

değerli yardımlarınızı rica ederim,

Saygılarımla,

Teşekkürler,

 

[halit3]

Buda alternatif olsun

Kodları bir modül içine kapyalayın Sayfayada 1 adet textbox1 nesnesi ekleyin

Sayfanın içindeki textbox1 nesnesine istenen tarihi yaz hangi hücreye bilgi getirmek istiyorsan imlec o hücredeyken excelin yukarısındaki menülerden döviz kurlarından birini seç ve tıkla

Eklentiyide ekliyorum.

kod:

Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Sub kur_getir()

aranan = Application.CommandBars.ActionControl.Caption

a = ActiveWindow.Selection.Row
b = ActiveWindow.Selection.Column

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim IE As Object, URL As String

yer1 = "Bugün Bayram"
yer2 = "Bugün Tatil"

URL = "http://www.tcmb.gov.tr/yeni/kurlar/kurlar_tr.php"
Tarih = CDate((Format(Now, "dd.mm.yyyy")))

Dim Picture As Object
For Each Picture In ActiveSheet.Shapes

If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object) = "OLEObject" Then
If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Object) = "TextBox" Then
'Tarih = Worksheets(ActiveSheet.Name).TextBox1.Text
'Tarih = ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Name
Tarih = ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Object.Text
End If
End If
Next Picture


If IsDate(Tarih) = False Then MsgBox "Tarih Yanlış": Exit Sub

If Tarih < CDate(Format("01.01.2005", "dd.mm.yyyy")) Then MsgBox "01.01.2005 dan küçük olamaz.": Exit Sub
If CDate(Tarih) > Format(Now, "dd/mm/yyyy") Then MsgBox "Veri alınacak tarih bugünden büyük olamaz.": Exit Sub


If "01.01" = Format((Tarih), "dd/mm") Or "23.04" = Format((Tarih), "dd/mm") Or "01.05" = Format((Tarih), "dd/mm") Or "19.05" = Format((Tarih), "dd/mm") _
Or "30.08" = Format((Tarih), "dd/mm") Or "28.10" = Format((Tarih), "dd/mm") Or "29.10" = Format((Tarih), "dd/mm") Then: Cells(a, b).Value = (yer1): Cells(a, b).Value = (yer1): Cells(a, b).Value = (yer1): Exit Sub
If "Cumartesi" = Format(Tarih, "dddd") Or "Pazar" = Format(Tarih, "dddd") Then Cells(a, b).Value = (yer2): Cells(a, b).Value = (yer2): Cells(a, b).Value = (yer2): Exit Sub
If CDate(Tarih) = CDate(Format(Now, "dd.mm.yyyy")) And "15:30:00" >= CDate(Format(Now, "hh:nn")) Then Tarih = CDate((Format(Now, "dd.mm.yyyy"))) - 1 ': MsgBox "Bugün işlem yok saat 15:30:00 dan sonra yeniden deneyiniz." ': Exit Sub


Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = 0
apiShowWindow IE.hWnd, 2


deg1 = Format(Val(Mid(Tarih, 1, 2)), "00")
deg2 = Format(Val(Mid(Tarih, 4, 2)), "00")
deg3 = Format(Val(Mid(Tarih, 7, 4)), "00")

URL1 = "http://www.tcmb.gov.tr/kurlar/" & deg3 & deg2 & "/" & deg1 & deg2 & deg3 & ".html"
.Navigate URL1

Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop

Set html_tba = IE.Document.getElementsByTagName("Body")
Adres = Replace(Replace(WorksheetFunction.Trim(html_tba(0).InnerText), Chr(13), ""), Chr(10), " ")

If Mid(Replace(Adres, " ", ""), 1, 20) <> "SayfaGörüntülenemedi" Then

bol = 4

For i = 1 To 1
deg1 = Split(Adres, aranan)
If UBound(deg1) > 0 Then
deg2 = Split(deg1(1), " ")
Cells(a, b).Value = deg2(bol)
End If
Next


End If

IE.Quit: Set IE = Nothing
End With

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Sub Auto_Open()
On Error Resume Next
menü_ekle
End Sub

Sub Auto_Close()
On Error Resume Next
MenuSil

End Sub

Sub MenuSil()
Dim r
For r = Application.CommandBars("Worksheet Menu Bar").Controls.Count To 1 Step -1
If Application.CommandBars("Worksheet Menu Bar").Controls(r).Caption = "Döviz Kurları" Then
Application.CommandBars("Worksheet Menu Bar").Controls(r).Delete
ElseIf Application.CommandBars("Worksheet Menu Bar").Controls(r).Caption = "Çapraz Kurlar" Then
Application.CommandBars("Worksheet Menu Bar").Controls(r).Delete
End If
Next

End Sub


Sub menü_ekle()
[COLOR="Red"]'Application.CommandBars("Worksheet Menu Bar").Reset[/COLOR]


Dim AnaMenu As CommandBarControl

Set AnaMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With AnaMenu
.Caption = "Döviz Kurları"
.BeginGroup = False

End With

ReDim say(20)

say(1) = "USD/TRY"
say(2) = "EUR/TRY"
say(3) = "AUD/TRY"
say(4) = "DKK/TRY"
say(5) = "GBP/TRY"
say(6) = "CHF/TRY"
say(7) = "SEK/TRY"
say(8) = "CAD/TRY"
say(9) = "KWD/TRY"
say(10) = "NOK/TRY"
say(11) = "SAR/TRY"
say(12) = "JPY/TRY"
say(13) = "BGN/TRY"
say(14) = "RON/TRY"
say(15) = "RUB/TRY"
say(16) = "IRR/TRY"
say(17) = "BGL/TRY"
say(18) = "SYP/TRY"
say(19) = "JOD/TRY"
say(20) = "ILS/TRY"


For i = 1 To 20
With AnaMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = say(i)
.OnAction = "kur_getir"
.FaceId = 700
End With
Next




Set AnaMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With AnaMenu
.Caption = "Çapraz Kurlar"
.BeginGroup = False
End With


ReDim say2(15)
say2(1) = "USD/AUD"
say2(2) = "USD/DKK"
say2(3) = "USD/CHF"
say2(4) = "USD/SEK"
say2(5) = "USD/JPY"
say2(6) = "USD/CAD"
say2(7) = "USD/NOK"
say2(8) = "USD/SAR"
say2(9) = "EUR/USD"
say2(10) = "GBP/USD"
say2(11) = "KWD/USD"
say2(12) = "USD/BGN"
say2(13) = "USD/RON"
say2(14) = "USD/RUB"
say2(15) = "USD/IRR"

For i = 1 To 15
With AnaMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = say2(i)
.OnAction = "kur_getir"
.FaceId = 700
End With
Next

End Sub

 

[Korhan Ayhan]

Merhaba,

Üstteki mesajımdaki dosyaları güncelledim. Aktif gün içinde saat 15:30 a kadar bir önceki günün kurlarını ve paritelerini getirir. Günlük kur saat 15.30 da resmileştikten sonra alabilirsiniz.

 

[Bakigemlik]

Merhaba,

Üstteki mesajımdaki dosyaları güncelledim. Aktif gün içinde saat 15:30 a kadar bir önceki günün kurlarını ve paritelerini getirir. Günlük kur saat 15.30 da resmileştikten sonra alabilirsiniz.

Değerli Hocam,

Güncellemeler için teşekkürler, diğer eklentiler kaybolma hatası düzelmiş,

Fakat hala tarih hatası veriyor,

Bilgilerinize, Saygılarımla

 

[Bakigemlik]

Buda alternatif olsun

Kodları bir modül içine kapyalayın Sayfayada 1 adet textbox1 nesnesi ekleyin

Sayfanın içindeki textbox1 nesnesine istenen tarihi yaz hangi hücreye bilgi getirmek istiyorsan imlec o hücredeyken excelin yukarısındaki menülerden döviz kurlarından birini seç ve tıkla

Eklentiyide ekliyorum.

kod:

Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Sub kur_getir()

aranan = Application.CommandBars.ActionControl.Caption

a = ActiveWindow.Selection.Row
b = ActiveWindow.Selection.Column

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim IE As Object, URL As String

yer1 = "Bugün Bayram"
yer2 = "Bugün Tatil"

URL = "http://www.tcmb.gov.tr/yeni/kurlar/kurlar_tr.php"
Tarih = CDate((Format(Now, "dd.mm.yyyy")))

Dim Picture As Object
For Each Picture In ActiveSheet.Shapes

If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object) = "OLEObject" Then
If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Object) = "TextBox" Then
'Tarih = Worksheets(ActiveSheet.Name).TextBox1.Text
'Tarih = ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Name
Tarih = ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Object.Text
End If
End If
Next Picture


If IsDate(Tarih) = False Then MsgBox "Tarih Yanlış": Exit Sub

If Tarih < CDate(Format("01.01.2005", "dd.mm.yyyy")) Then MsgBox "01.01.2005 dan küçük olamaz.": Exit Sub
If CDate(Tarih) > Format(Now, "dd/mm/yyyy") Then MsgBox "Veri alınacak tarih bugünden büyük olamaz.": Exit Sub


If "01.01" = Format((Tarih), "dd/mm") Or "23.04" = Format((Tarih), "dd/mm") Or "01.05" = Format((Tarih), "dd/mm") Or "19.05" = Format((Tarih), "dd/mm") _
Or "30.08" = Format((Tarih), "dd/mm") Or "28.10" = Format((Tarih), "dd/mm") Or "29.10" = Format((Tarih), "dd/mm") Then: Cells(a, b).Value = (yer1): Cells(a, b).Value = (yer1): Cells(a, b).Value = (yer1): Exit Sub
If "Cumartesi" = Format(Tarih, "dddd") Or "Pazar" = Format(Tarih, "dddd") Then Cells(a, b).Value = (yer2): Cells(a, b).Value = (yer2): Cells(a, b).Value = (yer2): Exit Sub
If CDate(Tarih) = CDate(Format(Now, "dd.mm.yyyy")) And "15:30:00" >= CDate(Format(Now, "hh:nn")) Then Tarih = CDate((Format(Now, "dd.mm.yyyy"))) - 1 ': MsgBox "Bugün işlem yok saat 15:30:00 dan sonra yeniden deneyiniz." ': Exit Sub


Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = 0
apiShowWindow IE.hWnd, 2


deg1 = Format(Val(Mid(Tarih, 1, 2)), "00")
deg2 = Format(Val(Mid(Tarih, 4, 2)), "00")
deg3 = Format(Val(Mid(Tarih, 7, 4)), "00")

URL1 = "http://www.tcmb.gov.tr/kurlar/" & deg3 & deg2 & "/" & deg1 & deg2 & deg3 & ".html"
.Navigate URL1

Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop

Set html_tba = IE.Document.getElementsByTagName("Body")
Adres = Replace(Replace(WorksheetFunction.Trim(html_tba(0).InnerText), Chr(13), ""), Chr(10), " ")

If Mid(Replace(Adres, " ", ""), 1, 20) <> "SayfaGörüntülenemedi" Then

bol = 4

For i = 1 To 1
deg1 = Split(Adres, aranan)
If UBound(deg1) > 0 Then
deg2 = Split(deg1(1), " ")
Cells(a, b).Value = deg2(bol)
End If
Next


End If

IE.Quit: Set IE = Nothing
End With

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Sub Auto_Open()
On Error Resume Next
menü_ekle
End Sub

Sub Auto_Close()
On Error Resume Next
MenuSil

End Sub

Sub MenuSil()
Dim r
For r = Application.CommandBars("Worksheet Menu Bar").Controls.Count To 1 Step -1
If Application.CommandBars("Worksheet Menu Bar").Controls(r).Caption = "Döviz Kurları" Then
Application.CommandBars("Worksheet Menu Bar").Controls(r).Delete
ElseIf Application.CommandBars("Worksheet Menu Bar").Controls(r).Caption = "Çapraz Kurlar" Then
Application.CommandBars("Worksheet Menu Bar").Controls(r).Delete
End If
Next

End Sub


Sub menü_ekle()
Application.CommandBars("Worksheet Menu Bar").Reset


Dim AnaMenu As CommandBarControl

Set AnaMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With AnaMenu
.Caption = "Döviz Kurları"
.BeginGroup = False

End With

ReDim say(20)

say(1) = "USD/TRY"
say(2) = "EUR/TRY"
say(3) = "AUD/TRY"
say(4) = "DKK/TRY"
say(5) = "GBP/TRY"
say(6) = "CHF/TRY"
say(7) = "SEK/TRY"
say(8) = "CAD/TRY"
say(9) = "KWD/TRY"
say(10) = "NOK/TRY"
say(11) = "SAR/TRY"
say(12) = "JPY/TRY"
say(13) = "BGN/TRY"
say(14) = "RON/TRY"
say(15) = "RUB/TRY"
say(16) = "IRR/TRY"
say(17) = "BGL/TRY"
say(18) = "SYP/TRY"
say(19) = "JOD/TRY"
say(20) = "ILS/TRY"


For i = 1 To 20
With AnaMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = say(i)
.OnAction = "kur_getir"
.FaceId = 700
End With
Next




Set AnaMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With AnaMenu
.Caption = "Çapraz Kurlar"
.BeginGroup = False
End With


ReDim say2(15)
say2(1) = "USD/AUD"
say2(2) = "USD/DKK"
say2(3) = "USD/CHF"
say2(4) = "USD/SEK"
say2(5) = "USD/JPY"
say2(6) = "USD/CAD"
say2(7) = "USD/NOK"
say2(8) = "USD/SAR"
say2(9) = "EUR/USD"
say2(10) = "GBP/USD"
say2(11) = "KWD/USD"
say2(12) = "USD/BGN"
say2(13) = "USD/RON"
say2(14) = "USD/RUB"
say2(15) = "USD/IRR"

For i = 1 To 15
With AnaMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = say2(i)
.OnAction = "kur_getir"
.FaceId = 700
End With
Next

End Sub

Değerli Hocam alternatif için teşekkürler, benim için eklenti dosyası daha avantajlı bu nedenle bunu kullanmak isterim, fakat bu eklentiyi eklediğimde diğer eklentilerim kayboldu,

Saygılarımla, teşekkürler,

 

[Korhan Ayhan]

Tekrar güncelledim. Dener misiniz?

 

[halit3]

Değerli Hocam alternatif için teşekkürler, benim için eklenti dosyası daha avantajlı bu nedenle bunu kullanmak isterim, fakat bu eklentiyi eklediğimde diğer eklentilerim kayboldu,

Saygılarımla, teşekkürler,

Kodun burası fazladan kalmış bunu silin düzelmesi lazım.

[COLOR="Red"]Application.CommandBars("Worksheet Menu Bar").Reset[/COLOR]

kod burada zaten kendisinden başka eklentiyi silmiyor.

Sub MenuSil()
Dim r
For r = Application.CommandBars("Worksheet Menu Bar").Controls.Count To 1 Step -1
If Application.CommandBars("Worksheet Menu Bar").Controls(r).Caption = "Döviz Kurları" Then
Application.CommandBars("Worksheet Menu Bar").Controls(r).Delete
ElseIf Application.CommandBars("Worksheet Menu Bar").Controls(r).Caption = "Çapraz Kurlar" Then
Application.CommandBars("Worksheet Menu Bar").Controls(r).Delete
End If
Next

End Sub

 

[Bakigemlik]

Tekrar güncelledim. Dener misiniz?

Değerli Hocam,

Sabah yeni dosyanızı yüklemeden tekrar denedim ve kod çalıştı,

Dün saat 22:30 gibi denemiştim çalışmamıştı 15:30 dan sonra çalışmama gibi bir durum söz konusu olabilir mi ?

Şuanda çalışıyor herhangi bir sıkıntı görünmüyor,

Pariteler kısmında kodda aşağıdaki gibi bir alan var, Bu alanda görmek istemediklerimi silsem ve yerine mesala "EUR/USD" alanı eklesem euroyu getirir mi,

 Data_Parite = Array("USD/EUR", "EUR/USD", "USD/AUD", "USD/DKK", "USD/CHF", "USD/SEK", "USD/JPY", "USD/CAD", "USD/NOK", _
                  "USD/SAR", "GBP/USD", "KWD/USD", "USD/BGN", "USD/RON", "USD/RUB", "USD/IRR", "USD/CNY", "USD/PKR")

Desteğiniz ve emeğiniz için sonsuz teşekkürler

 

[Bakigemlik]

Kodun burası fazladan kalmış bunu silin düzelmesi lazım.

[COLOR="Red"]Application.CommandBars("Worksheet Menu Bar").Reset[/COLOR]

kod burada zaten kendisinden başka eklentiyi silmiyor.

Sub MenuSil()
Dim r
For r = Application.CommandBars("Worksheet Menu Bar").Controls.Count To 1 Step -1
If Application.CommandBars("Worksheet Menu Bar").Controls(r).Caption = "Döviz Kurları" Then
Application.CommandBars("Worksheet Menu Bar").Controls(r).Delete
ElseIf Application.CommandBars("Worksheet Menu Bar").Controls(r).Caption = "Çapraz Kurlar" Then
Application.CommandBars("Worksheet Menu Bar").Controls(r).Delete
End If
Next

End Sub

Hosam sizlerede çok teşekkürler Korhan Hocamın ve sizin verdiğiniz kodlar gayet güzel çalışıyor,

 

[Korhan Ayhan]

Zaten belirttiğiniz parametre var. Deneyin çalışması gerekiyor.

Data_Parite = Array("USD/EUR", [COLOR="Red"]"EUR/USD"[/COLOR], "USD/AUD", "USD/DKK", "USD/CHF", "USD/SEK", "USD/JPY", "USD/CAD", "USD/NOK", _
                  "USD/SAR", "GBP/USD", "KWD/USD", "USD/BGN", "USD/RON", "USD/RUB", "USD/IRR", "USD/CNY", "USD/PKR")

 

[Bakigemlik]

Zaten belirttiğiniz parametre var. Deneyin çalışması gerekiyor.

Data_Parite = Array("USD/EUR", [COLOR="Red"]"EUR/USD"[/COLOR], "USD/AUD", "USD/DKK", "USD/CHF", "USD/SEK", "USD/JPY", "USD/CAD", "USD/NOK", _
                  "USD/SAR", "GBP/USD", "KWD/USD", "USD/BGN", "USD/RON", "USD/RUB", "USD/IRR", "USD/CNY", "USD/PKR")

Hocam kusura bakmayın gözümden kaçmış,

Tekrar tekrar emeğinize sağlık,

 

[Bakigemlik]

Tekrar güncelledim. Dener misiniz?

Hocam Merhaba,

kod tekrar hata veriyor resmi tatil ya da hafta sonları ile ilgili sorun olabilir mi?

Teşekkürler,

 

[Korhan Ayhan]

Merhaba,

İşlerim yoğunlaştı. Bende denemelerimde uyarı mesajını alıyorum. Bunun için farklı bir ekleme yapmayı düşündüm. Sorgulama yaptığınızda bilgiye ulaşamadığı durumlarda "Sorguladığınız tarihe ait veri alınamadı! ......... tarihli veri alınacaktır. İşlemi onaylıyor musunuz?" şeklinde bir mesajla kullanıcıyı yönlendirip işleme devam ettirmeyi planlıyorum. Böylece hangi tarihe ait veriye ulaşılabilir olduğunu kullanıcı görebilecek.

Boş vaktimde bitirip foruma eklemeye çalışırım.

 

[Bakigemlik]

Merhaba,

İşlerim yoğunlaştı. Bende denemelerimde uyarı mesajını alıyorum. Bunun için farklı bir ekleme yapmayı düşündüm. Sorgulama yaptığınızda bilgiye ulaşamadığı durumlarda "Sorguladığınız tarihe ait veri alınamadı! ......... tarihli veri alınacaktır. İşlemi onaylıyor musunuz?" şeklinde bir mesajla kullanıcıyı yönlendirip işleme devam ettirmeyi planlıyorum. Böylece hangi tarihe ait veriye ulaşılabilir olduğunu kullanıcı görebilecek.

Boş vaktimde bitirip foruma eklemeye çalışırım.

Teşekkürler Korhan Bey,