Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 13.03.2018, 00:07   #1
AskaS
Новичок
 
Регистрация: 28.02.2018
Сообщений: 3
Репутация: 10
По умолчанию Выборка 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 Кб, 17 просмотров)
Тип файла: jpg Сним2ок.jpg (34.0 Кб, 17 просмотров)

Последний раз редактировалось AskaS; 13.03.2018 в 00:15.
AskaS вне форума   Ответить с цитированием
Старый 13.03.2018, 08:32   #2
evg_m
Профессионал
 
Регистрация: 20.04.2008
Сообщений: 4,642
Репутация: 2097
По умолчанию

Цитата:
Код:

a = rst.Fields(0)

это только первое поле (тот самый "богатырев в.") а надо бы еще и другие поля
rst.Fields[1] 2...
ИЛИ ...
Код:

SELECT Журнал.ФИО + Журнал.Причина_обращения + Журнал.Дата_обращения as testmsg FROM Журнал ....

Код:

SELECT Журнал.ФИО & Журнал.Причина_обращения & Журнал.Дата_обращения FROM Журнал

получать все данные в одном поле (не уверен какой из вариантов работает в Access
__________________
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA в массиве размерности N определить кол-во положительных чисел, которые делятся на 3 без остатка VBA Mr.Aiba Помощь студентам 1 15.06.2017 23:29
Выборка в VBA (excel) chetvertnoy Помощь студентам 0 12.09.2016 21:27
Выборка в диапазоне значения по заданному промежутку и перенести на другой лист excel vba ac1-caesar Microsoft Office Excel 29 29.10.2014 13:46
VBA и Oracle: stored procedure из VBA и сохранение текста в переменной Lionne Microsoft Office Excel 1 15.04.2013 19:51
Выборка выборка с таблицы с отношением многие-ко-многим 8alig8 БД в Delphi 2 24.06.2010 12:21


22:51.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru