|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.03.2018, 23:07 | #1 |
Пользователь
Регистрация: 28.02.2018
Сообщений: 14
|
Выборка VBA
Есть таблица, в которой поля ФИО, .ДАТА_ПОСЕЩЕНИЯ и ПРИЧИНА_ПОСЕЩЕНИЯ
нужно написать на VBA код на выборку по фамилиям , т.е. нажимаю на кнопку и там появляется сообщение "введите фио" я вожу и потом должны появиться данные именно по этому человеку у меня же получилось так: ввожу фио и выходит лишь столбец с фио и дата и причина не выходят можете мне помочь с этим делом, буду очень благодарна Вот собственно мой код Private Sub Кнопка2_Click() Dim ssgl As String Dim rst As DAO.Recordset Dim db As DAO.Database Dim a As String Dim b As String Dim n As Integer Set db = CurrentDb() Set rst = db.OpenRecordset("журнал", dbOpenDynaset) b = InputBox("Фио пациента") ssgl = " SELECT Журнал.ФИО , Журнал.Причина_обращения, Журнал.Дата_обращения FROM Журнал WHERE Журнал.ФИО = " & "'" & b & "'" Set rst = db.OpenRecordset(ssgl) rst.MoveFirst Do While Not rst.EOF a = rst.Fields(0) n = Len(a) If n < 6 Then a = a & Space(1) n = Len(a) a = LCase(a) str_my = str_my & vbNewLine & a rst.MoveNext Loop MsgBox str_my, vbOKOnly, t rst.Close db.Close End Sub И вот таков результат у меня выходит А нужно примерно как на 2 картинке Последний раз редактировалось AskaS; 12.03.2018 в 23:15. |
13.03.2018, 07:32 | #2 | |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,526
|
Цитата:
rst.Fields[1] 2... ИЛИ ... Код:
Код:
программа — запись алгоритма на языке понятном транслятору
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
VBA в массиве размерности N определить кол-во положительных чисел, которые делятся на 3 без остатка VBA | Mr.Aiba | Помощь студентам | 1 | 15.06.2017 22:29 |
Выборка в VBA (excel) | chetvertnoy | Помощь студентам | 0 | 12.09.2016 20:27 |
Выборка в диапазоне значения по заданному промежутку и перенести на другой лист excel vba | ac1-caesar | Microsoft Office Excel | 29 | 29.10.2014 12:46 |
VBA и Oracle: stored procedure из VBA и сохранение текста в переменной | Lionne | Microsoft Office Excel | 1 | 15.04.2013 19:51 |
Выборка выборка с таблицы с отношением многие-ко-многим | 8alig8 | БД в Delphi | 2 | 24.06.2010 12:21 |