combobox sorunu

[YaPaY]

formda bir combobox'um var. ismi combo.337, buradaki değeri sorguya göndermek istiyorum ama beceremedim. Sorguyu/raporu çalıştıran command button click eventinde şu var:

Kod:
stDocName = "voltblfinans"
DoCmd.OpenReport stDocName, acPreview, "[Fair]=combo337.value"


bunu çalıştırdığımda değer girebileceğim bir box acılıyor ve değeri girdiğimde sorun yok ama dediğim gibi istediğim bu değeri elle girmek değil combodan alması.

 

[modalı]

Sayın YaPay,

DoCmd.OpenReport stDocName, acPreview, "[Fair]=combo337.value" satırında girilecek olan where cümlesi metin olmak zorunda ve başvuru olduğuna göre ayrı bir değişkene atamanız gerekir. Ama [Fair] alanınızın veri türünü de bilmemiz gerekiyor.

Yapılacak değişiklikler:

Dim strWhere As String

strWhere = "[Fair]= " & combo.337.Value 'Eğer combonun veri türü sayı ise
strWhere = "[Fair]= '" & combo.337.Value & "'" 'Eğer combonun veri türü metin ise.

stDocName = "voltblfinans"
DoCmd.OpenReport stDocName, acPreview, strWhere

İyi çalışmalar

 

[YaPaY]

Sayın YaPay,

DoCmd.OpenReport stDocName, acPreview, "[Fair]=combo337.value" satırında girilecek olan where cümlesi metin olmak zorunda ve başvuru olduğuna göre ayrı bir değişkene atamanız gerekir. Ama [Fair] alanınızın veri türünü de bilmemiz gerekiyor.

Yapılacak değişiklikler:

Dim strWhere As String

strWhere = "[Fair]= " & combo.337.Value 'Eğer combonun veri türü sayı ise
strWhere = "[Fair]= '" & combo.337.Value & "'" 'Eğer combonun veri türü metin ise.

stDocName = "voltblfinans"
DoCmd.OpenReport stDocName, acPreview, strWhere

İyi çalışmalar

Sayın modalı,

İlginiz için teşekkür ederim ama hala Fair ismindeki kutucuk açılmya devam ediyor. baktım sorgunun Fair alanındaki ölçüt kısmıda boş.

Private Sub cmdexecute_Click()
Dim stDocName As String
Dim strWhere As String

strWhere = "[Fair]= '" & Combo337.Value & "'"
stDocName = "voltblfinans"
DoCmd.OpenReport stDocName, acPreview, strWhere

Exit Sub

End Sub

Sorun nerede acaba?

 

[modalı]

Örneğinizi ekleyebilirmisiniz?

Fair diye bir alanınız var mı?

 

[YaPaY]

örneğim çok büyük ama örmeksiz olmaz derseniz sıkıştırır filan hallederim sanırım.

 

[adnanyurdakul]

Sayın YaPaY
örneğinizi ekleyin
İyi çalışmalar

 

[YaPaY]

Calıştırdığım sorgu yapısını gönderiyorum, belki bir fikir verir.



baya büyük bir DB ve networkde çalıştığı, linked olduğu için göndermek zor olacak belkşi bu ekran görüntüsü bir fikir verir.

 

[adnanyurdakul]

Sayın YaPaY
Sayın Modalı'nın verdiği cevaplar ile çalışması gerekiyor. Yinede raporu comboya göre açacağım diyorsanız raporun kaynağında combo337 i çağırmanız daha mantıklı olacağa benziyor

 

[YaPaY]

Raporun kaynağında combo337'i çağırdığımda raporun fair kısmında fair ismi çıkacağına numara çıkıyor. O da mesela comboboxta 20. item seçiliyse 20 veriyor.

 

[YaPaY]

Private Sub cmdexecute_Click()
Dim stDocName As String
Dim strWhere As String

strWhere = "[Fair]= '" & Combo337.Value & "'"
stDocName = "voltblfinans"
MsgBox strWhere
DoCmd.OpenReport stDocName, acPreview, strWhere

Exit Sub
End Sub

msgbox açılı [Fair]='140' veriyor. Niye Combo'nun Value'sı doğru okunmuyor?

 

[modalı]

ComboBox un veri kısmındaki kodları ekleyebilir misiniz?

 

[YaPaY]

ComboBox un veri kısmındaki kodları ekleyebilir misiniz?

şimdi oldu sayın modalı, comboxun bound columnunu 2 yaptım, querydeki fair alanının kriterine değeri açık olan formun combo337 değerinden al dedim, sizin vermiş olduğunuz koduda şu şekilde değiştirdim ve oldu

Private Sub cmdexecute_Click()
Dim stDocName As String
Dim strWhere As String

strWhere = "[Fair]= " & Combo337.Value
stDocName = "voltblfinans"
DoCmd.OpenReport stDocName, acPreview, strWhere

Exit Sub
End Sub

Size ve adnan yurdakul'a çok teşekkürler. Şimdiki hedefim diğer combolardaki kriterleride ekleyip raporu filtreletmek. Tekrar ilginiz için teşekkür ederim.

 

[adnanyurdakul]

Combobox değerini bir başka yerden alıyor ve colon sayısı da en az 2 dolayısıyla hangi alandan ilişkili ise o alanı getiriyor. Combo boxın hangi colonun yazılmasını istiyorsanız ona göre belirtmelisiniz. Bu combo337.column(1) şeklinde yazdırılabilir. 1 demek ikinci colon değeri demektir.
İyi çalışmalar

 

[YaPaY]

Şimdi Fair'e göre seçme yaptırabiliyorum, ama diğer combolara göre sorgumu nasıl süzeceğim? ilgili queryde ölçüte mesela [Forms]![frmCompanyDataSRCHREPORT]![Combo214] gibi ifaedeler yazdım ama hatalı sonuçlar döndüüryor. Bunun için bir where ifadeli sql sorgusumu gerekiyor acaba?

 

[Taruz]

Merhaba..

Where şartında iki veya daha fazla ktiter arasında and işleçi kullanarak belirleyebilirsiniz..

 

[YaPaY]

Merhaba..

Where şartında iki veya daha fazla ktiter arasında and işleçi kullanarak belirleyebilirsiniz..

yukardaki örneğe göre nasıl where yazabilirim? mesela bir combo box daha olduğunu varsayarsak

 

[YaPaY]

neyse hallettim