Форум программистов, компьютерный форум, киберфорум
Наши страницы

MS Access

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 2, средняя оценка - 4.00
БурундукЪ
9544 / 2541 / 66
Регистрация: 17.02.2009
Сообщений: 10,364
#1

Делимся наработками - MS Access

03.11.2009, 11:04. Просмотров 166652. Ответов 96
Метки нет (Все метки)

в этой теме предлагаю выкладывать интересные наработки по акцессу...

зы. в дальнейшем на основе их можно будет создать темы "важное"

Добавлено через 45 секунд
ззы. флуд и спам в этой теме будет награжден красными карточками
13
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.11.2009, 11:04
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Делимся наработками (MS Access):

Для рубрики "Делимся наработками", добить БД поставка-сделка авто - MS Access
День добрый, форумчане. Хочу довести до ума БД, чтобы добавить в раздел форума "Делимся наработками", так как там нашел только отдаленно...

Строковый тип данных. С наработками. Работает, но не верно - Pascal
Написать программу определения в заданной строке номера первого по порядку слова, которое короче своего предшественника и число вхождений в...

Делимся. - Web
Доброго времени суток всем посетителям этой темы!=) Хочу попросить вас поделиться самой откровенной информацией по нескольким...

Делимся знаниями по С++ - C++
По вашему зачем нужна виртуальная функция в программе? Какой от нее толк если она вызывается как обычная функция. Да я знаю что...

FX-6300, делимся опытом - Процессоры
Всем здрасте. Вот хотел спросить у вас, кто чего добился в разгоне 6300? Я разгонял до 4.7 поднятием множителя. Напряжение 1.35....

Ведьмак 2: делимся впечатлениями - RPG
Кто уже играл, поделитесь впечатлениями. То есть: лучше ли Ведьмак 2 по сравнению с Ведьмак, плюсы, минусы, в общем стоит ли брать игру?

96
diam
402 / 75 / 7
Регистрация: 06.12.2009
Сообщений: 296
07.09.2012, 15:46 #31
Вот программа с исходниками. Программа ищет человека в базе данных приставов через официальный сайт. При ручном поиске надо самому лезть на сайт, вбивать человека, выбирать регион, вводить капчу и потом ждать результата. Программа автоматически заполняет поля на странице, выбирает регион, если нужно отгадывать капчу - отсылает её в сервис антикапчи, и так в цикле для всех регионов. Ответ парсит и, в случае нахождения человека в списке должников, сохраняет информацию об исполнительном производстве.
Также пользователь может вбить человека, выбрать регион и по кнопке просто открыть ИЕ на странице судебных приставов. Все необходимые поля, такие как фио, дата рождения, регион, - будут заполнены и даже нажата кнопка "Искать".

