ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите. Подскажите, где я ошибся.
16 сообщений из 16, страница 1 из 1
Помогите. Подскажите, где я ошибся.
    #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:43
| Ответить | Цитировать | Написать  
Помогите. Подскажите, где я ошибся.
    #39573981
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Это не ошибка, а строка кода, в которой она возникает.
...
Рейтинг: 0 / 0
21.12.2017, 18:53
| Ответить | Цитировать | Написать  
Помогите. Подскажите, где я ошибся.
    #39574019
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Wawan2005,
стр.SQL для удаления записи, если код число, должна выглядеть как-то так:
Код: vbnet
1.
strSQL="DELETE * FROM tblName WHERE Код=" & Me.Код
...
Рейтинг: 0 / 0
21.12.2017, 19:48
| Ответить | Цитировать | Написать  
Помогите. Подскажите, где я ошибся.
    #39574020
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
А почему нельзя тупо выделить запись и нажать "Delete"
...
Рейтинг: 0 / 0
21.12.2017, 19:53
| Ответить | Цитировать | Написать  
Помогите. Подскажите, где я ошибся.
    #39574031
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Wawan2005,

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

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

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

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

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

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

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

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

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

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

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

Только на данный момент уже не актуально я сделал другим способом, кнопку создал непосредственно в подчинённой форме и всё заработало.
...
Рейтинг: 0 / 0
22.12.2017, 08:50
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите. Подскажите, где я ошибся.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39574049&tid=1611848]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 54ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 307ms
total:  459ms
созд. / загр.: 459ms
x
x
Закрыть


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