AccessTr.neT

Bul · 17/10/2023, 21:39

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

Bul · 18/10/2023, 13:07

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?

Bul · 19/10/2023, 08:40

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

Bul · 19/10/2023, 13:20

Rica ederim, iyi çalışmalar.

AccessTr.neT

Tablodaki Boyalardan Varmı Kontrol Ettirme

Tablodaki Boyalardan Varmı Kontrol Ettirme

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri