VBA ans Access

[UliyaP]

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

[KL]

Я уж подумал, что у меня "дежавю"

http://bbs.vbstreets.ru/viewtopic.php?t ... photosmart

[UliyaP]

Нет у тебя не дежавю.
Так, тоже в excel, в Access все по другому.
Почему у меня так не работает?

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


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

[alibek]

Потому что не =, а Like.
Да и вообще, все это можно заменить одним запросом.

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

UPDATE [Юля]
SET [ITEMGROUPID] = "принтер"
WHERE [ITEMNAME] LIKE "%APhotoSmart%"

[UliyaP]

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

[alibek]

Смысл вопроса неясен.

[tyomitch]

Так, давайте ограничимся одним топиком на вопрос.