Работа с формами при помощи VBA

Xpoft · 15.12.2009, 11:51

Подскажите пожалуйста, аналог кнопки "обновить все" кодом VBA.
После внесения данных в таблицу надо чтоб на форме, где отображаются эти данные, сразу все обновилось.
Вопрос снят.
Application.forms().refresh

Добавлено через 30 минут
Продолжим) как закрыть форму кодом VBA?
перепробовал разные всякие close unload, не помогает, или я не правильно делаю)
Вот текущий код, что вставить после строки с refresh?
Закрыть надо форму с названием frm_map_add

Код Visual Basic

Private Sub btn_map_add_Click()
DoCmd.RunSQL "INSERT INTO MAP (MAP_FName, MAP_Name)  VALUES(""" & Pole_MAP_FName.Value & """,""" & Pole_Map_name.Value & """);"
Application.Forms("frm_map").Refresh
 
End Sub

Добавлено через 29 минут
Тоже разобрался...
DOcmd.Close()

Не по теме:
Интересно я так и буду сам с собой общаться?)))

Следующий вопрос: При выполнении строки

Код Visual Basic

1 2	DoCmd.RunSQL "INSERT INTO MAP (MAP_FName, MAP_Name) VALUES(""" & Pole_MAP_FName.Value & """,""" & Pole_Map_name.Value & """);"

Возникает окошко с надписью "Будет добавлено следующее число записей:..."
и кнопки "да", "нет". При нажатии "Да" значения добавляются в таблицу и все пучком, а при нажатии "Нет" выскакивает ошибка 2501 "Прервано выполнение макрокоманды RunSQL" как это нормально обработать, как вариант ничего не делать или просто тот же DOcmd.close?

Добавлено через 21 минуту
Разобрался, использовал on error

Елена · 15.12.2009, 12:22

Хорошо, что сам быстро разбираешься, давай уже другим помогай

Xpoft · 15.12.2009, 12:30 **[ТС]**

Не по теме:
Эмм, разбираться то разбираюсь, тока работы еще не початый край)))
А помогаю по возможности в теме с экселем, видимо и тут тоже теперь буду)) аксесс вчера первый раз начал пользовать))

Уважаемые модераторы переименуйте тему во что нибудь другое, например "Работа с формами при помощи VBA"

Сдедующий вопрос по теме, как определить ввели в поле какое нибудь значение или оно пустое?
c Null ниче не выходит(
условие типа if a= null или is null не срабатывает(

БурундукЪ · 15.12.2009, 12:44

Код Visual Basic

1	if isnull(a) then

Yurii_74 · 15.12.2009, 12:47

Попытайтесь проверить длину строки. Если 0, то пусто.

Xpoft · 15.12.2009, 13:19 **[ТС]**

Len от переменной значения null выдает null...
Воспользовался советом CyberБурундукЪ

Xpoft · 15.12.2009, 14:11 **[ТС]**

Поехали дальше...
см.приложенный файл
на форме frm_map есть список lst_frm_map, в котором отображаются значения из таблицы MAP
в функции обработки события btn_frm_map_copy_Click() мне необходимо
1.получить значения Map_name, map_fname выбранной строки в списке
2.открыть форму frm_map_add(это я уже умею)
3.внести эти значения в соответствующие поля pole_map_name, pole_map_fname формы frm_map_add

Xpoft · 15.12.2009, 15:21 **[ТС]**

Все еще актуально...

1.получить значения Map_name, map_fname выбранной строки в списке
2.открыть форму frm_map_add(это я уже умею)

разобрался
1.lst_frm_map.Recordset.Fields.Item(1).Value
lst_frm_map.Recordset.Fields.Item(2).Value
2. DoCmd.OpenForm *
можно ли в параметрах OpenForm как то указать передаваемые в открываемую форму значения для полей
или как из модуля одной формы, нужное мне значение передать в модуль другой формы?

БурундукЪ · 15.12.2009, 15:23

Не по теме:
может не надо все в одну кучу валить
а то свалка получается

Xpoft · 15.12.2009, 15:34 **[ТС]**

Не по теме:
а я наоборот не хотел много тем плодить), вопросы возникают один за одним как видите)
Раз так тогда буду плодить)))

15.12.2009, 12:22	#2
Елена Форумчанин Регистрация: 18.08.2009 Адрес: Новосибирск Сообщений: 2,041 Репутация: 2405 (755)	re: Работа с формами при помощи VBA Хорошо, что сам быстро разбираешься, давай уже другим помогай

15.12.2009, 12:30 [ТС]	#3
Xpoft Asgard's resident Регистрация: 03.12.2009 Адрес: Москва Сообщений: 175 Репутация: 87 (85)	re: Работа с формами при помощи VBA Не по теме: Эмм, разбираться то разбираюсь, тока работы еще не початый край))) А помогаю по возможности в теме с экселем, видимо и тут тоже теперь буду)) аксесс вчера первый раз начал пользовать)) Уважаемые модераторы переименуйте тему во что нибудь другое, например "Работа с формами при помощи VBA" Сдедующий вопрос по теме, как определить ввели в поле какое нибудь значение или оно пустое? c Null ниче не выходит( условие типа if a= null или is null не срабатывает(

15.12.2009, 12:47	#5
Yurii_74 paladin Регистрация: 25.02.2009 Адрес: Челябинск Сообщений: 671 Репутация: 277 (177)	Re: Работа с формами при помощи VBA Попытайтесь проверить длину строки. Если 0, то пусто.

15.12.2009, 13:19 [ТС]	#6
Xpoft Asgard's resident Регистрация: 03.12.2009 Адрес: Москва Сообщений: 175 Репутация: 87 (85)	Re: Работа с формами при помощи VBA Len от переменной значения null выдает null... Воспользовался советом CyberБурундукЪ

15.12.2009, 15:21 [ТС]	#8
Xpoft Asgard's resident Регистрация: 03.12.2009 Адрес: Москва Сообщений: 175 Репутация: 87 (85)	Re: Работа с формами при помощи VBA Все еще актуально... 1.получить значения Map_name, map_fname выбранной строки в списке 2.открыть форму frm_map_add(это я уже умею) разобрался 1.lst_frm_map.Recordset.Fields.Item(1).Value lst_frm_map.Recordset.Fields.Item(2).Value 2. DoCmd.OpenForm * можно ли в параметрах OpenForm как то указать передаваемые в открываемую форму значения для полей или как из модуля одной формы, нужное мне значение передать в модуль другой формы?

15.12.2009, 15:23	#9
БурундукЪ Форумчанин Регистрация: 17.02.2009 Сообщений: 10,551 Репутация: 7952 (2385)	Re: Работа с формами при помощи VBA Не по теме: может не надо все в одну кучу валить а то свалка получается

15.12.2009, 15:34 [ТС]	#10
Xpoft Asgard's resident Регистрация: 03.12.2009 Адрес: Москва Сообщений: 175 Репутация: 87 (85)	Re: Работа с формами при помощи VBA Не по теме: а я наоборот не хотел много тем плодить), вопросы возникают один за одним как видите) Раз так тогда буду плодить)))

Похожие темы
Тема	Автор
VBA Вычисления по формуле при помощи VBA Есть формула (мат.экономика), хочется автоматизировать, и сделать вычисления при помощи VBA. ElseIf UserForm2.OptionButton3 = True Then NextRow = _ Application.WorksheetFunction.CountA(Range("A:A")) ' + 1 D = r.Text * M.Text For i = D To UserForm3.n.Text - 1 ...	inanity
VBA обработка текста в Word'е при помощи VBA Как скопировать ВЕСЬ текст с Документа1 и ДОБАВИТЬ в документ2 ? Документы Word	Артем К.Ю.
VBA Как нарисовать график на Userform при помощи VBA Помогите пожалуйста вывести график/диаграмму на которой будут строяться линии. (Для нахождения точки безубыточности). Данные будут браться из Textboxа. Большое спасибо!!!	Lavernet
VBA Рисование собственных Shape-ов при помощи VBA Необходимо при помощи VBA нарисовать собственную фигуры. При этом возникло несколько сложностей. 1)Как перед рисованием получить область, выделенную пользователем с помощью мыши, в которой будет происходить рисование фигуры - так как это происходит при рисовании большинства автофигур. 2)Можно ли...	PRom
MS Access Как заполнить отчет при помощи VBA? Как заполнить отчет при помощи VBA?	ivat

Опции темы	Поиск в этой теме
	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

15.12.2009, 15:34
Yandex Объявления

15.12.2009, 15:34
РСЯ Объявления