Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.08.2008, 20:08   #1
Tooree
 
Регистрация: 17.08.2008
Сообщений: 3
По умолчанию Подскажите, где ошибка в использовании ControlSource...

У меня в форме имеется объект Text Box, в который я хочу помещать значение поля из таблицы. Обращаюсь к таблице инструкцией SQL. Но вместо результата получаю в текстбоксе: #Имя?
Почему так происходит? Вот кусок кода...

Public Sub Info()
Dim strSQL As String
strSQL = "SELECT Table1.LastName FROM Table1 WHERE Table1.ID = " & CurrentID & ";"
Поле99.ControlSource = strSQL
End Sub
Tooree вне форума Ответить с цитированием
Старый 18.08.2008, 18:34   #2
Abrakadabra
Форумчанин
 
Регистрация: 26.04.2008
Сообщений: 487
По умолчанию

Цитата:
Сообщение от Tooree Посмотреть сообщение
У меня в форме имеется объект Text Box, в который я хочу помещать значение поля из таблицы. Обращаюсь к таблице инструкцией SQL. Но вместо результата получаю в текстбоксе: #Имя?
Почему так происходит? Вот кусок кода...

Public Sub Info()
Dim strSQL As String
strSQL = "SELECT Table1.LastName FROM Table1 WHERE Table1.ID = " & CurrentID & ";"
Поле99.ControlSource = strSQL
End Sub
ну.. уберите в конце запроса & ";"
Abrakadabra вне форума Ответить с цитированием
Старый 18.08.2008, 20:46   #3
Tooree
 
Регистрация: 17.08.2008
Сообщений: 3
По умолчанию ControlSource укрощен!...что будет дальше?

Цитата:
Сообщение от Abrakadabra Посмотреть сообщение
ну.. уберите в конце запроса & ";"
Вопрос решился так:

Public Sub Info()
Dim strSQL As String
strSQL = "SELECT * FROM Table1 WHERE Table1.ID = " & CurrentID & ";"
Form_MainForm.RecordSource = strSQL
Поле32.ControlSource = "LastName"
Поле34.ControlSource = "FirstName"
Поле36.ControlSource = "MiddleName"
Поле38.ControlSource = "BirthYear"
End Sub

...результат даже превзошел ожидания: теперь если я редактирую Поле99, то изменения автоматом фиксируются в исходной таблице! ID в таблице уникален, так что я получаю одну запись со всеми полями, нужные из которых распихиваю затем по отдельным редактируемым текстбоксам... Продолжу грызть гранит ACCESSа...

Последний раз редактировалось Tooree; 18.08.2008 в 20:49.
Tooree вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка при использовании OlePropertyGet("Documents").OleProcedure("Add") в C++ Builder AleksP C++ Builder 7 11.04.2009 13:06
Подскажите, где в программе ошибка gamer123 Паскаль, Turbo Pascal, PascalABC.NET 3 25.02.2008 03:09
Подскажите в чём ошибка! Irat Паскаль, Turbo Pascal, PascalABC.NET 3 18.02.2008 17:13
Подскажите плиз в чем ошибка в БД D7 при SQL запросе TitAn БД в Delphi 16 07.06.2007 20:18