25/01/2010, 13:49
birden fazla kritere göre form açmak
25/01/2010, 14:38
Nurullah_Serdar
dim kriterim as string
If Not IsNull(Me.adı) Then 'Ad alanınde değer varsa
kriterim = "adı='" & Me.adı & "'"
End If
If Not IsNull(Me.Senet_no) Then ' hizmet alanında değer varsa
If Len(kriterim) > 0 Then ' kriter var ise
kriterim = kriterim & " and [Senet no]=" & Me.Senet_no
Else ' kriter yoksa
kriterim = "[Senet no]=" & Me.Senet_no
End If
End If
kriteri bu şekilde oluştur. sorun olmayacaktır.[/align]
If Not IsNull(Me.adı) Then 'Ad alanınde değer varsa
kriterim = "adı='" & Me.adı & "'"
End If
If Not IsNull(Me.Senet_no) Then ' hizmet alanında değer varsa
If Len(kriterim) > 0 Then ' kriter var ise
kriterim = kriterim & " and [Senet no]=" & Me.Senet_no
Else ' kriter yoksa
kriterim = "[Senet no]=" & Me.Senet_no
End If
End If
kriteri bu şekilde oluştur. sorun olmayacaktır.[/align]
25/01/2010, 15:01
farukpoyraz
beceremedim.eke dosyamı koydum bir uygulayabilirmisiniz. ben ülke , vekil ve hizmete göre search yapmak istiyorum dediğim gibi birini yada ikisini yada üçünü girdiğimde seçtiğim bilgileri getirsin istiyorum.birde birşey daha ben searche nasıl boş getirebilirim açılan kutuları. teşekkürler.
25/01/2010, 16:12
Nurullah_Serdar
kodu bununla değiştir
Dim kriterim As String
If Not IsNull(Me.ulke) Then 'ulke alanınde değer varsa
kriterim = "ulke='" & Me.ulke & "'"
End If
If Not IsNull(Me.vekil) Then ' hizmet alanında değer varsa
If Len(kriterim) > 0 Then ' kriter var ise
kriterim = kriterim & " and [vekil]='" & Me.vekil & "'"
Else ' kriter yoksa
kriterim = "[vekil]='" & Me.vekil & "'"
End If
End If
If Not IsNull(Me.hizmet) Then ' hizmet alanında değer varsa
If Len(kriterim) > 0 Then ' kriter var ise
kriterim = kriterim & " and [hizmet]='" & Me.hizmet & "'"
Else ' kriter yoksa
kriterim = "[hizmet]='" & Me.hizmet & "'"
End If
End If
DoCmd.OpenForm "firmadetaylari", , , kriterim
yalnız anlamadığım bir konu var. arama yaptığın formun neden denetim kaynağı var.
arama yapmak için kriter belirlediğin formun denetim kaynağı olmamasını tavsiye ederim. yalnızca arama işlemine hizmet etmeli.
kolay gelsin
Dim kriterim As String
If Not IsNull(Me.ulke) Then 'ulke alanınde değer varsa
kriterim = "ulke='" & Me.ulke & "'"
End If
If Not IsNull(Me.vekil) Then ' hizmet alanında değer varsa
If Len(kriterim) > 0 Then ' kriter var ise
kriterim = kriterim & " and [vekil]='" & Me.vekil & "'"
Else ' kriter yoksa
kriterim = "[vekil]='" & Me.vekil & "'"
End If
End If
If Not IsNull(Me.hizmet) Then ' hizmet alanında değer varsa
If Len(kriterim) > 0 Then ' kriter var ise
kriterim = kriterim & " and [hizmet]='" & Me.hizmet & "'"
Else ' kriter yoksa
kriterim = "[hizmet]='" & Me.hizmet & "'"
End If
End If
DoCmd.OpenForm "firmadetaylari", , , kriterim
yalnız anlamadığım bir konu var. arama yaptığın formun neden denetim kaynağı var.
arama yapmak için kriter belirlediğin formun denetim kaynağı olmamasını tavsiye ederim. yalnızca arama işlemine hizmet etmeli.
kolay gelsin
25/01/2010, 16:20
farukpoyraz
ben bu işin acemisiyim ondan :-) Peki size birşey sorsam arama yapacağım kriterler varya onlara ayrı bir tablo açmam gereklimi? yani firma detayları tablosundan arama yaptırmak istesem yapamammı?bu fikrine çok ihtiyacım var.
25/01/2010, 16:24
Nurullah_Serdar
gerek yok. arama kriterlerini açılan kutu ile tablolarınızın ilgili bölümlerinden seçebilirsiniz. mesela adı alanında arama yaptırmak istiyorsun. bir açılan kutu oluştur ve sihirbazı takip ederek adı alanını içeren tablondan yalnızca adı alanını seç.
kolay gelsin.
kolay gelsin.