Программирование кнопки

@IrinaShoroh · Регистрация: 14.11.2019

Студворк — интернет-сервис помощи студентам

Добрый день.

Помогите, пожалуйста, реализовать следующий механизм (никак не придумаю, как бы изловчиться):
Есть три формы, допустим 1, 2 и 3. В форме 1 есть пустое поле и кнопка. Надо сделать так, чтобы по этой кнопке открывалась форма 2 или 3 в зависимости от заполнения этого поля. Ввел пользователь "2", нажал кнопку - смотрит форму 2, ввел "3" - открывается форма 3.
Я так понимаю, что должен быть какой-то код vba, типа if "поле1" = "2", then open.form "2" if поле1" = "3", then open.form "3" else и тут надо вывести сообщение об ошибке, если пользователь ввел что-то непотребное". Я программировать не умею, написала исключительно логику, как я это вижу...

@VinniPuh · 26.12.2019, 13:42

Если только 2 формы, то можно так

Visual Basic
1
2
3
4
5
  If ([Поле1] = 2) Then
      DoCmd.OpenForm "2"
    Else
      DoCmd.OpenForm "3"
  End If

Если предвидится больше чем 2 формы, то тогда так

Visual Basic
1
2
3
4
5
6
7
8
9
  If ([Поле1] = 2) Then
      DoCmd.OpenForm "2"
  End If
  If ([Поле1] = 3) Then
      DoCmd.OpenForm "3"
  End If
  If ([Поле1] = 4) Then
      DoCmd.OpenForm "4"
  End If

Добавлено через 2 минуты
Правда нужно, что бы поле было свободным или числовым.
Если поле текстовое, то значение поля1 заключить в кавычки, типа

Visual Basic
1
2
3
  If ([Поле1] = "2") Then
      DoCmd.OpenForm "2"
  End If

@Kiriver · 26.12.2019, 22:50

IrinaShoroh, можно использовать функцию Select case.

Добавлено через 6 минут

Visual Basic
1
2
3
4
5
6
7
8
Select Case me.поле
        Case "1"
        DoCmd.OpenForm "1"
        Case "2"
        DoCmd.OpenForm "2"
        Case "3"
        DoCmd.OpenForm "3"
End Select

@Capi · 27.12.2019, 00:29

Сообщение от IrinaShoroh

Ввел пользователь "2", нажал кнопку - смотрит форму 2, ввел "3" - открывается форма 3

Visual Basic
1
DoCmd.OpenForm "форма" & Поле1

@Eugene-LS · 27.12.2019, 06:43

IrinaShoroh, сам ув. Kiriver, правильно подсказал.
VinniPuh, вам должно быть стыдно за такое!
Куды вы торопились при ответе? - А!

Извини Миш - ну ответ был не оптимален!

Select Case ... - и точка.

... Сократ мне друг - но истина дороже ...

@VinniPuh · 27.12.2019, 07:44

Eugene-LS, почитай задание и Устыдись, ибо чего то домысливаешь за ТСа.
Нужно открыть только одну из двух форм с именами - 2 или 3.
Про 4-20 или сотую формы нет и речи.
Так что мой первый вариант минимальный и оптимальный согласно задания.

@alvk · 27.12.2019, 08:12

Сообщение от IrinaShoroh

Ввел пользователь "2", нажал кнопку - смотрит форму 2, ввел "3" - открывается форма 3.

Вот истинное решение:

Visual Basic
1
DoCmd.OpenForm Me!ПолеМоё

@Eugene-LS · 27.12.2019, 08:22

Сообщение от VinniPuh

почитай задание и Устыдись, ибо чего то домысливаешь за ТСа.

Устыдился.
Но по любому Select Case предподчительнее If ...
Особенно когда вариантов больше двух.

@VinniPuh · 27.12.2019, 08:32

Там нет больше двух, а только 2

@Eugene-LS · 27.12.2019, 08:36

Сообщение от VinniPuh

Там нет больше двух, а только 2

Заткнулся.
Был не прав.
Прошу великодушно простить.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 19.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@IrinaShoroh 0 / 0 / 0 Регистрация: 14.11.2019 Сообщений: 42

	Программирование кнопки 26.12.2019, 13:29. Показов 2102. Ответов 9 Метки База данных, программирование, форма входа (Все метки) Добрый день. Помогите, пожалуйста, реализовать следующий механизм (никак не придумаю, как бы изловчиться): Есть три формы, допустим 1, 2 и 3. В форме 1 есть пустое поле и кнопка. Надо сделать так, чтобы по этой кнопке открывалась форма 2 или 3 в зависимости от заполнения этого поля. Ввел пользователь "2", нажал кнопку - смотрит форму 2, ввел "3" - открывается форма 3. Я так понимаю, что должен быть какой-то код vba, типа if "поле1" = "2", then open.form "2" if поле1" = "3", then open.form "3" else и тут надо вывести сообщение об ошибке, если пользователь ввел что-то непотребное". Я программировать не умею, написала исключительно логику, как я это вижу... 0

@Eugene-LS 12902 / 5868 / 1504 Регистрация: 05.10.2016 Сообщений: 16,486
	27.12.2019, 06:43
	IrinaShoroh, сам ув. Kiriver, правильно подсказал. VinniPuh, вам должно быть стыдно за такое! Куды вы торопились при ответе? - А! Извини Миш - ну ответ был не оптимален! Select Case ... - и точка. ... Сократ мне друг - но истина дороже ... 0

@VinniPuh 9131 / 6140 / 593 Регистрация: 27.03.2013 Сообщений: 20,005
	27.12.2019, 07:44
	Eugene-LS, почитай задание и Устыдись, ибо чего то домысливаешь за ТСа. Нужно открыть только одну из двух форм с именами - 2 или 3. Про 4-20 или сотую формы нет и речи. Так что мой первый вариант минимальный и оптимальный согласно задания. 0

@VinniPuh 9131 / 6140 / 593 Регистрация: 27.03.2013 Сообщений: 20,005
	27.12.2019, 08:32
	Там нет больше двух, а только 2 0

Программирование кнопки

Решение