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