Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / операция update в VBA access / 25 сообщений из 26, страница 1 из 2
  1  все
25.05.2016, 14:28
    #39243233
Retvisan
Retvisan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
операция update в VBA access
Приветствую,
сложилась ситуация
есть поле со выбором, где если выбирается "да", то нужно вставить значения в оперделенную таблицу
вот что написал
Код: vbnet
1.
If [LVybor] = "ДА" Then DoCmd.RunSQL " UPDATE KL SET L_komb="ДА""


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

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

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

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

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

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

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

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

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

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

я вроде как всегда говорю спасибо)(щас прошляпил, извините)
Спасибо огромное за помощь, которую Вы мне оказываете, несведующему)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2016, 10:50
    #39247859
Retvisan
Retvisan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
операция update в VBA access
__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, 11:02
    #39247873
Retvisan
Retvisan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
операция update в VBA access
Retvisan,

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

текстовый)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2016, 12:10
    #39247976
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
операция update в VBA access
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:15
    #39247986
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
операция update в VBA access
вдогонку - писал
Код: vbnet
1.
 L_komb=""ДА""
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2016, 12:20
    #39247996
Retvisan
Retvisan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
операция update в VBA access
sdku,

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


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