Tablodaki Boyalardan Varmı Kontrol Ettirme

Tablodaki Boyalardan Varmı Kontrol Ettirme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tablodaki Boyalardan Varmı Kontrol Ettirme (/konu-tablodaki-boyalardan-varmi-kontrol-ettirme.html)

Tablodaki Boyalardan Varmı Kontrol Ettirme - husem - 17/10/2023

[img] [Resim: do.php?img=15450]

[/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?

RE: Tablodaki Boyalardan Varmı Kontrol Ettirme - atoykan - 18/10/2023

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?

RE: Tablodaki Boyalardan Varmı Kontrol Ettirme - husem - 19/10/2023

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

RE: Tablodaki Boyalardan Varmı Kontrol Ettirme - atoykan - 19/10/2023

Rica ederim, iyi çalışmalar.