Форум программистов, компьютерный форум, киберфорум
MySQL
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
46 / 31 / 1
Регистрация: 28.09.2012
Сообщений: 972

Странное отображение значка закрытия формы интерфейса Аксес-2003, таблицы в MySQL

25.09.2017, 11:46. Показов 665. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Форумчане, доброго времени суток.

Есть интерфейс Аксесс 2003, связанный с таблицами MySQL.
В некоторых формах интерфейса Аксесс-2003 иногда не активен значок закрытия форм (крестик).
В одной из форм это практически всегда, в других формах - иногда.
Не сталкивались с подобной ситуацией, как ее победить??
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
25.09.2017, 11:46
Ответы с готовыми решениями:

Экспорт локальной базы Аксес 2003 в сетевую базу Аксес 2003 защищенную паролем VBA
Доброго времени суток!!! Изваял правдами и неправдами базу аксесс 2003(локальную ,не защищенную паролем VBA) , сейчас стоит задача...

Изменение отображения значка начальной формы из формы заставки после закрытия
Никак не получается из формы заставки после ее закрытия изменить в начальной форме showiconintascbar. Никто не знает как это сделать? В...

Странное отображение интерфейса
Привет. Переустановил винду, но видимо графический драйвер не встал. Я даже не пойму, какое-то не "обычное" отображение...

5
71 / 71 / 16
Регистрация: 07.05.2014
Сообщений: 181
25.09.2017, 19:13
VB код есть в формах? Может там что-то настраивается
0
46 / 31 / 1
Регистрация: 28.09.2012
Сообщений: 972
25.09.2017, 21:50  [ТС]
uznik93,
Цитата Сообщение от uznik93 Посмотреть сообщение
VB код есть в формах
- есть.
0
71 / 71 / 16
Регистрация: 07.05.2014
Сообщений: 181
26.09.2017, 07:36
Покажите код, может там программно блокируется закрытие.
0
46 / 31 / 1
Регистрация: 28.09.2012
Сообщений: 972
26.09.2017, 17:08  [ТС]
uznik93, код выкладываю. При работе интерфейса аксесс с БД (таблицами) аксесс такой проблемы не возникало.

Кликните здесь для просмотра всего текста
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
Option Compare Database
Private Sub Form_Close()
Dim stDocName As String
    stDocName = "gry_Bipyck_Vctavka_R_RA"
    CurrentDb.Execute stDocName
    stDocName = "gryAkt_Berc_PO_Ydalit_Tbl"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
        
    stDocName = "gryOpov_O_Novoi_Bepcii_PO_5"
    CurrentDb.Execute stDocName
End Sub
 
Private Sub Form_Deactivate()
Dim stDocName As String
 
    
    
If CurrentDb.OpenRecordset("gryOpov_O_Novoi_Bepcii_PO_4").EOF Then Exit Sub
    DoCmd.OpenReport "rptOpov_O_Novoi_Bepcii_PO_4", acViewPreview
    
    stDocName = "gryOpov_O_Novoi_Bepcii_PO_6"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    
End Sub
 
Private Sub Form_Load()
 
Me.idFIO_OTK.DefaultValue = DLookup("idCotrydnik", "Enter1")
Me.idFIO_Zapici.DefaultValue = DLookup("idCotrydnik", "Enter1")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim stDocName As String
    stDocName = "gryBir_Kod_Izd_Amp_Bolt_Icp_B_Tbl_Ident_Izd"
    CurrentDb.Execute stDocName
 
    stDocName = "gryShtrixkod_Izdeliy_Vremy"
    CurrentDb.Execute stDocName
    
    stDocName = "gryIzd_Amp_Bolt_Icp"
    CurrentDb.Execute stDocName
    
    stDocName = "gryAkt_Berc_PO_Bipyck_RA_Otbor"
    CurrentDb.Execute stDocName
 
    stDocName = "gryAkt_B_Tbl"
    CurrentDb.Execute stDocName
 
    If CurrentDb.OpenRecordset("gryAkt_Ne_Berc_PO_Bipyck_RA").EOF Then Exit Sub
    DoCmd.OpenReport "rptAkt_Ne_Berc_PO_Bipyck_RA", acViewPreview
    
If MsgBox("OK - Выход, Отмена - Вернуться в форму и продолжить ", vbOKCancel + vbDefaultButton1) = vbCancel Then Cancel = True
  
End Sub
 
Private Sub Кнопка39_Click()
On Error GoTo Err_Кнопка39_Click
 
 
    DoCmd.Close
 
Exit_Кнопка39_Click:
    Exit Sub
 
Err_Кнопка39_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка39_Click
    
End Sub
 
Private Sub Кнопка49_Click()
On Error GoTo Err_Кнопка49_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "frmBipyck_Data"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Кнопка49_Click:
    Exit Sub
 
Err_Кнопка49_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка49_Click
    
End Sub
 
 
Private Sub Кнопка55_Click()
Dim s(), n, k, j, k0
    Me.Dirty = False
 
    With Me.Recordset
        n = .Fields.Count - 1
        ReDim s(n)
        For i = 0 To n
            s(i) = .Fields(i)
            If .Fields(i).Name = "Nomer_Izdeliy" Then k = .Fields(i)
        Next
            
        
        On Error Resume Next
        For j = 1 To Me.Поле22
            k = k + 1
            .AddNew
            For i = 0 To n
                If .Fields(i).Name <> "idIdentifikator_Izd" Then
                    If .Fields(i).Name = "Nomer_Izdeliy" Then
                        .Fields(i) = k
                    Else
                        .Fields(i) = s(i)
                    End If
                End If
            Next
            .Update
        Next j
    End With
    Err.Clear
End Sub
Private Sub Кнопка58_Click()
On Error GoTo Err_Кнопка58_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "frmBozvrati_Iz_OTK_OTK_RA"
    
    stLinkCriteria = "[idFIO_OTK]=" & Me![idFIO_OTK]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Кнопка58_Click:
    Exit Sub
 
Err_Кнопка58_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка58_Click
    
End Sub
 
 
Private Sub Кнопка78_Click()
Dim stDocName As String
stDocName = "gryAkt_Berc_PO_Bipyck_RA_Otbor"
CurrentDb.Execute stDocName
 
stDocName = "gryAkt_Berc_PO_Bipyck_Tolko_RA"
CurrentDb.Execute stDocName
 
stDocName = "gryAkt_B_Tbl"
CurrentDb.Execute stDocName
 
stDocName = "rptAkt_Ne_Berc_PO_Bipyck_RA"
    DoCmd.OpenReport stDocName, acPreview
End Sub
Private Sub Кнопка86_Click()
On Error GoTo Err_Кнопка86_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "frmBercii_PO_Aktualn_Knopki_Procm"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Кнопка86_Click:
    Exit Sub
 
Err_Кнопка86_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка86_Click
    
End Sub
Private Sub Кнопка88_Click()
Dim stDocName As String
stDocName = "gryAkt_Berc_PO_Bipyck_RA_Otbor_Bce"
CurrentDb.Execute stDocName
 
stDocName = "gryAkt_B_Tbl_Bce"
CurrentDb.Execute stDocName
 
stDocName = "rptAkt_Ne_Berc_PO_Bipyck_RA_Bce"
    DoCmd.OpenReport stDocName, acPreview
End Sub
 
 
 
Private Sub Кнопка92_Click()
Dim stDocName As String
    stDocName = "gryBir_Kod_Izd_Amp_Bolt_Icp_B_Tbl_Ident_Izd"
    CurrentDb.Execute stDocName
 
    stDocName = "gryShtrixkod_Izdeliy_Vremy"
    CurrentDb.Execute stDocName
    
    stDocName = "gryIzd_Amp_Bolt_Icp"
    CurrentDb.Execute stDocName
End Sub
0
71 / 71 / 16
Регистрация: 07.05.2014
Сообщений: 181
26.09.2017, 17:41
Вроде нет ничего не обычного.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
26.09.2017, 17:41
Помогаю со студенческими работами здесь

Обновление таблицы dataGridView после закрытия дочерней формы
Доброго времени суток. Собственно говоря есть главная форма, на которой находится dataGridView таблица, так же есть дочерняя форма, которая...

аксес 2003 ( ХР ) не могу открыть на 2010 ( 7 )
создал простейшую БД на 2003 (ХР) написано несколько макросов вба на 2010 ( 7 ) при открытии пишет COmpile Eror Cant find...

Открытие файла по сылке через Аксесс 2003 , таблицы -в mySQL
Форумчане, доброго времени суток! Перенес таблицы с Аксесс 2003 на MySQL. Гиперссылки перестали работать. Вновь введенные гиперссылки...

Странное поведение значка сети в трее Win7
Добрый день! Уже неделю наблюдаю странное поведение значка сети в трее (ОС Win7 x64 SP1) - после входа в систему на значке...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru