(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