Есть ли запись в подчиненной таблице |
http://www.sql.ru/forum/1132652/est-li-zapis-v-podchinennoy-tablice
|
Microsoft.ACE.OLEDB.12.0 и Microsoft.ACE.OLEDB.14.0 |
http://www.sql.ru/forum/1132645/microsoft-ace-oledb-12-0-i-microsoft-ace-oledb-14-0
|
Microsoft.ACE.OLEDB.12.0 и MDB |
Dim cat As ADOX.Catalog Set cat = New ADOX.Catalog cat.Create "provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source = Test.mdb"
http://www.sql.ru/forum/1132561/microsoft-ace-oledb-12-0-i-mdb
|
Access: создание запроса на выборку из двух таблиц. |
http://www.sql.ru/forum/1132535/access-sozdanie-zaprosa-na-vyborku-iz-dvuh-tablic
|
Сложный запрос с диапазоном дат. |
http://www.sql.ru/forum/1132515/slozhnyy-zapros-s-diapazonom-dat
|
Формирование отчета по запросу с учетом данных формы. |
http://www.sql.ru/forum/1132447/formirovanie-otcheta-po-zaprosu-s-uchetom-dannyh-formy
|
Получить цифру посещений |
|
Обновление таблицы на основании запроса |
http://www.sql.ru/forum/1132325/obnovlenie-tablicy-na-osnovanii-zaprosa
|
Как менять програмно путь при выборе каталога в мастере подключения внешних данных |
Dim objAcc Set objAcc = CreateObject("Access.Application") objAcc.SetOption "Default Database Directory", AppPath objAcc.Quit
|
Снять установить свойство текстового поля 'пустые строки' посредством SQL |
|
Запрос: Min по 10 полям в каждой записи |
http://www.sql.ru/forum/1132045/zapros-min-po-10-polyam-v-kazhdoy-zapisi
|
генератор списка значений для IN() |
Option Explicit Enum enumCsvFromTable Text = 0 Numbers = 1 End Enum Function CsvFromTable(ValuesType As enumCsvFromTable, delimiter As String, ParamArray arrTable()) 'return string of csv from range of values Dim tmpRange, tmp, outdata, j As Long For Each tmpRange In arrTable For Each tmp In tmpRange tmp = Trim(tmp) If tmp = "" Then Exit For If ValuesType = 0 Then outdata = outdata & "'" & tmp & "'" & delimiter Else outdata = outdata & tmp & delimiter End If Next Next 'trunc last "," outdata = Left(outdata, Len(outdata) - 1) CsvFromTable = outdata End Function
http://www.sql.ru/forum/1131988/generator-spiska-znacheniy-dlya-in
|
Подключение к mdb. |
|
Попытка выполнить запрос, который не включает указанное выражение |
SELECT Sum(Р.КоличествоБаллов) as КоличествоБаллов, О.Образование, О.Аттестация FROM Рейтинг as Р, Преподаватели as П, Дисциплины as Д, Образование as О WHERE (П.КодПреподавателя = 4) and (П.КодДисциплины = Д.КодДисциплины) and (4 = Р.КодПреподавателя) and (4 = Р.КодПреподавателя)
http://www.sql.ru/forum/1131921/popytka-vypolnit-zapros-kotoryy-ne-vkluchaet-ukazannoe-vyrazhenie
|
Закачать в базу |
Function GetHTTPResult(sURL As String) As String Dim XMLHTTP As Variant, sResult As String Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") XMLHTTP.Open "GET", sURL, False XMLHTTP.Send Debug.Print "Status: " & XMLHTTP.Status & " - " & XMLHTTP.StatusText sResult = XMLHTTP.ResponseText Debug.Print "Length of response: " & Len(sResult) Set XMLHTTP = Nothing GetHTTPResult = sResult End Function
|
Блокировка записи на форме при условии в поле |
Private Sub Form_Current() If Me.Статус.Value = "ПРИНЯТ" Then Me.Дата.Locked = True Me.ИНН.Locked = True 'т.д. все поля по строке.Locked = True 'Удалять данную строку нельзя ElseIf Me.Статус.Value = "ВВЕДЕН" Then Me.Дата.Locked = False Me.ИНН.Locked = False 'т.д. все поля по строке.Locked = False 'Удалять данную строку можно End If End Sub
http://www.sql.ru/forum/1131843/blokirovka-zapisi-na-forme-pri-uslovii-v-pole
|
Запрос в кнопке с циклом |
|
SP 8 для WIN7 |
|
Функция Replace c подстановочными символами или как обрезать ссылку |
http://www.sql.ru/forum/1131713/funkciya-replace-c-podstanovochnymi-simvolami-ili-kak-obrezat-ssylku
|
Помогите создать схему данных |
http://www.sql.ru/forum/1131585/pomogite-sozdat-shemu-dannyh
|