Çoklu Kriterli Sorgulama ve cevap

[omeryılmaz]

Arkdaşlar Aşağıdaki If ' de yazılı (sgr35 , sgr3 , ihlaltarihi, sgr6 , sgr9 ) Kriterlerin hepsi veritabanıyla uygun alsada olmasada sonuç Else den sonraki

sgr37.Text = Sheets("YASALMEVZUAT").Range("K19").Value
sgr37.Left = 16200
sgr37.Text = ""
CommandButton45.Left = 16200

MsgBox " " & sgr3.Text & " Tarihinde İlk Uyarı Olduğu için. " & vbLf & "Cezai İşlem Uygun değil!" & _
vbLf & "İyi Çalışmalar.", vbExclamation, "Dikkat !"
sgr31.Text = "Uyarı Tutanağı"

sonucu veriyor.

Hatayı çözemedim..

Yardımlarınız için şimdiden şükranlarımı sunuyorum....
'------------------------------------------------------------------------------------------------------------------------------
Private Sub sgr31_Click()

If sgr35.Text = "E" And sgr3.Text = ihlaltarihi.Text And sgr6.Text = Sheets("Liste").Range("F2").Value And sgr9.Text = Sheets("Liste").Range("I2").Value Then

sgr37.Text = Sheets("YASALMEVZUAT").Range("K19").Value
MsgBox "4207 S.K. Md: 5/2. gereği İşletmeye Uyarı Tutanağı düzenlenmiş. " & vbLf & "İşletmeci Uyarıldığından!" & _
vbLf & "Cezai İşlemi Seçiniz!!", vbCritical, "Uyarı."
sgr31.Text = "Ceza Tutanağı"
If buyuk = "" Then
sgr37.Left = 162
CommandButton45.Left = 162
Else
sgr37.Left = 230
CommandButton45.Left = 230
End If


Else

sgr37.Text = Sheets("YASALMEVZUAT").Range("K19").Value
sgr37.Left = 16200
sgr37.Text = ""
CommandButton45.Left = 16200

MsgBox " " & sgr3.Text & " Tarihinde İlk Uyarı Olduğu için. " & vbLf & "Cezai İşlem Uygun değil!" & _
vbLf & "İyi Çalışmalar.", vbExclamation, "Dikkat !"
sgr31.Text = "Uyarı Tutanağı"


End If
End Sub

 

[Korhan Ayhan]

Merhaba,

Sorgunuzda bir problem görünmüyor. Bence sorgu içindeki değerleri kontrol edin. Eğer çözüm bulamıyorsanız örnek dosyanızı eklerseniz inceleme şansımız olabilir.

 

[omeryılmaz]

Merhaba,

Sorgunuzda bir problem görünmüyor. Bence sorgu içindeki değerleri kontrol edin. Eğer çözüm bulamıyorsanız örnek dosyanızı eklerseniz inceleme şansımız olabilir.

Hocam If deki Kriterleri TextBoxlara

Kriter1.Text = sgr35
Kriter2.Text = ihlaltarihi.Text
Kriter3.Text = Sheets("Liste").Range("F2").Value
Kriter4.Text = Sheets("Liste").Range("I2").Value


diye doğru şekilde kriter bilgilerini TextBoxlara alıyorum ve

Yukardaki If kurulumunu

If sgr35.Text = Kriter1.Text And sgr3.Text = Kriter2.Text And sgr6.Text = Kriter3.Text And sgr9.Text = Kriter3.Text Then


bu şekilde yazdığım halde yine Elseden sonraki kriteri veriyor
Dosya üzerinde anlatmam daha zor olacağından, paylaşamadım.

 

[Mustafa MUTLU]

Sayın omeryılmaz
Dosyanızı eklerseniz belki bizde faydalanırız.
Tütünle mücadelede
Bende bir Dosya hazırlamaya başladım.
Belki yararlanacağım bazı bölümler olabilir.

 

[omeryılmaz]

Sayın omeryılmaz
Dosyanızı eklerseniz belki bizde faydalanırız.
Tütünle mücadelede
Bende bir Dosya hazırlamaya başladım.
Belki yararlanacağım bazı bölümler olabilir.

Dosyanın orjinali ekte

Bazı eksiklikler var çözmeye çalışıyorum

Aynı T.C. vergi Nolu Kişiye ait Aynı işletme ismi ile ve ayrı adreslerdeki işletmelerin işlemlerinde sorun yaşamaktayım.....

Biliyorsunuz bir Tab fazlalık bir çok şeyi değiştiriyor...
Sadece Sayısal Kriterler olmadığından işletmelere ait sorgulamalar sorunlu....

Elimden geldiği kadar yapmaya çalıştım destek ve önerileriniz için şimdiden şükranlarımı sunuyorum....

 

[Mustafa MUTLU]

Dosya Eklenmemiş !.

 

[omeryılmaz]

Dosyanın orjinali ekte

Bazı eksiklikler var çözmeye çalışıyorum

Aynı T.C. vergi Nolu Kişiye ait Aynı işletme ismi ile ve ayrı adreslerdeki işletmelerin işlemlerinde sorun yaşamaktayım.....

Biliyorsunuz bir Tab fazlalık bir çok şeyi değiştiriyor...
Sadece Sayısal Kriterler olmadığından işletmelere ait sorgulamalar sorunlu....

Elimden geldiği kadar yapmaya çalıştım destek ve önerileriniz için şimdiden şükranlarımı sunuyorum....

Winzip ve winrarlı 1.96 MB olması nedeniyle ekleyemedim

 

[Korhan Ayhan]

Merhaba,

Sorunuzun çözülmesi adına eğer özel bilgiler içermiyorsa mail adresime yollarsanız inceleyebilirim.