Вывод журнала memo в сводной таблице |
http://www.sql.ru/forum/1074459/vyvod-zhurnala-memo-v-svodnoy-tablice
|
TextBox как кнопка |
|
Проверка на условие. Мнение гуру |
If A=5 and B=4 Then код Else if A=5 and B=3 then код else код End If end if
If A=5 and B=4 Then код End If if A=5 and B=3 then код End If if A=3 and B=3 then код End If
http://www.sql.ru/forum/1074412/proverka-na-uslovie-mnenie-guru
|
БД по учету картриджей на предприятии...помогите довести до ума... |
http://www.sql.ru/forum/1074369/bd-po-uchetu-kartridzhey-na-predpriyatii-pomogite-dovesti-do-uma
|
Помогите разобраться со способами внесения данных в таблицы |
http://www.sql.ru/forum/1074366/pomogite-razobratsya-so-sposobami-vneseniya-dannyh-v-tablicy
|
запросы |
|
Запрос на создание базы данных с зависимыми списками |
http://www.sql.ru/forum/1074329/zapros-na-sozdanie-bazy-dannyh-s-zavisimymi-spiskami
|
Не активные кнопки на форме. |
|
ИГРЫ - VBA! |
|
OnMouseMove |
|
А2010: Нет кнопок размером окна любого объекта при развороте на весь экран |
|
Синхронизация данных Access-Excel-Access при учете что 2 файла открыты для редактирования |
|
Импорт DBF в MDB |
Query.SQL.Clear; Query.SQL.Add('select * into 1_DATA from (select name,tname,fname,' + 'age,street,home,flat,doc_seria,doc_numb,doc_date,doc_from' + ' from [' + ExtractFileName(edt1.text) + '] in "' + ExtractFilePath(edt1.Text) + '" [dbase iv;])'); Query.ExecSQL;
Query.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Path + ';Mode=Share Deny None';
|
Добавить данные в (одно поле) заполненной таблицы из другой таблицы |
http://www.sql.ru/forum/1074080/dobavit-dannye-v-odno-pole-zapolnennoy-tablicy-iz-drugoy-tablicy
|
access удаление запросов |
Модератор: Тема перенесена из форума "Microsoft Office". |
|
Подскажите с функцией... |
+ Persentile |
Public Function DPersent(strNameFields As String, strNameTBL As String, Optional strFilter As String = "", Optional p As Integer) As Variant 'ôóíêöèÿ âû÷èñëåíèÿ ïåðñåíòèëè 'èñïîëüçîâàíèå àíàëîãè÷íî DCount,DMax è ò.ï. 'strNameFields - èìÿ ïîëÿ ñ äàííûìè 'strNameTBL - íàçâàíèå òàáëèöû èëè ñîõðàíåííîãî çàïðîñà 'strFilter - ñòðîêà ôèëüòðà 'p - çíà÷åíèå ïåðñåíòèëè â èíòåðâàëå 0-100 'strFilter = "" strNameTBL = "tbl_persent" 'strNameFields = "tbl_persent.Datele" p = 90 Dim rst As ADODB.Recordset Dim lngCount As Long Dim k, part, x1, x2 As Double On Error GoTo Err_dPersent lngCount = Nz(DCount("*", strNameTBL, strFilter), 0) If lngCount = 0 Then DPersent = Null: Exit Function Set rst = New ADODB.Recordset rst.Open "select " & strNameFields & " from " & strNameTBL & IIf(strFilter = "", "", "where " & strFilter) & " order by " & strNameFields, CurrentProject.Connection, adOpenKeyset, adLockReadOnly If lngCount = 1 Then DPersent = Nz(rst.Fields(0), 0): Set rst = Nothing: Exit Function k = p * (lngCount - 1) / 100 + 1 If (k / Int(k)) = 0 Or (k / Int(k)) = 1 Then rst.AbsolutePosition = CLng(k) DPersent = Nz(rst.Fields(0), 0) Else part = k - Int(k) rst.AbsolutePosition = CLng(Int(k)) x1 = Nz(rst.Fields(0), 0) rst.MoveNext x2 = Nz(rst.Fields(0), 0) DPersent = (1 - part) * x1 + part * x2 End If Set rst = Nothing Exit_dPersent: Exit Function Err_dPersent: Select Case Err.Number Case Else MsgBox "(" & Err.Number & ") " & Err.Description & " â ïðîöåäóðå dPersent " Resume Exit_dPersent End Select End Function |
+ таблица с даными |
POINT LOC DETERM. AN.METH. DATE TIME VALUE REMARC
L2230 L 11.40 MDW.000 25.01.2012 10:30 23,3 RO1
L2230 L 12.10 MDW.010 25.01.2012 10:30 0,8 RO1
L2230 L 13.20 MDW.910 25.01.2012 10:30 100 RO1
L2230 L 14.10 MDW.001 25.01.2012 10:30 10,910 RO1
L2230 L 14.20 MDW.000 25.01.2012 10:30 80,000 RO1
L2230 L 15.10 MDW.001 25.01.2012 10:30 217,000 RO1
L2230 L 15.30 MDW.001 25.01.2012 10:30 5,400 RO1
L2230 L 16.10 MDW.010 25.01.2012 10:30 8,440 RO1
L2230 L 16.20 MDW.010 25.01.2012 10:30 750,000 RO1
L2230 L 21.10 MDW.910 25.01.2012 10:30 0,130 RO1
L2230 L 21.20 MDW.910 25.01.2012 10:30 0,014 RO1
L2230 L 11.40 MDW.000 09.02.2012 10:00 24,100 RO1
L2230 L 12.10 MDW.010 09.02.2012 10:00 0,300 RO1
L2230 L 13.20 MDW.910 09.02.2012 10:00 16,000 RO1
L2230 L 14.10 MDW.001 09.02.2012 10:00 11,240 RO1
L2230 L 14.20 MDW.000 09.02.2012 10:00 82,000 RO1
L2230 L 15.10 MDW.001 09.02.2012 10:00 289,000 RO1
L2230 L 15.30 MDW.001 09.02.2012 10:00 6,800 RO1
L2230 L 16.10 MDW.010 09.02.2012 10:00 8,300 RO1
L2230 L 16.20 MDW.010 09.02.2012 10:00 1023 RO1
L2240 L 12.10 MDW.010 15.02.2012 15:00 0,100 RO1
L2240 L 13.20 MDW.910 15.02.2012 15:00 44,000 RO1
L2240 L 14.10 MDW.001 15.02.2012 15:00 11,070 RO1
L2240 L 14.20 MDW.000 15.02.2012 15:00 76,000 RO1
L2240 L 15.10 MDW.001 15.02.2012 15:00 249,000 RO1
L2240 L 15.30 MDW.001 15.02.2012 15:00 5,800 RO1
L2240 L 16.10 MDW.010 15.02.2012 15:00 8,460 RO1
L2240 L 16.20 MDW.010 15.02.2012 15:00 740,000 RO1
L2240 L 12.10 MDW.010 14.03.2012 10:30 1,600 RO1
L2240 L 13.20 MDW.910 14.03.2012 10:30 50,000 RO1
L2240 L 14.10. MDW.001 14.03.2012 10:30 12,380 RO1
L2240 L 14.20 MDW.000 14.03.2012 10:30 88,000 RO1
L2240 L 15.10 MDW.001 14.03.2012 10:30 227,000 RO1
L2240 L 15.30 MDW.001 14.03.2012 10:30 5,200 RO1
L2240 L 16.10 MDW.010 14.03.2012 10:30 8,160 RO1
L2240 L 16.20 MDW.010 14.03.2012 10:30 771,000 RO1
L2240 L 21.10 MDW.910 14.03.2012 10:30 0,330 RO1
|
|
Сохранение данных формы в таблицу при нажатии кнопки |
http://www.sql.ru/forum/1073927/sohranenie-dannyh-formy-v-tablicu-pri-nazhatii-knopki
|
Запросы: SQL Server, ODBC-link, Local |
http://www.sql.ru/forum/1073923/zaprosy-sql-server-odbc-link-local
|
Ошибка при вводе данных: запись уже используется другим пользователем |
http://www.sql.ru/forum/1073898/oshibka-pri-vvode-dannyh-zapis-uzhe-ispolzuetsya-drugim-polzovatelem
|
Группировка контролов на форме |
http://www.sql.ru/forum/1073896/gruppirovka-kontrolov-na-forme
|