ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / операция update в VBA access
25 сообщений из 26, страница 1 из 2
  1  все
операция update в VBA access
    #39243233
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
Приветствую,
сложилась ситуация
есть поле со выбором, где если выбирается "да", то нужно вставить значения в оперделенную таблицу
вот что написал
Код: vbnet
1.
If [LVybor] = "ДА" Then DoCmd.RunSQL " UPDATE KL SET L_komb="ДА""


но вылетает ошибка, что не так?
...
Рейтинг: 0 / 0
25.05.2016, 14:28
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39243238
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
сам запрос неверный, знаю, но ошбка вылетает не из-за этого.. вроде как)
...
Рейтинг: 0 / 0
25.05.2016, 14:30
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39243244
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Вы ошибки времени исполнения от ошибок компиляции отличаете?
...
Рейтинг: 0 / 0
25.05.2016, 14:33
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39243249
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
И вообще, Вас еще на этапе писанины редактор VBA должен был за руку схватить.
Не заметили?
...
Рейтинг: 0 / 0
25.05.2016, 14:37
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39243250
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

ну да, у меня здесь вроде как ошибка компиляции т.к. пишет синтаксическая ошибка
...
Рейтинг: 0 / 0
25.05.2016, 14:37
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39243254
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

Считайте кавычки.
...
Рейтинг: 0 / 0
25.05.2016, 14:43
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39243258
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

вроде как с кавычками все нормально, все есть, те что открывают и те что закрывают
...
Рейтинг: 0 / 0
25.05.2016, 14:49
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39243283
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
If [LVybor] = "ÄÀ" Then DoCmd.RunSQL "UPDATE KL SET L_komb='ÄÀ'"
Вот так заработало)
...
Рейтинг: 0 / 0
25.05.2016, 15:11
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39243291
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Не мешало бы почитать об использовании кавычек в строковых выражениях.
А то "операция update в VBA access", надо же.)))
...
Рейтинг: 0 / 0
25.05.2016, 15:18
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39243293
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

надо)
...
Рейтинг: 0 / 0
25.05.2016, 15:19
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39244376
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

Может быть помните, я тут на форуме спрашивал как сделать флажок, который будет включать логику "или" заместо "И" между блоками переключателей
вот та чать кода, которую Вы сделали
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
 For i = 1 To 10
  If (Me("V" & i) <> 3) Then
   s = s & _
       IIf(s <> "", IIf(FlagOrAnd, " OR ", " AND "), "") & _
       "[vagon" & Format(i, "00") & "]" & _
       Choose(Me("V" & i), "<>", "=") & "0"
  End If


а как применить это для моего кода, просто я хочу добавить еще пару условий для позиции переключателя и не могу понять как это сделать в вашем коде, можете подсказать, что я должен добавить в свой код ниже, чтобы этот флажок тоже работал на переключение логики?


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
With Me
    
         If (.V1 = 1) Then
            vag1 = vag1 & " and [vagon01] not like 0"
        End If
        If (.V1 = 2) Then
            vag1 = vag1 & " and [vagon01] like 0"
        End If
        If (.V1 = 3) Then
            
                End If
    End With
    
    strFilter = strFilter & vag1
    
    With Me
    
         If (.V2 = 1) Then
            vag2 = vag2 & " and [vagon02] not like 0"
        End If
        If (.V2 = 2) Then
            vag2 = vag2 & " and [vagon02] like 0"
        End If
        If (.V2 = 3) Then
            
                End If
    End With
    
    strFilter = strFilter & vag2
    
    With Me


заранее спасибо)
...
Рейтинг: 0 / 0
26.05.2016, 21:36
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39244379
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

извините, воздний час, совсем голова не варит, нашел ответ на свой вопрос в старом топике)
...
Рейтинг: 0 / 0
26.05.2016, 21:45
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39246285
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

а есть еще такой вопрос,а как добавить несколько условий фильтрации
т.е. у меня есть столбец например L_vybor, мне нужно бырать все записи оттуда, где стоит ДА и плюс еще те записи, где пусто, но те записи что пусто должны быть еще дополнительно отфильтрованы по другому столбцу, где тоже должно быть да.
Чтобы было понятнее прилагаю скрин)
...
Рейтинг: 0 / 0
30.05.2016, 15:27
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39246305
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

Что же Вы вымучиваете эту несчастную базу?)))
Возьмите специалиста, раз простейшее логическое условие вызывает такие затруднения.
Код: vbnet
1.
If ((A="ДА") Or (A Is Null AND (B="ДА")))
...
Рейтинг: 0 / 0
30.05.2016, 15:43
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39246314
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

все не так просто)щас я все запросы напишу и все норм будет)долго объяснять специфику предприятия спецу, да и работы не так много и она вялотекущая)
...
Рейтинг: 0 / 0
30.05.2016, 15:50
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39246322
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

Я смотрю, Вы выше всяких китайских церемоний типа "спасибо"?
...
Рейтинг: 0 / 0
30.05.2016, 15:55
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39246340
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

я вроде как всегда говорю спасибо)(щас прошляпил, извините)
Спасибо огромное за помощь, которую Вы мне оказываете, несведующему)
...
Рейтинг: 0 / 0
30.05.2016, 16:21
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39247859
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

Приветствую!
у меня возник вопрос переделал часть кода по тому принципу, что выше, но вылезает ошибка необходим объект
Код: vbnet
1.
If Not IsNull(LVybor) Then strFilter = strFilter & " AND [L]=""" & LVybor & "" Or ([L] Is Null And (L_komb = "ДА"))


Подскажите, что не так пожалуйста
...
Рейтинг: 0 / 0
01.06.2016, 10:50
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39247873
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
Retvisan,

где [L] это первый столбец
LVybor это поле со списком
L_komb это второе поле
...
Рейтинг: 0 / 0
01.06.2016, 11:02
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39247956
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Retvisan,
Код: vbnet
1.
" AND [L]=""" & LVybor & """ Or ([L] Is Null And L_komb = yes)"
...
Рейтинг: 0 / 0
01.06.2016, 11:56
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39247965
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Retvisan,
L_komb-тип данных?
...
Рейтинг: 0 / 0
01.06.2016, 12:01
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39247972
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
sdku,

текстовый)
...
Рейтинг: 0 / 0
01.06.2016, 12:08
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39247976
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Retvisan,
Код: vbnet
1.
2.
3.
" AND [L]=""" & LVybor & """ Or ([L] Is Null And L_komb=""&#196;&#192;"")" ' текст

" AND [L]=""" & LVybor & """ Or ([L] Is Null And L_komb)" ' логическое
...
Рейтинг: 0 / 0
01.06.2016, 12:10
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39247986
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
вдогонку - писал
Код: vbnet
1.
 L_komb=""ДА""
...
Рейтинг: 0 / 0
01.06.2016, 12:15
| Ответить | Цитировать | Написать  
операция update в VBA access
    #39247996
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
sdku,

Понял, щас попробую
Спасибо!
...
Рейтинг: 0 / 0
01.06.2016, 12:20
| Ответить | Цитировать | Написать  
25 сообщений из 26, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / операция update в VBA access
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39243250&tid=1613527]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 3ms
track hit:
 27ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 13ms
total:  119ms
созд. / загр.: 119ms
x
x
Закрыть


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