(19/09/2024, 12:19)berduş yazdı: gerçi yukardaki yöntem sadece "x" yazmak için işe yarar,
eğer veri değiştirilmişse daha önceden "x" yazan alanlar değişmez onların da değiştirilmesini istiyor musunuz?

yukardaki olasılığa uygun yeni yapı:
1 - bir modüle aşağıdaki kodu ekleyin

Function xRegExStr(xBol As String, xKontrol As String) As String

xBol = Replace(xBol, " ", " | ")

 Dim RegEx As Object

 Set RegEx = CreateObject("VBScript.RegExp")

With RegEx

    .IgnoreCase = True

    .Global = True

    .MultiLine = True

    .Pattern = "(" & xBol & ")"

    

xRegExStr = IIf(.Test(" " & xKontrol & " "), "x", "")

End With

End Function

2 - sorgu kodunu da aşağıdaki gibi düzenleyip dener misiniz?

UPDATE SIEMENS SET SIEMENS.statu = xRegExStr([SIEMENS]![GIRDI_FIRMA],[SIEMENS]![NMCRL_NCAGEName]);

bu kod ile içerik değişmişse artık değer içermiyorsa x kaldırılır