Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / [ACCESS] Как добавить запись в таблицу / 10 сообщений из 10, страница 1 из 1
25.08.2008, 16:39
    #35504855
Msik
Msik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[ACCESS] Как добавить запись в таблицу
Хоть стреляйте из двухстволки, ну не доходит и до меня!

вот предложили код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim strSQL As String
' процедура добавления в таблицу нового района
If Not IsNull(Me.txtРайон.Value) Then
    strSQL = "INSERT INTO tblРайоны([Район]) VALUES " & _
"('" & Me.txtРайон.Value & "');"
    CurrentDb.Execute strSQL

Else
    MsgBox "Вы должны заполнить поле [Район]", vbExclamation, "Не указан район"
End If

обработал его под себя (Таблица: Подстанции 2 поля одно счетчик второе Подстанции )
получилось так

Код: plaintext
1.
2.
3.
4.
5.
6.
Dim strSQL As String
' процедура добавления в таблицу новой подстанции
If Not IsNull(Me.txtРайон.Value) Then
    strSQL = "INSERT INTO Подстанции([Подстанции]) VALUES " & _
"('" & Подстанция.text & "');" 'Подстанция - это название поля на форме привязано к таблице Подстанции
    CurrentDb.Execute strSQL ' Желтой строкой останавливается тут
End If

чего не так сделал?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2008, 08:14
    #35505472
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[ACCESS] Как добавить запись в таблицу
и что за ошибка?

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2008, 08:16
    #35505475
Restavraciya
Restavraciya
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[ACCESS] Как добавить запись в таблицу
Проверяеш на НУЛЛ поле txtРайон
а используеш Подстанция
ТщателенЕе надо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2008, 08:25
    #35505479
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[ACCESS] Как добавить запись в таблицу
ещё советик
запустите с параметром dbFailOnError
Код: plaintext
     CurrentDb.Execute strSQL, dbFailOnError
и Access должен сам сказать в чём ошибка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2008, 14:45
    #35506526
Msik
Msik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[ACCESS] Как добавить запись в таблицу
>и Access должен сам сказать в чём ошибка

Access молчит, только указывает на эту строку

даже так не хочет
Код: plaintext
1.
2.
3.
4.
strSQL = "INSERT INTO Подстанции([Подстанции]) VALUES " & _
"('" & Подстанция.Text & "');"
   ' CurrentDb.Execute strSQL 

CurrentDb.Execute strSQL, dbFailOnError
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2008, 15:03
    #35506599
Msik
Msik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[ACCESS] Как добавить запись в таблицу
>даже так не хочет
погодите кажись поспешил с выводами, запись добавилась в таблицу, но странно что увидел ее аж после перезагрузки приложения :( страно как то
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2008, 15:26
    #35506679
Msik
Msik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[ACCESS] Как добавить запись в таблицу
добавил строку
Код: plaintext
1.
strSQL = "UPDATE Подстанции " & "SET Подстанции='" & tboПодстанции & "'"
dbs.Execute (strSQL)
так правильно или намудрил? Но почемуто в списке отсутствует вновь введенное значение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2008, 16:51
    #35506956
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[ACCESS] Как добавить запись в таблицу
интересно, что сейчас Access скажет
Код: plaintext
1.
2.
3.
    Dim tboПодстанции As String:    tboПодстанции = "что-нибудь"
    
    strSQL = "UPDATE Подстанции " & "SET Подстанции='" & tboПодстанции & "'"
    DoCmd.RunSQL strSQL
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2008, 17:18
    #35507039
Msik
Msik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[ACCESS] Как добавить запись в таблицу
klen_интересно, что сейчас Access скажет
Код: plaintext
1.
2.
3.
    Dim tboПодстанции As String:    tboПодстанции = "что-нибудь"
    
    strSQL = "UPDATE Подстанции " & "SET Подстанции='" & tboПодстанции & "'"
    DoCmd.RunSQL strSQL

Сказало что будут обновлены поля :) ура! и спасибо!


вообщем получилось так при вводе нового значения из ниспадающего списка в таблице

Код: plaintext
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.
Private Sub Подстанция_NotInList(NewData As String, Response As Integer)
If MsgBox("Новая подстанция - ДА" + Chr( 13 ) + "Ошиблись при вводе - ОТМЕНА", vbOKCancel, "Внимание! Запись не соответствует списку.") = vbOK Then


Dim strSQL As String

' процедура добавления в таблицу новой подстанции
    strSQL = "INSERT INTO Подстанции([Подстанции]) VALUES " & _
"('" & Подстанция.Text & "');" 'Подстанция - это название поля на форме привязано к таблице Подстанции
CurrentDb.Execute strSQL, dbFailOnError

' отключил обновление базы за ненадобностью, но всеравно спасибо klen
// а это моя химия
    
s = Подстанция.Text
Подстанция.Text = ""
Me.Refresh
Подстанция.Text = s



 Else
 Подстанция.Text = ""
 
 End If
 

End Sub

Все работает на ура, за исключением как не химич а надпись " Выберите запись из списка " не поборю никак даже химией
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.08.2008, 16:34
    #35509121
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[ACCESS] Как добавить запись в таблицу
Msikза исключением как не химич а надпись " Выберите запись из списка " не поборю никак даже химией
попробуйте так
Код: plaintext
DoCmd.SetWarnings False

а здесь похожее, нашёл поиском по слову NotInList
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / [ACCESS] Как добавить запись в таблицу / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 338ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161917]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 31ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 239ms
total:  338ms
x
x
Закрыть


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