powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проверка всей таблицы на конкретное число
6 сообщений из 6, страница 1 из 1
Проверка всей таблицы на конкретное число
    #39393184
currentnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть таблица с числовыми полями:
t1

t2

t3

t4

t5

t6

t7

t8

t9

t10

Надо произвести проверку всей таблицы, допустим, на число 1 и если она будет, то заменить её на пустое значение.

Первый вариант, это
Перебрать в рекорсет все поля и каждое значение проверить на равенство с 1.

А может существует какой-нибудь попроще вариант?
...
Рейтинг: 0 / 0
Проверка всей таблицы на конкретное число
    #39393243
Например:
UPDETE таблица SET t1 = IIF(t1=1, Null, t1), t2 = IIF(t2=1, Null, t2),...
...
Рейтинг: 0 / 0
Проверка всей таблицы на конкретное число
    #39393265
currentnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Выскакивает ошибка:
Run-time error ‘94’
Invalid use of Null

Что-то не нравится в этой записи:

Код: vbnet
1.
rs!t1 = Replace(Nz(rs("t1")), 9, Null)



Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("year_months", dbOpenDynaset)
Do While Not rs.EOF
    Do While Not rs.EOF
        rs.Edit
            rs!t1 = Replace(Nz(rs("t1")), 9, Null)
        rs.Update
        rs.MoveNext
    Loop
    rs.MoveNext
Loop
rs.close
...
Рейтинг: 0 / 0
Проверка всей таблицы на конкретное число
    #39393315
currentnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Анатолий ( Киев )Например:
UPDATE таблица SET t1 = IIF(t1=1, Null, t1), t2 = IIF(t2=1, Null, t2),...

Воспользовался вашим методом и использовал также цикл, так как полей было слишком много.

Огромное спасибо, Анатолий.
...
Рейтинг: 0 / 0
Проверка всей таблицы на конкретное число
    #39393365
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
currentnum,
я бы видимо программно сгенерировала и вызвала на выполнение n-запросов типа
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
dim zn
sub zamena(name1)
dim s1,s2
''шаблон строки
s1="UPDATE таблица SET [%1] =  Null where [%1]=%2"
''вставка имени и параметра
S2=replace (s1,"%1",name1)
S2=replace (s1,"%2",zn)
docmd.runsql s2
end function
sub knopka_click
zn=1
zameta "t1"
zamena "t2"
'''''''
end sub
...
Рейтинг: 0 / 0
Проверка всей таблицы на конкретное число
    #39393413
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если имена полей как в ТЗ можно так
Код: vbnet
1.
2.
3.
4.
5.
6.
Function my()
Dim myCount
For myCount = 1 To 10
CurrentDb.Execute "update tbl set t" & myCount & "=iif(t" & myCount & "=1,null,t" & myCount & ")"
Next
End Function
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проверка всей таблицы на конкретное число
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]