20 / 21 / 0
Регистрация: 19.05.2009
Сообщений: 114
1

АвтоБаза данных (Посмотрите пожалуйста)

25.05.2009, 08:40. Показов 8994. Ответов 67
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Посмотрите пожалуйста мою базу.Как она? Может что посоветуете чего я не знаю и не вижу по неопытности.И есть пара вопросов.В форме "Выручка по фамилии" и "Километраж"- они основные для работы внесения данных - дата не забивается автоматически (как например в таблице Стоимость билета), а очень хотелось бы для удобства. Посоветуйте что делать.
Вложения
Тип файла: rar Арника.rar (83.2 Кб, 302 просмотров)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.05.2009, 08:40
Ответы с готовыми решениями:

База данных "Автобаза"
Может кто-нибудь помочь с выполнением нижеуказанной работы? База данных «Автобаза» База...

посмотрите пожалуйста!
помогите пожалуйста! не могу разобраться((( Вариант №23 Таблица 1 содержит информацию : код...

Связи в Аксессе, посмотрите пожалуйста
:-| Помогите пожалуйста, я сделала форму на ней расположила несколько полей из разных таблиц. и...

[Проектирование БД] Автобаза - критика и советы
Задание: разработать веб-приложение. Предметная область: Диспетчер создает Рейсы, которые...

67
20 / 21 / 0
Регистрация: 19.05.2009
Сообщений: 114
18.11.2010, 13:31  [ТС] 61
Author24 — интернет-сервис помощи студентам
В вопросе разобралась.
0
20 / 21 / 0
Регистрация: 19.05.2009
Сообщений: 114
13.09.2013, 12:50  [ТС] 62
Здравствуйте всем.
Подскажите пожалуйста, почему у меня код по событию не обрабатывается?


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
Option Compare Database
 
Private Sub Кнопка12_click()
 
Dim dbs As Database
Dim RstN As Recordset
Dim RstD As Recordset
Dim mesiac As Integer, god As Integer, N As String, D As String, KG As String
 
 
mesiac = InputBox("введите месяц для расчета")
god = InputBox("введите год для расчета")
 
 Set dbs = CurrentDb
 Set RstN = dbs .OpenRecordset( "SELECT distinct Обращение as O From Путевки " _
 & "WHERE month([Дата путевки])=" & mesiac & "and year([Дата путевки])=" & god, dbOpenDynaset, dbReadOnly)
 
 While Not RstN.EOF
 
N = RstN.Fields("O")
 
 Set RstD = dbs .OpenRecordset("SELECT [Дата путевки] as DP, [Код График/маршрут] as KG From Путевки " _
 & "WHERE month([Дата путевки])=" & mesiac & "and year([Дата путевки])=" & god & "and Обращение='" & N & "'", dbOpenDynaset, dbReadOnly)
 
D = RstD.Fields("DP")
KG = RstD.Fields("KG")
 
    RstD.MoveNext
 
 Wend
 RstD.Close
 
MsgBox N & " " & D & " " & KG
 
    RstN.MoveNext
 Wend
 RstN.Close
 
End Sub
Миниатюры
АвтоБаза данных (Посмотрите пожалуйста)   АвтоБаза данных (Посмотрите пожалуйста)  
0
Эксперт MS Access
26804 / 14483 / 3192
Регистрация: 28.04.2012
Сообщений: 15,782
13.09.2013, 13:47 63
Не обрабатывается хотя бы потому, что есть один While и два Wend. Не хватает цикла прохода по RstD

Арника, а что вы хотели сделать в этом коде, кроме как дать сообщение?
1
20 / 21 / 0
Регистрация: 19.05.2009
Сообщений: 114
13.09.2013, 13:53  [ТС] 64
Private Sub Кнопка12_click()

MsgBox "ПРИВЕТ"


Private Sub Кнопка12_KeyPress(KeyAscii As Integer)

End Sub

Добавлено через 3 минуты
Но у меня и этот код не работает при нажатии кнопки, т.е. мне надо что б он заработал, а тот исправлю, у меня кнопка вообще не реагиирует
0
Эксперт MS Access
26804 / 14483 / 3192
Регистрация: 28.04.2012
Сообщений: 15,782
13.09.2013, 13:59 65
Если представленный код фактический, то в нем безусловная ошибка. Кстати, похожая на ошибку из предыдущего сообщения :-)
Один оператор End Sub на два оператора объявления процедуры: Private Sub Кнопка12_click() и Private Sub Кнопка12_KeyPress(KeyAscii As Integer). Так не может быть. В одной процедуре может быть только по одному оператору объявления и завершения процедуры
Visual Basic
1
2
3
4
5
Private Sub Кнопка12_click()
 
 MsgBox "ПРИВЕТ"
 
End Sub
2
20 / 21 / 0
Регистрация: 19.05.2009
Сообщений: 114
13.09.2013, 15:06  [ТС] 66
Option Compare Database

Private Sub Кнопка12_click()

MsgBox "ПРИВЕТ"

End Sub

Добавлено через 58 секунд
Мне надо засунууть код в кнопку, но я не как не могу, не знаю что делаю не так

Добавлено через 4 минуты
чтоб нажать на кнопку и запускалась программа

Добавлено через 48 минут
может быть кто-нибудь пустую базу с кнопкой сделает, чтоб работала, а я со своей сравню, найду ошибку
0
Эксперт MS Access
26804 / 14483 / 3192
Регистрация: 28.04.2012
Сообщений: 15,782
13.09.2013, 17:07 67
Арника, я думаю, что в свойствах кнопки не записано, что должна исполняться процедура обработки событий. Откройте форму в режиме конструктора, выделите кнопку, откройте свойства на вкладке События, выберите строку Нажатие кнопки. Из раскрывающегося списка (стрелка справа) выберите "Процедура обработки событий". Рядом со кнопкой со стрелкой кнопка с тремя точками, нажмите ее и попадете в редактор ВБА, прямо в нужную процедуру. Запишите там простую команду, например, мсгбокс, переведите форму в режим формы и попробуйте выполнить действие кнопки.
1
20 / 21 / 0
Регистрация: 19.05.2009
Сообщений: 114
13.09.2013, 17:21  [ТС] 68
Так и делаю, а ничего не получается.
А вы так здорово объясняете.

Добавлено через 4 минуты
мсгбокс никак не отреагировала
0
13.09.2013, 17:21
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.09.2013, 17:21
Помогаю со студенческими работами здесь

Посмотрите Базу Данных
Здраствуйте, помогите разобраться с базой данных по учету картриджей, я недавно в access, поэтому...

Посмотрите правильность схемы данных
Эту БД буду делать в делфи. Что бы в дальнейшем не было ошибок. Задание: Отдел кадров: список...

База данных Столовая Кто знает посмотрите!
Короче тема такая сказали сделать базу данных тем много! я вообще не знаю как их делать :-|...

Посмотрите пожалуйста код, не добавляет информацию в базу данных
Ошибки: Предупреждение: mysqli_connect() : (28000/1045): доступ запрещен для пользователя...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru