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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.03.2018, 23:07   #1
AskaS
Пользователь
 
Регистрация: 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 картинке
Изображения
Тип файла: jpg Снимок.JPG (15.3 Кб, 104 просмотров)
Тип файла: jpg Сним2ок.jpg (34.0 Кб, 74 просмотров)

Последний раз редактировалось AskaS; 12.03.2018 в 23:15.
AskaS вне форума Ответить с цитированием
Старый 13.03.2018, 07:32   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Цитата:
Код:
a = rst.Fields(0)
это только первое поле (тот самый "богатырев в.") а надо бы еще и другие поля
rst.Fields[1] 2...
ИЛИ ...
Код:
SELECT Журнал.ФИО + Журнал.Причина_обращения + Журнал.Дата_обращения as testmsg FROM Журнал ....
Код:
SELECT Журнал.ФИО & Журнал.Причина_обращения & Журнал.Дата_обращения FROM Журнал
получать все данные в одном поле (не уверен какой из вариантов работает в Access
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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