VBA ans Access

[UliyaP]

У меня меня таблица.
В таблице заполненый столбец.
Мне надо сравнить часть строки столбца и записать в другой столбец соответстующее значение.
Пример PhotoSmart R607 BMW WilliamsF1 Team
Надо определить что строка содержит PhotoSmart и записать в другой слолбец "Принтер".
Пожалуйста, подскажите как это сделать?Я идиот! Убейте меня, кто-нибудь!??
Так не работает. Почему?

Код: Выделить всё



Function группы()
  Dim MyDB As Database, MyRecords As Recordset, MyRecords2 As Recordset
  Dim Numzap As Integer
  Set MyDB = DBEngine.Workspaces(0).Databases(0)
  Set MyRecords = MyDB.OpenRecordset("Юля", DB_OPEN_TABLE)

    MyRecords.MoveFirst
    Numzap = 0
    Do Until MyRecords.EOF
     
      If MyRecords![ITEMNAME] = "*APhotoSmart*" Then
       MyRecords.Edit
        MyRecords![ITEMGROUPID] = "принтер"
        MyRecords.Update
     End If
     
      MyRecords.MoveNext
     Numzap = Numzap + 1
    Loop
    MyRecords.MoveFirst

End Function

[HandKot]

а запросом не легче будет?

Код: Выделить всё

strSQL = "UPDATE [Юля] SET [ITEMGROUPID] = 'принтер' WHERE [ITEMNAME] LIKE '*APhotoSmart*'"
MyDB.Execute(strSQL)

если использовать ваш кодд, то укажите ошибку

[UliyaP]

А вы не могли бы полностью написать код.

[HandKot]

это же Ваша ф-ция

Код: Выделить всё

Function группы()
  Dim MyDB As Database
  Dim strSQl As String

  Set MyDB = DBEngine.Workspaces(0).Databases(0)

  strSQL = "UPDATE [Юля] SET [ITEMGROUPID] = 'принтер' WHERE [ITEMNAME] LIKE '*APhotoSmart*'"
  MyDB.Execute(strSQL)

End Function

[UliyaP]

если мне надо заменить на "принтер" когда есль в ячейки "APhotoSmart " или "картридж". Подскажите как сделать?

[RayShade]

Ну очевидно, добавить соответствующее условие по аналогии с уже существующими?