AccessTr.neT - Tablodaki Boyalardan Varmı Kontrol Ettirme

[img]

[/img]

merhaba arkadaşlar,
eklediğim örnek dosyada KONTROL ET butonuna tıklayınca,
BA1, BA2 ve BA3 metin kutularındaki boyaları "BOYAMA_TURKUAZ_BMLER" tablosundaki boyalarla kontrol edecek.
eğer "BOYAMA_TURKUAZ_BMLER" tablosundaki herhangi bir boya "BA1, BA2 BA3" de varsa
sonuc metin kutusuna "VAR" yazacak.

yardımcı olabilirmisiniz?

Merhaba Sayın @husem

Kod:
Dim qsonuc, strSQL As String, rs As Object

Set rs = CreateObject("ADODB.Recordset")

Set db = CurrentDb

strSQL = "SELECT BM FROM boyama_turkuaz_bmler WHERE BM='" & BA1 & "' OR BM='" & BA2 & "' OR BM='" & BA3 & "';"

rs.Open strSQL, CurrentProject.Connection, 2, 2

If Not rs.EOF Then

qsonuc = "VAR"

Else

qsonuc = "YOK"

End If

Me.SONUC = qsonuc

rs.Close

Set rs = Nothing

kodunu dener misiniz?

sn atoykan, yardımınız için teşekkür ederim,
eklediğiniz kod işime yaradı,
Allah razı olsun.

Rica ederim, iyi çalışmalar.