Переход по полям записи, ограничиться записью |
http://www.sql.ru/forum/1201372/perehod-po-polyam-zapisi-ogranichitsya-zapisu
|
|
Подстановка данных таблицы Excel в таблицу Access. |
http://www.sql.ru/forum/1201271/podstanovka-dannyh-tablicy-excel-v-tablicu-access
|
|
Перенести данные из access в exl |
http://www.sql.ru/forum/1201221/perenesti-dannye-iz-access-v-exl
|
|
Как выделить заданную строчку в форме с помощью VBA? |
Me.CurrentRecord
- показывает номер строки, которая выделена http://www.sql.ru/forum/1201212/kak-vydelit-zadannuu-strochku-v-forme-s-pomoshhu-vba
|
|
DataGridView в Access |
|
|
база из Access 2003 не работает в Access 2016 |
http://www.sql.ru/forum/1201196/baza-iz-access-2003-ne-rabotaet-v-access-2016
|
|
Операция не поддерживается для объектов данного типа |
Dim db As DAO.Database Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("tblPath") rst.MoveFirst rst.FindFirst "[PathName] = 'Base'" rst.Edit rst.Fields("PathName") = "Base" rst.Fields("PathValue") = "D:\DataBase" rst.Fields("PathNote") = "Путь к базе данных программы" rst.Update rst.Close
http://www.sql.ru/forum/1201124/operaciya-ne-podderzhivaetsya-dlya-obektov-dannogo-tipa
|
|
Отображение значения в поле формы |
http://www.sql.ru/forum/1201038/otobrazhenie-znacheniya-v-pole-formy
|
|
Ole объект. |
|
|
ADO как игнорировать предупреждения в хранимой процедуре |
On Error GoTo ErrHandler Set cmd = New ADODB.Command Set R = New ADODB.Recordset cmd.ActiveConnection = strConnADO cmd.CommandType = adCmdText cmd.CommandTimeout = TimeOut cmd.CommandText = sqlTxt R.CursorLocation = adUseClient IsOpen = True R.open cmd, , adOpenStatic, adLockOptimistic
http://www.sql.ru/forum/1200977/ado-kak-ignorirovat-preduprezhdeniya-v-hranimoy-procedure
|
|
Маска ввода. Как задать? |
|
|
Критерий отбора функции DLookup текстовый |
http://www.sql.ru/forum/1200939/kriteriy-otbora-funkcii-dlookup-tekstovyy
|
|
Товарный отчет |
дата остаток на начало дня ПриходПериода РасходПериода текущий остаток 20.01.2011 0 1 0 1 10.01.2011 0 10 3 7 18.01.2011 7 2 7 2
|
|
Преобразуем Ip адрес в число и обратно |
| ' Преобразуем число в строковый IP-адрес Function Ip_to_String(Sss As Long) Dim R1 As Double Dim R2 As Double Dim R3 As Double Dim R4 As Double R1 = Int(Sss / 256 / 256 / 256) 'Определяем 1 октет IP-адреса R2 = Int((Sss - R1 * 256 * 256 * 256) / 256 / 256) 'Определяем 2 октет IP-адреса R3 = Int((Sss - R1 * 256 * 256 * 256 - R2 * 256 * 256) / 256) 'Определяем 3 октет IP-адреса R4 = Int(Sss - R1 * 256 * 256 * 256 - R2 * 256 * 256 - R3 * 256) 'Определяем 4 октет IP-адреса 'Сливаем все в одну кучу Ip_to_String = Trim(Str(R1)) & "." & Trim(Str(R2)) & "." & Trim(Str(R3) & "." & Trim(Str(R4))) End Function |
| ' Преобразуем строковый IP-адрес в число Function Ip_to_Integer(Sss As String) Dim N1 As Byte Dim N2 As Byte Dim N3 As Byte N1 = InStr(1, Sss, ".") ' Находим положение первой точки N2 = InStr(N1 + 1, Sss, ".") ' Находим положение второй точки N3 = InStr(N2 + 1, Sss, ".") ' Находим положение третьей точки 'Сливаем все в одну кучуIp_to_Integer = Mid(Sss, 1, N1 - 1) * 256 * 256 * 256 + Mid(Sss, N1 + 1, N2 - N1 - 1) * 256 * 256 + Mid(Sss, N2 + 1, N3 - N2 - 1) * 256 + Mid(Sss, N3 + 1, Len(Sss) - N3) End Function |
http://www.sql.ru/forum/1200802/preobrazuem-ip-adres-v-chislo-i-obratno
|
|
Запрос из VBA |
|
|
Access. Как сделать JOIN чтобы объединить 2 таблицы. |
SELECT Center, -SUM(S*(NOT Y)) AS Итог_2014, SUM(S*(M = 1)*Y)+Итог_2014 AS Январь, SUM(S*(M = 2)*Y)+Январь AS Февраль, SUM(S*(M = 3)*Y)+Февраль AS Март, SUM(S*(M = 4)*Y)+Март AS Апрель, SUM(S*(M = 5)*Y)+Апрель AS Май, SUM(S*(M = 6)*Y)+Май AS Июнь, SUM(S*(M = 7)*Y)+Июнь AS Июль, UM(S*(M = 8)*Y)+Июль AS Август, SUM(S*(M = 9)*Y)+Август AS Сентябрь, SUM(S*(M = 10)*Y)+Сентябрь AS Октябрь, SUM(S*(M = 11)*Y)+Октябрь AS Ноябрь, SUM(S*(M = 12)*Y)+Ноябрь AS Декабрь FROM [SELECT Center, IncomePaymentSumCalc AS S, Month(PaymentDate) AS M, Year(PaymentDate) = 2015 AS Y FROM qdfPayments WHERE Year(PaymentDate)<= 2015 AND Center IS NOT NULL]. AS [%$##@_A] GROUP BY Center
http://www.sql.ru/forum/1200596/access-kak-sdelat-join-chtoby-obedinit-2-tablicy
|
|
RegExp - паттерны, matches... |
'телеф номер: p = "\b[8|\+7][-.]?\d{3}[-.]?\d{3}[-.]?\d{4}\b"
p = p & "(.{10,30})[Руб.]"
| + source |
</p> <p> </p> </td><td> </td></tr><tr><td width="46%" valign="top"> <u>Билайн 8-965-117-8558</u> <p align="right">Цена: <b>999 Руб.</b> <form action="/"> <input type="hidden" name="type" value="buy" /> <input type="hidden" name="buy_id" value="120085532" /> <div align="right"><input type="submit" value="Купить" style="font-size:10px;" /></div> </form> </p> <p> </p> </td><td> </td><td width="46%" valign="top"> <u>Билайн 8-965-117-8668</u> <p align="right">Цена: <b>999 Руб.</b> <form action="/"> <input type="hidden" name="type" value="buy" /> <input type="hidden" name="buy_id" value="120085533" /> <div align="right"><input type="submit" value="Купить" style="font-size:10px;" /></div> </form> </p> <p> </p> </td><td> </td></tr><tr><td width="46%" valign="top"> <u>Билайн 8-965-118-6556</u> <p align="right">Цена: <b>999 Руб.</b> <form action="/"> <input type="hidden" name="type" value="buy" /> <input type="hidden" name="buy_id" value="120085534" /> <div align="right"><input type="submit" value="Купить" style="font-size:10px;" /></div> </form> </p> <p> </p> </td><td> </td><td width="46%" valign="top"> <u>Билайн 8-965-119-0660</u> <p align="right">Цена: <b>999 Руб.</b> |
| + | ||||
Function HtmlParser(ByVal str As String) ' MsgBox "Test-" & oRgx.Test(" " & _ ' " | " & _
' "МегаФон 8-926-795-1144" & _
' " 1999 Руб.") Dim i As Integer, s As String Dim fso, fld, f, ofsoTxtStream Dim oRgx, orgxMatch, orgxMatcheS Set oRgx = CreateObject("VBScript.RegExp") Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(str) Set ofsoTxtStream = f.OpenAsTextStream(1) 'читаем файл в поток, поток в переменную: s = ofsoTxtStream.readall(): ofsoTxtStream.Close ' 'Паттерны: Dim p As String 'телеф номер: p = "\b[8|\+7][-.]?\d{3}[-.]?\d{3}[-.]?\d{4}\b" p = p & "(.{10,30})[Руб.]" oRgx.Global = True oRgx.ignorecase = False oRgx.Multiline = True oRgx.pattern = p 'ТЕСТ: ' MsgBox "Test-" & oRgx.Test(" " & _ ' "" & _ ' " | " & _
' "МегаФон 8-926-795-1144" & _
' " 1999 Руб.") Set orgxMatcheS = oRgx.Execute(s) Debug.Print orgxMatcheS.Count For i = 0 To orgxMatcheS.Count - 1 Set orgxMatch = orgxMatcheS.Item(i) Debug.Print "#############" Debug.Print orgxMatch.FirstIndex Debug.Print orgxMatch.Length Debug.Print "------------" ' Debug.Print orgxMatcheS.Value Debug.Print orgxMatcheS.Count ''''''' Debug.Print orgxMatcheS.Item(i) Debug.Print "============" Next MsgBox "!" Set fso = Nothing: Set fld = Nothing: Set ofsoTxtStream = Nothing: Set f = Nothing Set oRgx = Nothing: Set orgxMatcheS = Nothing: Set orgxMatch = Nothing End Function |
|
|
Выделение записей |
|
|
Процедура для переопределения связей между базами |
http://www.sql.ru/forum/1200468/procedura-dlya-pereopredeleniya-svyazey-mezhdu-bazami
|
|
Запрос на выборку по дате |
Public Function FUN_BRONb_DATA_VIBOR() As Date If IsDate(Form_BRONb_FRM!BRONb_DATA_VIBOR) = False Then FUN_BRONb_DATA_VIBOR = ?? Else FUN_BRONb_DATA_VIBOR = Nz(Form_BRONb_FRM!BRONb_DATA_VIBOR) End If 'MESS Nz(FUN_BRONb_DATA_VIBOR) End Function
|
|