Merhaba, bu kod da çalışıyor, sanırım ikiside benim işime yarayabilir.
çünkü tablodan gelen ek işlem verileri düzenli.
çok teşekkürler.
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Function RegExpOr()
ek_islemler = "koENZİM-HİDROFİL-TURBANG-AİRCO"
istenmeyen = "TURBANG-ENZİM"
ek_islemler = " " & Replace(ek_islemler, "-", " - ") & " "
istenmeyen = " " & Replace(istenmeyen, "-", " | ") & " "
Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")
With RegEx
.IgnoreCase = True
.Global = True
.Multiline = True
.Pattern = "(" & istenmeyen & ")"
If .Test(ek_islemler) = True Then MsgBox "veri var"
End With
End Function