UPDATE sıemens SET sıemens.STATU = IIf(InStr(1,[NMCRL_NCAGEName],"SIEMENS")>0 OR InStr(1,[NMCRL_NCAGEName],"MANDEX")>0 OR InStr(1,[NMCRL_NCAGEName],"AUTOMATION")>0,"X",NULL)

Private Sub Komut18_Click()
Dim Kyt As Recordset
Dim i, Sayac As Long, v1 As Variant
Set Kyt = CurrentDb.OpenRecordset("SELECT * FROM sıemens ORDER BY GIRDI_FIRMA")
If Kyt.RecordCount = 0 Then Exit Sub
Do Until Kyt.EOF
Kyt.Edit
v1 = Split(Kyt!GIRDI_FIRMA, " ")
For i = LBound(v1) To UBound(v1)
    If Len(v1(i)) > 3 Then
        If UBound(Split(Kyt!NMCRL_NCAGEName, v1(i))) > 0 Then Sayac = Sayac + 1
    End If
Next i
If Sayac = 0 And Kyt!STATU = "X" Then
    Kyt!STATU = vbNullString
ElseIf Sayac > 0 Then
    Kyt!STATU = "X"
End If
Sayac = 0: i = 0
Kyt.Update
Kyt.MoveNext
Loop
Kyt.Close
Set Kyt = Nothing
Me.Requery
End Sub