В программе предусмотрена возможность использования прокси.
2
Вложения
Тип файла: zip Source.zip (615.6 Кб, 645 просмотров)
diam
402 / 75 / 7
Регистрация: 06.12.2009
Сообщений: 296
17.10.2012, 12:47 #32
С доктором вебом (а именно с компонентами Gate и Mail) была проблема при работе с моей программой судебных приставов. Тут описание проблемы и решение:
Что-то вырезает файл из передачи по WinHttpRequest
0
murcha86
125 / 43 / 1
Регистрация: 04.11.2011
Сообщений: 237
19.01.2013, 21:42 #33
Интересную ссылку нашел с примерами запросов в Access
1
mobile
21576 / 12185 / 2415
Регистрация: 28.04.2012
Сообщений: 13,397
19.01.2013, 22:02 #34
Цитата Сообщение от murcha86 Посмотреть сообщение
Интересную ссылку нашел с примерами запросов в Access
Если действительно есть желание овладеть SQL, лучший выход пойти на тренировочный сайт sql-ex.ru. Многие гуру-базовики паслись там подолгу.
3
evgenii3000
661 / 286 / 20
Регистрация: 16.01.2013
Сообщений: 1,955
Записей в блоге: 1
06.02.2013, 13:32 #35
Программа CRM (Система управления взаимоотношениями с клиентами)
храниться инфа по названию фирмы.
можно записывать историю, контакты, сайт почту и другое. напоминает что назначена встреча или тел звонок на сегодня и можно печатать тех задание на сегодня
access 2010 и разделена база. нужно указать путь заново. будут вопросы пишите в личку
0
Вложения
Тип файла: rar CRM .rar (132.6 Кб, 1206 просмотров)
PuhKMV
5626 / 3151 / 319
Регистрация: 27.03.2013
Сообщений: 11,635
13.04.2013, 00:26 #36
Извините. Может по Недомыслию влез не в туда, в куда надо, но может коиу пригодится для создания БД.
Лазил по интернету (нужно было), а так как фанат БД, зацепил списки регионов РФ а соответственно и населенных пунктов с кодами АТС. Создал по своему разумению БД - "Регионы Стран" с кодами АТС населенных пунктов. Если кому это тоже интересно и сможет улучщить БД и дополнить недостающие сведения, предлагаю восполнять и улучшать их, (Выкладывая на - самом ЛУЧЩЕМ И ЛЮБИМОМ форуме - "Форум Базы данных") - и так до "АБСОЛЮТНОГО СОВЕРШЕНСТВА".
Есле не прав, ПОПРАВЬТЕ, как более старшие и мудрые Единомышленники.
4
Вложения
Тип файла: zip Регионы Стран.zip (1.14 Мб, 510 просмотров)
shanemac51
Модератор
6723 / 2576 / 351
Регистрация: 07.08.2010
Сообщений: 6,949
Записей в блоге: 1
16.04.2013, 17:28 #37
студентам на заметку
--------
мини описание базы
поместите модуль в анализируемую базу и вызовите на выполнение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
Option Compare Database
Option Explicit
 
 
Dim dbs As DAO.Database
Dim prt As DAO.Property
Dim tbl As DAO.TableDef
Dim zapr As DAO.QueryDef
Dim fld As DAO.Field
 
 
Dim ref As Reference
Dim doc As Document
Dim cnt As Control
Dim mdl As Module
Dim frm As Form
Dim rpt As Report
 
Dim j1, j2, s1, s2, s3, s4, n1, n2, n3
Dim szag
 
Sub a_pech_mod130416a()
Reset
Open CurrentDb.Name & "f" For Output As #3
 
