Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Форум программистов и сисадминов Киберфорум > Форум программистов > Базы данных > Microsoft Access
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
1 / 1 / 0
Регистрация: 01.12.2014
Сообщений: 12

Разобраться с кодом

04.12.2014, 08:50. Показов 712. Ответов 2
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Всем привет, есть готовая программа, ее нужно немного изменить но я ничего не понимаю в коде, помогите разобраться с кодом

Code
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

Option Explicit
Public Cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public WBName, KoD, OrgName, MonthN, SQL As String
Public l As Integer
 
Sub SaveToMdb()
Dim mdb As String: mdb = ThisWorkbook.Path & "\DataBase.mdb"
Dim SourceSheet As Worksheet
Dim ItemIndex As Long
Dim KDTemp, GrbsT As String
Dim KeyMAX As Long
Dim Ans As Integer
 
MonthN = CStr(Format(ActiveWorkbook.Worksheets(1).Range("E3").Value, "mmmm"))
GrbsT = ActiveWorkbook.Worksheets(1).Range("C5").Value
OrgName = ActiveWorkbook.Worksheets(1).Range("C6").Value
KDTemp = ActiveWorkbook.Worksheets(1).Range("C8").Value
KoD = ActiveWorkbook.Worksheets(1).Range("C8").Value + Format(ActiveWorkbook.Worksheets(1).Range("E3"), "yyyy")
'CStr(ThisWorkbook.Worksheets("СВОД").YearCh.Value)
 
If Cn.State = adStateClosed Then
    Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    Cn.CursorLocation = adUseClient
    Cn.Open mdb
End If
 
Set rs = Nothing
SQL = "SELECT * FROM " & KoD & " WHERE НазванОрг='" & OrgName & _
"' AND Месяц='" & MonthN & "';"
rs.Open SQL, Cn
If rs.RecordCount <> 0 Then
    Ans = MsgBox("Данные по " & OrgName & " за " & MonthN & " уже загруженны. ЗАМЕНИТЬ???", vbOKCancel)
    Select Case Ans
        Case vbOK
            Set rs = Nothing
            SQL = "DELETE * FROM " & KoD & " WHERE НазванОрг='" & OrgName & _
            "' AND Месяц='" & MonthN & "';"
            rs.Open SQL, Cn
        Case vbCancel
            GoTo Ends
    End Select
End If
Set rs = Nothing
SQL = "ALTER TABLE " & KoD & " ALTER COLUMN Ключ COUNTER(1,1);"
rs.Open SQL, Cn
Set rs = Nothing
SQL = "SELECT MAX(Ключ) As Keys FROM " & KoD & ";"
rs.Open SQL, Cn
On Error GoTo ERRH1
KeyMAX = rs.Fields("Keys").Value
 
'On Error GoTo Ends
Set rs = Nothing
rs.Open KoD, Cn, adOpenDynamic, adLockOptimistic, adCmdTable
Set SourceSheet = ActiveWorkbook.Worksheets(1)
With SourceSheet
    For ItemIndex = 9 To .Cells(Rows.Count, 1).End(xlUp).Row
    KeyMAX = KeyMAX + 1
    rs.AddNew
    rs.Fields("Ключ") = KeyMAX
    rs.Fields("НазванОрг") = OrgName
    rs.Fields("Месяц") = MonthN
    rs.Fields("ГРБС") = GrbsT
    rs.Fields("БухСчет") = .Cells(ItemIndex, 1).Value
    rs.Fields("КОСГУ") = .Cells(ItemIndex, 2).Value
    rs.Fields(KDTemp) = .Cells(ItemIndex, 3).Value
    rs.Fields("Сумма") = .Cells(ItemIndex, 4).Value
    rs.Fields("ДатаВозн") = .Cells(ItemIndex, 5).Value
    rs.Fields("ДатаПог") = .Cells(ItemIndex, 6).Value
    rs.Fields("Примечание") = .Cells(ItemIndex, 7).Value
    rs.Update
    Next ItemIndex
End With
Set rs = Nothing
 
MonthN = CStr(Format(ActiveWorkbook.Worksheets(2).Range("E3").Value, "mmmm"))
GrbsT = ActiveWorkbook.Worksheets(2).Range("C5").Value
OrgName = ActiveWorkbook.Worksheets(2).Range("C6").Value
KDTemp = ActiveWorkbook.Worksheets(2).Range("C8").Value
KoD = ActiveWorkbook.Worksheets(2).Range("C8").Value + CStr(ThisWorkbook.Worksheets("СВОД").YearCh.Value)
 
Set rs = Nothing
SQL = "DELETE * FROM " & KoD & " WHERE НазванОрг='" & OrgName & _
"' AND Месяц='" & MonthN & "';"
rs.Open SQL, Cn
Set rs = Nothing
SQL = "ALTER TABLE " & KoD & " ALTER COLUMN Ключ COUNTER(1,1);"
rs.Open SQL, Cn
Set rs = Nothing
SQL = "SELECT MAX(Ключ) As Keys FROM " & KoD & ";"
rs.Open SQL, Cn
On Error GoTo ERRH1
KeyMAX = rs.Fields("Keys").Value
 
'On Error GoTo Ends
Set rs = Nothing
rs.Open KoD, Cn, adOpenDynamic, adLockOptimistic, adCmdTable
Set SourceSheet = ActiveWorkbook.Worksheets(2)
With SourceSheet
    For ItemIndex = 9 To .Cells(Rows.Count, 1).End(xlUp).Row
    KeyMAX = KeyMAX + 1
    rs.AddNew
    rs.Fields("Ключ") = KeyMAX
    rs.Fields("НазванОрг") = OrgName
    rs.Fields("Месяц") = MonthN
    rs.Fields("ГРБС") = GrbsT
    rs.Fields("БухСчет") = .Cells(ItemIndex, 1).Value
    rs.Fields("КОСГУ") = .Cells(ItemIndex, 2).Value
    rs.Fields(KDTemp) = .Cells(ItemIndex, 3).Value
    rs.Fields("Сумма") = .Cells(ItemIndex, 4).Value
    rs.Fields("ДатаВозн") = .Cells(ItemIndex, 5).Value
    rs.Fields("ДатаПог") = .Cells(ItemIndex, 6).Value
    rs.Fields("Примечание") = .Cells(ItemIndex, 7).Value
    rs.Update
    Next ItemIndex
End With
MsgBox "Данные успешно соxранены в mdb файл"
GoTo Ends
ERRH1:
    KeyMAX = 0
    Err.Clear
    Resume Next
Ends:
    Err.Clear
    Set rs = Nothing
    If Not rs.State = adStateClosed Then rs.Close
    Set SourceSheet = Nothing
    Cn.Close: Set Cn = Nothing
End Sub
 
Sub OpenBook()
Dim FilesToOpen
Dim i As Integer
Dim a As Integer
Dim b As Integer
 
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
                                            MultiSelect:=True, Title:="Выберите файлы")
If TypeName(FilesToOpen) = "Boolean" Then
    'MsgBox "Не выбран ни один файл!"
    GoTo ExitHandler
End If
i = 1
While i <= UBound(FilesToOpen)
    Workbooks.Open Filename:=FilesToOpen(i)
    WBName = ActiveWorkbook.Name
    SaveToMdb
    Workbooks(WBName).Close SaveChanges:=False
    i = i + 1
Wend
ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
End Sub
 
Sub MakeTable()
 
End Sub
[
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 04.12.2014, 08:50
Ответы с готовыми решениями:

Разобраться с кодом
Всем доброго времени, извиняюсь за беспокойство. Помогите разобраться ..... Есть база данных access установлена в сети на компьютере...

Разобраться с кодом
Товарищи, помогите, пожалуйста, разобраться с кодом. Есть база. В ней форма Клиент. В форме есть кнопка Выбрать. Жмёшь кнопку -...

Не могу разобраться разобраться с кодом меню
Добрый день. Я понимаю, что тут все, наверное, элементарно. Но я только начала изучение js и пока для меня все страшно и сложно. Проблема...

2
1 / 1 / 0
Регистрация: 01.12.2014
Сообщений: 12
04.12.2014, 08:52  [ТС]
Code
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
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298

Option Explicit
Public Cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public i As Integer
 
 
Private Sub GrbsCh_DropButtonClick()
Dim mdb As String: mdb = ThisWorkbook.Path & "\DataBase.mdb"
KoD = ThisWorkbook.Worksheets("СВОД").Range("E6") + YearCh.Value
 
If Cn.State = adStateClosed Then
    Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    Cn.CursorLocation = adUseClient
    Cn.Open mdb
End If
 
SQL = "SELECT DISTINCT ГРБС FROM " & KoD & ";"
rs.Open SQL, Cn
Me.GrbsCh.Column = rs.GetRows
Me.GrbsCh.AddItem ("Все")
rs.Close: Set rs = Nothing
Cn.Close: Set Cn = Nothing
End Sub
 
Private Sub KCh_Click()
Range("E6").Value = KCh.Caption
End Sub
 
Private Sub MakeTable_Click()
Dim mdb As String: mdb = ThisWorkbook.Path & "\DataBase.mdb"
Dim NOrg, NMth, NGrbs As String
KoD = ThisWorkbook.Worksheets("СВОД").Range("E6") + YearCh.Value
 
If Cn.State = adStateClosed Then
    Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    Cn.CursorLocation = adUseClient
    Cn.Open mdb
End If
 
'If MonthCh.Value = "Все" And OrgCh.Value = "Все" Then
'    NOrg = ""
'    NMth = ""
'End If
'If MonthCh.Value = "Все" And OrgCh.Value <> "Все" Then
'    NOrg = " WHERE НазванОрг='" & OrgCh.Value & "'"
'    NMth = ""
'End If
'If OrgCh.Value = "Все" And MonthCh.Value <> "Все" Then
'    NOrg = ""
'    NMth = " WHERE Месяц='" & MonthCh.Value & "'"
'End If
'If MonthCh.Value <> "Все" And OrgCh.Value <> "Все" Then
'    NOrg = " WHERE НазванОрг='" & OrgCh.Value & "'"
'    NMth = " AND Месяц='" & MonthCh.Value & "'"
'End If
If MonthCh.Value = "Все" And GrbsCh.Value = "Все" And OrgCh.Value = "Все" Then
    NMth = ""
    NGrbs = ""
    NOrg = ""
End If
If MonthCh.Value <> "Все" And GrbsCh.Value <> "Все" And OrgCh.Value <> "Все" Then
    NMth = " WHERE Месяц='" & MonthCh.Value & "'"
    NGrbs = " AND ГРБС='" & GrbsCh.Value & "'"
    NOrg = " AND НазванОрг='" & OrgCh.Value & "'"
End If
If MonthCh.Value <> "Все" And GrbsCh.Value = "Все" And OrgCh.Value = "Все" Then
    NMth = " WHERE Месяц='" & MonthCh.Value & "'"
    NGrbs = ""
    NOrg = ""
End If
If MonthCh.Value <> "Все" And GrbsCh.Value <> "Все" And OrgCh.Value = "Все" Then
    NMth = " WHERE Месяц='" & MonthCh.Value & "'"
    NGrbs = " AND ГРБС='" & GrbsCh.Value & "'"
    NOrg = ""
End If
If MonthCh.Value <> "Все" And GrbsCh.Value = "Все" And OrgCh.Value <> "Все" Then
    NMth = " WHERE Месяц='" & MonthCh.Value & "'"
    NGrbs = ""
    NOrg = " AND НазванОрг='" & OrgCh.Value & "'"
End If
If MonthCh.Value = "Все" And GrbsCh.Value <> "Все" And OrgCh.Value = "Все" Then
    NMth = ""
    NGrbs = " WHERE ГРБС='" & GrbsCh.Value & "'"
    NOrg = ""
End If
If MonthCh.Value = "Все" And GrbsCh.Value <> "Все" And OrgCh.Value <> "Все" Then
    NMth = ""
    NGrbs = " WHERE ГРБС='" & GrbsCh.Value & "'"
    NOrg = " AND НазванОрг='" & OrgCh.Value & "'"
End If
If MonthCh.Value = "Все" And GrbsCh.Value = "Все" And OrgCh.Value <> "Все" Then
    NMth = ""
    NGrbs = ""
    NOrg = " WHERE НазванОрг='" & OrgCh.Value & "'"
End If
 
Set rs = Nothing
SQL = "SELECT * FROM " & KoD & NMth & NGrbs & NOrg & ";"
rs.Open SQL, Cn
'rs.MoveFirst
i = 7
Application.ScreenUpdating = False
Range("A7:I65536").ClearContents
Range("A7:I65536").ClearFormats
While rs.EOF <> True
    Range("A" & i).Value = rs.Fields("НазванОрг")
    Range("B" & i).Value = rs.Fields("Месяц")
    Range("C" & i).NumberFormat = "0"
    Range("C" & i).Value = rs.Fields("БухСчет")
    Range("D" & i).Value = rs.Fields("КОСГУ")
    Range("E" & i).Value = rs.Fields(Range("E6").Value)
    Range("F" & i).NumberFormatLocal = "# ##0,00"
    Range("F" & i).Value = rs.Fields("Сумма")
    Range("G" & i).NumberFormatLocal = "ДД.ММ.ГГГГ"
    Range("G" & i).Value = rs.Fields("ДатаВозн")
    Range("H" & i).NumberFormatLocal = "ДД.ММ.ГГГГ"
    Range("H" & i).Value = rs.Fields("ДатаПог")
    Range("I" & i).Value = rs.Fields("Примечание")
    'Range("I" & i).NumberFormatLocal = "@"
    rs.MoveNext
    i = i + 1
Wend
Application.ScreenUpdating = True
'Range("C7").Value = ComboBox1.Value
rs.Close: Set rs = Nothing
Cn.Close: Set Cn = Nothing
End Sub
 
Private Sub MonthCh_DropButtonClick()
Dim mdb As String: mdb = ThisWorkbook.Path & "\DataBase.mdb"
KoD = ThisWorkbook.Worksheets("СВОД").Range("E6") + YearCh.Value
 
If Cn.State = adStateClosed Then
    Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    Cn.CursorLocation = adUseClient
    Cn.Open mdb
End If
 
SQL = "SELECT DISTINCT Месяц FROM " & KoD & ";"
rs.Open SQL, Cn
Me.MonthCh.Column = rs.GetRows
Me.MonthCh.AddItem ("Все")
rs.Close: Set rs = Nothing
Cn.Close: Set Cn = Nothing
End Sub
 
Private Sub OrgCh_DropButtonClick()
Dim mdb As String: mdb = ThisWorkbook.Path & "\DataBase.mdb"
Dim NGrbs, NMth As String
KoD = ThisWorkbook.Worksheets("СВОД").Range("E6") + YearCh.Value
 
If Cn.State = adStateClosed Then
    Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    Cn.CursorLocation = adUseClient
    Cn.Open mdb
End If
 
If MonthCh.Value = "Все" And GrbsCh.Value = "Все" Then
    NGrbs = ""
    NMth = ""
End If
If MonthCh.Value = "Все" And GrbsCh.Value <> "Все" Then
    NGrbs = " WHERE ГРБС='" & GrbsCh.Value & "'"
    NMth = ""
End If
If GrbsCh.Value = "Все" And MonthCh.Value <> "Все" Then
    NGrbs = ""
    NMth = " WHERE Месяц='" & MonthCh.Value & "'"
End If
If MonthCh.Value <> "Все" And GrbsCh.Value <> "Все" Then
    NGrbs = " AND ГРБС='" & GrbsCh.Value & "'"
    NMth = " WHERE Месяц='" & MonthCh.Value & "'"
End If
 
SQL = "SELECT DISTINCT НазванОрг FROM " & KoD & NMth & NGrbs & ";"
rs.Open SQL, Cn
Me.OrgCh.Column = rs.GetRows
Me.OrgCh.AddItem ("Все")
rs.Close: Set rs = Nothing
Cn.Close: Set Cn = Nothing
End Sub
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim mdb As String: mdb = ThisWorkbook.Path & "\DataBase.mdb"
Dim SQL1, NMth, NOrg, NGrbs As String
KoD = ThisWorkbook.Worksheets("СВОД").Range("E6") + YearCh.Value
 
If Cn.State = adStateClosed Then
    Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    Cn.CursorLocation = adUseClient
    Cn.Open mdb
End If
Select Case ActiveCell.Column
Case 1
    SQL1 = " НазванОрг ='" & ActiveCell.Value & "';"
Case 2
    SQL1 = " Месяц ='" & ActiveCell.Value & "';"
Case 3
    SQL1 = " БухСчет =" & ActiveCell.Value & ";"
Case 4
    SQL1 = " КОСГУ=" & ActiveCell.Value & ";"
Case 5
    SQL1 = " " & Range("E6") & "='" & ActiveCell.Value & "';"
Case 6
    SQL1 = " Сумма=" & Str(ActiveCell.Value) & ";"
Case 7
    If Me.Krome Then
        SQL1 = " ДатаВозн<>#" & Format(ActiveCell.Value, "mm\/yyyy") & "#;"
    Else
        SQL1 = " ДатаВозн=#" & Format(ActiveCell.Value, "mm\/yyyy") & "#;"
    End If
Case 8
    If Me.Krome Then
        SQL1 = " ДатаПог<>#" & Format(ActiveCell.Value, "mm\/yyyy") & "#;"
    Else
        SQL1 = " ДатаПог=#" & Format(ActiveCell.Value, "mm\/yyyy") & "#;"
    End If
Case Else
    GoTo ExitHandler
End Select
'SQL = "SELECT * FROM " & KoD & " WHERE БухСчет =" & ActiveCell.Value & _
'" OR КОСГУ=" & ActiveCell.Value & " OR Дебитор='" & ActiveCell.Value & _
'"' OR Сумма=" & ActiveCell.Value & " OR ДатаВозн=" & ActiveCell.Value & _
'" OR ДатаПог =" & ActiveCell.Value & ";"
'If SQL <> "" Then
'End If
If MonthCh.Value = "Все" And GrbsCh.Value = "Все" And OrgCh.Value = "Все" Then
    NMth = ""
    NGrbs = ""
    NOrg = " WHERE"
End If
If MonthCh.Value <> "Все" And GrbsCh.Value <> "Все" And OrgCh.Value <> "Все" Then
    NMth = " WHERE Месяц='" & MonthCh.Value & "'"
    NGrbs = " AND ГРБС='" & GrbsCh.Value & "'"
    NOrg = " AND НазванОрг='" & OrgCh.Value & "' AND"
End If
If MonthCh.Value <> "Все" And GrbsCh.Value = "Все" And OrgCh.Value = "Все" Then
    NMth = " WHERE Месяц='" & MonthCh.Value & "'"
    NGrbs = ""
    NOrg = " AND"
End If
If MonthCh.Value <> "Все" And GrbsCh.Value <> "Все" And OrgCh.Value = "Все" Then
    NMth = " WHERE Месяц='" & MonthCh.Value & "'"
    NGrbs = " AND ГРБС='" & GrbsCh.Value & "'"
    NOrg = " AND"
End If
If MonthCh.Value <> "Все" And GrbsCh.Value = "Все" And OrgCh.Value <> "Все" Then
    NMth = " WHERE Месяц='" & MonthCh.Value & "'"
    NGrbs = ""
    NOrg = " AND НазванОрг='" & OrgCh.Value & "' AND"
End If
If MonthCh.Value = "Все" And GrbsCh.Value <> "Все" And OrgCh.Value = "Все" Then
    NMth = ""
    NGrbs = " WHERE ГРБС='" & GrbsCh.Value & "'"
    NOrg = " AND"
End If
If MonthCh.Value = "Все" And GrbsCh.Value <> "Все" And OrgCh.Value <> "Все" Then
    NMth = ""
    NGrbs = " WHERE ГРБС='" & GrbsCh.Value & "'"
    NOrg = " AND НазванОрг='" & OrgCh.Value & "' AND"
End If
If MonthCh.Value = "Все" And GrbsCh.Value = "Все" And OrgCh.Value <> "Все" Then
    NMth = ""
    NGrbs = ""
    NOrg = " WHERE НазванОрг='" & OrgCh.Value & "' AND"
End If
SQL = "SELECT * FROM " & KoD & NMth & NGrbs & NOrg & SQL1
rs.Open SQL, Cn
i = 7
Application.ScreenUpdating = False
Range("A7:I65536").ClearContents
Range("A7:I65536").ClearFormats
While rs.EOF <> True
    Range("A" & i).Value = rs.Fields("НазванОрг")
    Range("B" & i).Value = rs.Fields("Месяц")
    Range("C" & i).NumberFormat = "0"
    Range("C" & i).Value = rs.Fields("БухСчет")
    Range("D" & i).Value = rs.Fields("КОСГУ")
    Range("E" & i).Value = rs.Fields(Range("E6").Value)
    Range("F" & i).NumberFormatLocal = "# ##0,00"
    Range("F" & i).Value = rs.Fields("Сумма")
    Range("G" & i).NumberFormatLocal = "ДД.ММ.ГГГГ"
    Range("G" & i).Value = rs.Fields("ДатаВозн")
    Range("H" & i).NumberFormatLocal = "ДД.ММ.ГГГГ"
    Range("H" & i).Value = rs.Fields("ДатаПог")
    Range("I" & i).Value = rs.Fields("Примечание")
    'Range("I" & i).NumberFormatLocal = "@"
    rs.MoveNext
    i = i + 1
Wend
Application.ScreenUpdating = True
rs.Close: Set rs = Nothing
ExitHandler:
    Application.ScreenUpdating = True
    Cn.Close: Set Cn = Nothing
    Exit Sub
Cn.Close: Set Cn = Nothing
End Sub
0
1 / 1 / 0
Регистрация: 01.12.2014
Сообщений: 12
04.12.2014, 08:55  [ТС]
во втором коде нет несколько строк так, как слишком длинное сообщение
С помощью программы можно открыть файл .xls, он автоматически добавиться в базу mdb, и через excel можно проводить сортировку данных, из базы данных. Но дело в том что это прога не берет все файлы .xls даже не знаю в чем дело
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 04.12.2014, 08:55
Помогаю со студенческими работами здесь

Разобраться с кодом
Есть готовый код программы, решающей следующую задачу: Для двух прямолинейных кусков круглой трубы известны их внешние диаметры,...

Разобраться с кодом
Помогите, пожалуйста, разобраться с кодом)) Только недавно начала изучать с++ и не могу понять что здесь делается в этой задаче ...

Разобраться с кодом
Код не мой, взял в инете, внедрил на свой сайт. Проблема в следующем. На последней странице выводит 20 сообщений, из них берет из базы 5,...

Разобраться с кодом
Голова в поздний час не работает, помогите кому не лень... Вот кусок кода, думаю многие поймут что хочу сделать. if(FirstStart) ...

Разобраться с кодом
Здравствуйте! Помогите, пожалуйста разобраться с кодом. Моя задача. передать параметры ячейки в модальное окно. Использую решение: ...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&amp;d=1772460536 Одним из. . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru