Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите. Подскажите, где я ошибся. / 16 сообщений из 16, страница 1 из 1
21.12.2017, 18:43
    #39573972
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
Есть форма, в ней подчинённая форма.

На форме я сделал кнопку удаления строки в подчинённой форме, прикрепил процедуру:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Dim stSQl As String
If IsNull(Me![Код]) Then Exit Sub
If MsgBox("Подтвердите удаление записи " & Me![Код].Value, vbYesNo + vbDefaultButton2, "Запись будет удалена") = vbYes Then
stSQl = "DELETE [Код].* " & "FROM [Код] " & "WHERE ((([Данные_подч_приб].[Код])=" & Me![Код].Value & "))"
CurrentDb.Execute (stSQl)
Me![Код].Requery
End If
End Sub


Выдаёт ошибку

CurrentDb.Execute (stSQl)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 18:53
    #39573981
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
Это не ошибка, а строка кода, в которой она возникает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 19:48
    #39574019
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
Wawan2005,
стр.SQL для удаления записи, если код число, должна выглядеть как-то так:
Код: vbnet
1.
strSQL="DELETE * FROM tblName WHERE Код=" & Me.Код
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 19:53
    #39574020
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
А почему нельзя тупо выделить запись и нажать "Delete"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 20:16
    #39574031
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
Wawan2005,

у вас похоже, что таблица имеет имя [Код] и поле в ней тоже [Код]
стараюсь не допускать подобное
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 20:39
    #39574036
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
Та нет, в условии WHERE он просто перепутал местами название таблицы и название поля. у него
Код: vbnet
1.
[Данные_подч_приб].[Код]=" & Me![Код].Value

а должно быть
Код: vbnet
1.
[Код].[Данные_подч_приб]=" & Me![Код].Value
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 21:16
    #39574049
хм-м-м
хм-м-м
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
JossТа нет, в условии WHERE он просто перепутал местами название таблицы и название поля. у него
Код: vbnet
1.
[Данные_подч_приб].[Код]=" & Me![Код].Value

а должно быть
Код: vbnet
1.
[Код].[Данные_подч_приб]=" & Me![Код].Value

Скорее, так:
Код: sql
1.
stSQl = "DELETE * FROM [Данные_подч_приб] WHERE Код=" & Me!Код
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 21:29
    #39574057
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
Извиняюсь за отсутствие, вне нужно удалить всю строку, на которой стоит курсор в подтаблице [Данные_подч_приб]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 22:18
    #39574073
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
хм-м-м,

всё равно та же ошибка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 22:22
    #39574075
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
Joss,

та же самая ошибка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2017, 00:16
    #39574120
хм-м-м
хм-м-м
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
Wawan2005хм-м-м,

всё равно та же ошибкаКакая формулировка ошибки?

Попробуйте так:
Код: vbnet
1.
stSQl = "DELETE * FROM [Данные_подч_приб] WHERE Код=" & ИмяПодчиненнойФормы.Form.Код

Вместо ИмяПодчиненнойФормы поставьте нужное имя.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2017, 00:24
    #39574123
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
хм-м-м,

спасибо за ответ, но я пошёл по другому пути, я в подчинённой форме на строке создал кнопку, и как результат какую кнопку нажмёшь, та строка и удаляется.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2017, 00:25
    #39574124
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
хм-м-м,

но Ваш способ я всё равно постараюсь проверить, по позже.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2017, 06:57
    #39574161
MrShin
MrShin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
Скобки лишние. И добавьте обработку ошибок
Код: vbnet
1.
CurrentDb.Execute stSQl, dbFailOnError
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2017, 08:00
    #39574172
MrShin
MrShin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
И вы до сих пор не сказали, какая именно ошибка возникает. В исходном SQL есть явные ошибки, о них уже упомянули. Поле Код какого типа? Если текст, то нужны кавычки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2017, 08:50
    #39574184
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите. Подскажите, где я ошибся.
MrShin,
Просто выделяет жёлтым, всю строку.

Только на данный момент уже не актуально я сделал другим способом, кнопку создал непосредственно в подчинённой форме и всё заработало.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите. Подскажите, где я ошибся. / 16 сообщений из 16, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 123ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1611848]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 23ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 14ms
total:  123ms
x
x
Закрыть


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