Set dbs = CurrentDb
 
 
szag = "'" & Now() & "= = = = = " & dbs.Name & " = = = = ="
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Print #3, szag
For Each prt In dbs.Properties
If prt.Type = 0 Then
Print #3, "BP=", prt.Type, prt.Name
Else
Print #3, "BP=", prt.Type, prt.Name, prt.Value
End If
'.Name, prt.Value
Next prt
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Print #3, ""
Print #3, "'References="; szag
For Each ref In References
Print #3, ref.Name, ref.FullPath
Next ref
'''''''''''''''''''''''''''''''''
Print #3, ""
Print #3, "'SCRIPTS="; szag
For Each doc In dbs.Containers("SCRIPTS").Documents
n1 = doc.Name
'Print #3, "'\\ "
Print #3, "MK=", n1
Next doc
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Print #3, ""
Print #3, "TableDefs="; szag
For Each tbl In dbs.TableDefs
n1 = tbl.Name
n2 = "-" & tbl.Connect
Debug.Print tbl.Name
'Print #1, "'\\ "
If Mid(n1, 1, 4) = "MSys" Then
''
ElseIf Len(n2) > 1 Then
Print #3, ""
Print #3, "``t=", n1
Print #3, "\\Connect=", n2
Else
Print #3, ""
Print #3, "``t=", n1; " записей="; tbl.RecordCount; " \\" & tbl.ValidationText
n2 = ""
n3 = ""
 
Dim n4r, n4d
 
n3 = Chr(13) & Chr(10)
'''''''''''''''''''
For Each fld In tbl.Fields
n4d = " //"
n4r = " //"
'On Error Resume Next
Print #3, "`"; fld.Name; "`"; fld.Type; "`"; fld.Size
Debug.Print "`"; fld.Name; "`"; fld.Type; "`"; fld.Size
'fld.d
'n4r = n4r & fld.Properties("RowSource")
'n4d = n4d & fld.Properties("Description")
'On Error GoTo err00
'If Len(n4r) > 3 And Len(n4r) < 2000 Then
'Print #3, "`---подстановка= "; n4r
'End If
'If Len(n4d) > 3 And Len(n4d) < 2000 Then
'Print #3, "`===примечание= "; n4d
'End If
 
n2 = s1
Next fld
 
End If
Next tbl
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Print #3, ""
Print #3, "'QueryDefs="; szag
For Each zapr In dbs.QueryDefs
n1 = zapr.Name
On Error Resume Next
n2 = "\\"
n2 = " " & zapr.SQL
On Error GoTo err00
'Print #3, "'\\ "
Print #3, ""
Print #3, "``z=", n1
Print #3, n2
Next zapr
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Print #3, "'forms="; szag
For Each doc In dbs.Containers("forms").Documents
n1 = doc.Name
DoCmd.OpenForm n1, acDesign, , , acFormReadOnly, acHidden
Print #3, "'\\ ==============================="
Print #3, "``F=", n1
Print #3, "источник\\RecordSource="; Forms(n1).RecordSource
 
n2 = ""
n3 = ""
n3 = Chr(13) & Chr(10)
 
'On Error Resume Next
Print #3, ""
'Print #3, "'forms="; szag
For Each cnt In Forms(n1).Controls
s1 = cnt.ControlType
Debug.Print s1
s2 = cnt.Name
Debug.Print s1, s2
s3 = "\\"
'On Error Resume Next
If s1 = acTextBox Then
s3 = cnt.ControlSource
End If
s4 = "\\"
If s1 = acLabel Then
s4 = cnt.Caption
End If
 
Debug.Print s1, s2, s3, s4
s1 = n2 & "`" & s1 & "`" & s2 & "`" & s3 & "`" & s4 & n3
n2 = s1
Next cnt
Print #3, n2
Set mdl = Forms(n1).Module
Print #3, "'\\ "
Print #3, "``модуль формы="; n1; " линий="; mdl.Lines(1, 99999)
DoCmd.Close acForm, n1, acSaveNo
Next doc
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Print #3, "'reports="; szag
For Each doc In dbs.Containers("reports").Documents
n1 = doc.Name
DoCmd.OpenReport n1, acViewDesign, , , acHidden
Print #3, "'\\ ================================"
Print #3, "``R=", n1
Print #3, "источник\\RecordSource="; Reports(n1).RecordSource
 
n2 = ""
n3 = ""
n3 = Chr(13) & Chr(10)
 
For Each cnt In Reports(n1).Controls
s1 = cnt.ControlType
Debug.Print s1
s2 = cnt.Name
Debug.Print s1, s2
s3 = "\\"
'On Error Resume Next
If s1 = acTextBox Then
s3 = cnt.ControlSource
End If
s4 = "\\"
If s1 = acLabel Then
s4 = cnt.Caption
End If
 
Debug.Print s1, s2, s3, s4
s1 = n2 & "`" & s1 & "`" & s2 & "`" & s3 & "`" & s4 & n3
n2 = s1
Next cnt
Print #3, n2
Set mdl = Reports(n1).Module
Print #3, "'\\ "
Print #3, "``модуль отчета=", n1, ; " линий="; mdl.Lines(1, 99999)
DoCmd.Close acReport, n1, acSaveNo
Next doc
On Error GoTo 0
'On Error GoTo err00
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Print #3, ""
Print #3, "'modules="; szag
 
For Each doc In dbs.Containers("modules").Documents
n1 = doc.Name
DoCmd.OpenModule n1
Set mdl = Modules(n1)
Print #3, "'\\ "; szag
'Print #3, "modules=", n1
 
Print #3, "``modules="; n1; "  линий="; mdl.CountOfLines
'Print #1, "'\\"
 
Print #3, mdl.Lines(1, 99999)
 
DoCmd.Close acModule, n1
'Next doc
Next doc
Print #3, "'\\fin"
Close #3
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
MsgBox " описание базы " & CurrentDb.Name & "f"
Exit Sub
err00:
MsgBox Err.Number & " " & Err.Description
Err.Clear
Resume Next
End Sub
 Комментарий модератора 
Т.к. уважаемая shanemac51 так и не приложила пример использования, прилагаю свой пример с процедурой в отдельном модуле, которая вызывается по событию Нажатие кнопки
0
Вложения
Тип файла: rar МодульОписаниеБД.rar (17.5 Кб, 433 просмотров)
KotVad
4 / 4 / 1
Регистрация: 02.05.2013
Сообщений: 18
06.05.2013, 15:36 #38
Выполненная практическая работа - БД «Коммерческая фирма». Что из себя представляет:
Внесение инфы по поставщику, клиентам, моделей авто и цен на них, поставка и сделка (дата, количество, кто оформил). Расчет наличия (остатка), формирование отчета реализации по группе поставщика и общей по периоду, запрос на лидерство сотрудников по продажам. Содержит кнопочные формы, различные запросы (на замену, параметрический и т.д.) sql-запросы и т.д.

В архиве сама БД 2007, схемы концептуальной и реляционной модели, а также отчет - пошаговое описание содержания работы (с картинками ^_^).

Пользуйтесь, возможно что-то и недоработано или реализовано криво, выполнял с нуля в качестве обучения, помогая студентке.
лаба.zip

Обсуждение
1
evgenii3000
661 / 286 / 20
Регистрация: 16.01.2013
Сообщений: 1,955
Записей в блоге: 1
30.05.2013, 11:29 #39
Программа CRM (Система управления взаимоотношениями с клиентами) обсуждения доработка

Создал новую версию программы.
Программа CRM (Система управления взаимоотношениями с клиентами)
Access 2010 (БД не разделенная)
Здесь будем переписываться по поводу доработать и изменить ее. Надеюсь кому то пригодится
Она хранит инфу по фирмы в который обзванивали, название, контакты, историю общения, напоминания, поиск сотрудника который ведет эту фирму. файлы которые относятся к этой фирме (договора, сканы) ФИО менеджера, вид работы, отдел которому передается работа (внутри фирмы) и др.

таблицы и вкладки не скрывал от пользователей. но делаю это стандартным способом.
формы для изменения ФИО сотрудников, вид работ, Контрагент тоже только через таблицы добавляю
файлы храню не в access а "Веб браузер" на диск C:\file\ папки создаются по коду счетчика (порядковый) поэтому нужно ОБЯЗАТЕЛЬНО СОЗДАТЬ ПАПКУ "file" внутри сами создаются уже при создании фирмы и проверяет название фирмы на совпадения.
Если разделить базу то можно пользоваться одновременно до 20 чел иначе перекинуть базу на sql server.
Жду предложений по улучшению и ошибки. постараюсь помочь подогнать под Вас.
форум для обсуждения и вопросов по БД

База на форуме тест
0
KotVad
4 / 4 / 1
Регистрация: 02.05.2013
Сообщений: 18
21.06.2013, 17:41 #40
По работе сделал простую базу с динамическим поиском и отчетом с группировкой.

Задачи: Ввод инфы о человеке и документе, хранение и поиск, отчет с группировкой по документу и по порядку внесения в базу.

Делимся наработками
Делимся наработками
Делимся наработками
Чеки РИК.zip
1
Aeliot
175 / 60 / 1
Регистрация: 17.11.2011
Сообщений: 318
09.10.2013, 21:14 #41
Как-то замучившись с вопросом "Чего бы это сделать в первую очередь?", накидал простенькую базу чтобы справиться с накопившимися делами. Получилось быстрее, чем искать подходящий сервис
Из плюшек:
- ведение нескольких проектов.
- расстановка дел по приоритетам.
- статусы задач (новое, в работе, выполнено).
- автоматическое вскрытие выполненных задач.
- подсветка наиболее важных задач.
- список пожеланий ("Хорошо бы было, если сделать...") с возможностью последующего их закрепления за конкретным проектом.
2
Вложения
Тип файла: zip accdb_ ProgrammingProects _out.zip (62.8 Кб, 880 просмотров)
PuhKMV
5626 / 3151 / 319
Регистрация: 27.03.2013
Сообщений: 11,635
29.12.2013, 20:55 #42
Немного доработанный вариант + поиск к ранее выложенному примеру Делимся наработками
Не могу не поделиться
4
Вложения
Тип файла: rar Регионы Стран-03.rar (1,009.9 Кб, 579 просмотров)
Rube
911 / 559 / 88
Регистрация: 13.02.2014
Сообщений: 2,071
20.02.2014, 08:27 #43
Backup баз данных с помощью командной строки WinRAR.
Хоть наработка и не относится напрямую к Access, но необходима часто.
Файл !DoBackup.bat:
XML
1
2
3
@Echo Off
@Echo Copy, please wait...
@"c:\program files\WinRar\WinRAR.exe" a -ep -u -dh -agYYYY-MM-DD_HH'mm'ss -ibck -m5 "%~dp0\.rar" @!FileList.txt
!FileList.txt (список полных путей копируемых файлов, если файл в пути не указан, копируются все файлы из папки):
XML
1
2
3
\\rc0\s01\DRZ\БД1
\\rc1\common$\VL1\БД2
\\rc3\RZ\!Упр\БД3\BD3.cl
Все файлы копируются в один файл с именем в формате YYYY-MM-DD_HH'mm'ss.rar (можно изменить) в папку где находятся файлы !DoBackup.bat и !FileList.txt.
Периодический запуск !DoBackup.bat организуйте в планировщике, либо другим способом.
4
diam
402 / 75 / 7
Регистрация: 06.12.2009
Сообщений: 296
20.02.2014, 08:53 #44
Аналог предыдщуего сообщения.
Бат-файл, который запускает, декомпилит и сжимает базу данных, а затем архивирует, файл нумерует в порядке очередности за день и ложит в папочку \history

XML
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
chcp 1251 > nul 
chdir "D:\Develop\Source\"
"C:\Program Files\Microsoft Office 2007\Office14\MSACCESS.EXE" "D:\Develop\Source\C_sql.accdb" /decompile /cmd history
 
"C:\Program Files\Microsoft Office 2007\Office14\MSACCESS.EXE" "D:\Develop\Source\C_sql.accdb" /compact
 
set fn=CZ_%date:~6,4%.%date:~3,2%.%date:~0,2%
 
 set i=0
:next
   set /a i=i+1
   set fname=%fn%_%i%.rar
 if exist _history\%fname% goto next
 
chcp 866 > nul 
"D:\Program Files\WinRAR\WinRAR.exe" A _history\%fn%_%i%.rar C_sql.accdb
 
:end
В базе данных, на событие Open стартовой формы в самом начале вешаю код
Visual Basic
1
2
3
4
Private Sub Form_Open(Cancel As Integer)
  If Command = "history" Then Exit Sub
.....
End Sub
А на событие Load стартовой формы
Visual Basic
1
2
3
4
Private Sub Form_Load()
  If Command = "history" Then Application.Quit
.....
End Sub
Таким образом, при запуске батника программа открывается, декомпилится, сжимается и закрывается. И не выполняет лишних действий при старте.
Папка \history должна существовать в том же каталоге, где запускается батник.
5
solobala
51 / 2 / 1
Регистрация: 14.02.2014
Сообщений: 24
27.02.2014, 21:08 #45
History - это имя bat - файла?
0
27.02.2014, 21:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2014, 21:08
Привет! Вот еще темы с ответами:

Делимся результатами 3dMark`11 - Выбор компьютера
виложуєм в ету тему свои результати в 11 маку и конфигурации

Qt: Учимся вместе. Делимся опытом. - C++ Qt
Сейчас я пытаюсь осваивать Qt. Я плохо знаю C++ и Qt в частности... поэтому часто бывают моменты, когда для решения, казалось бы, простой...

Реальные программы - делимся со всеми - C#
Давайте делиться реальными прогами на С#, т.к. у всех возникают часто похожие проблемы в коде и их можно обсудить на Конкретных примерах....

Делимся опытом встреч с WannaCry(pt) - Безопасность
Профессионалы компьютерной безопасности, рабочие сервис-центров или просто сосед-хакер-ы, поделитесь своим опытом встреч с wannacry, и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
45
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru