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

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

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

(19/09/2024, 14:56)berduş yazdı: rica ederim
iyi çalışmalar
yalnız kodları uç koşullarda da denemenizi öneririm
alanda noktalama işareti yada bileşik kelimeler varsa ayrıca kontrol etmeniz yerinde olur
sorun çözüldüyse konuyu cevaplanmışlara taşıyalım.

(19/09/2024, 15:10)sevincili yazdı: sizi fazla uğraştırmayacak ise statu alanına x var ise değiştirme nasıl yapabiliriz öğrene bilirmiyim ?

(19/09/2024, 15:14)berduş yazdı:

(19/09/2024, 15:10)sevincili yazdı: sizi fazla uğraştırmayacak ise statu alanına x var ise değiştirme nasıl yapabiliriz öğrene bilirmiyim ?

yalniz 13. mesajdaki kod alanda x varsa ama olmamasi gerekiyorsa değiştirir