Стиль кнопок в отчете Access 2007 |
http://www.sql.ru/forum/1155379/stil-knopok-v-otchete-access-2007
|
SQL в запрос к серверу |
select t.id_port, t.name_sh, t.name, pt.name_sh port_type, case when exists (select 0 from chan_tbl c where c.id_port_1 = t.id_port and c.id_status != 5) then 'Занят' else 'Свободен' end port_st from port_tbl t, port_type_Tbl pt where t.id_equip = 12930 and pt.id_port_type = t.id_port_type and t.id_status != 5;
select t.id_port, t.name_sh, t.name, pt.name_sh as port_type, case when exists (select 0 from chan_tbl c where c.id_port_1 = t.id_port and c.id_status <> 5) then 'Занят' else 'Свободен' end port_st from port_tbl t, port_type_Tbl pt where t.id_equip = 12930 and pt.id_port_type = t.id_port_type and t.id_status <> 5;
|
равномерное присвоение значений |
http://www.sql.ru/forum/1155358/ravnomernoe-prisvoenie-znacheniy
|
Референс Офиса 2007 vs 2010 |
Function Start() Dim MyMenuBar As CommandBar Dim Ctr_Pop As CommandBarPopup Dim Ctr_Pop_but As CommandBarButton '------------- Set MyMenuBar = CommandBars.Add(Name:="MyMenu", Position:=msoBarTop, MenuBar:=True, Temporary:=True) MyMenuBar.Visible = True MyMenuBar.Protection = msoBarNoMove '==================================================== Set Ctr_Pop_but = MyMenuBar.Controls.Add(msoControlButton) With Ctr_Pop_but .Style = msoButtonCaption .Caption = "Kassets" .TooltipText = "Help text" .FaceId = 202 .OnAction = "=Fnd()" .Parameter = "kass" .BeginGroup = True End With '==================================================== End Function Function Fnd() Dim MyMenu As CommandBar, pr As String '------------------------------------ Set MyMenu = CommandBars("MyMenu") '------------------------------------ ' The ActionControl property of command bars returns the control ' whose OnAction property is running this procedure. pr = CommandBars.ActionControl.Parameter Select Case pr Case Is = "kass" MsgBox "Clic on Menu" End Select End Function
|
Получить запросом слегка преобразованную таблицу |
|
|
http://www.sql.ru/forum/1155271/poluchit-zaprosom-slegka-preobrazovannuu-tablicu
|
Импорт строк из xxx.rpt |
|
Передача данных из "поле со списком" в "поле" |
http://www.sql.ru/forum/1155267/peredacha-dannyh-iz-pole-so-spiskom-v-pole
|
Расчет времени/периода |
|
|
+ |
SELECT Format((Поле1 & " " & Поле2),"mm\/dd\/yyyy hh:nn:ss") AS Data, Лист1.Поле3 AS v, Format(DateAdd("s",1,Data),"mm\/dd\/yyyy hh:nn:ss") AS Data2 FROM Лист1 WHERE (((Лист1.[Поле3])>25.1)) ORDER BY Format((Поле1 & " " & Поле2),"mm\/dd\/yyyy hh:nn:ss"); |
|
+ |
Dim i As Integer Dim q As Date Private Sub Кнопка0_Click() Dim rs As Object Set rs = CurrentProject.Connection.Execute("Select Data,Data2,v from q_Лист1") i = 0 With CurrentDb.OpenRecordset("t1") rs.MoveFirst q = rs("Data") 'Debug.Print q & "-" & i Do While Not rs.EOF If rs("Data") = q Then i = i + 1 q = rs("Data2") Else .AddNew !period = rs("Data") !sec = i i = 0 'Обнуляем счетчик q = rs("Data") 'Присваиваем текущее значение даты 'Debug.Print q & "-" & i .Update End If rs.MoveNext Loop End With Set rs = Nothing MsgBox "OK" End Sub |
|
Поиск в ленточной форме |
SELECT CLIENT_TBL.* FROM CLIENT_TBL WHERE (((CLIENT_TBL.ADRESS) Like "*" & [Forms]![SEACH_PO_ADRESU_FRM]![SEACH_PO_SPISOKU] & "*"));
|
подстановка списка с условием в форме |
http://www.sql.ru/forum/1155233/podstanovka-spiska-s-usloviem-v-forme
|
Передача параметра кнопкой |
|
Закрыть файл EXCEL без показа вопроса о сохранении |
Set xl = CreateObject("Excel.Application") Set xw = xl.Workbooks.Open(ConnectTbl("tbl_Slujba") & "01_Для базы\КК234567.xlsx") xw.Application.Sheets("КК" & DCount("nomerKK", "qProtInic4")).Select xw.Application.Sheets("КК" & DCount("nomerKK", "qProtInic4")).Copy xw.Close xl.Visible = True
http://www.sql.ru/forum/1155138/zakryt-fayl-excel-bez-pokaza-voprosa-o-sohranenii
|
включить дату first в группировку |
http://www.sql.ru/forum/1155098/vkluchit-datu-first-v-gruppirovku
|
Run-time error в цикле |
Set xmlNodeList = xmlDoc.documentElement.selectNodes("/root/response") For Each xmlNode1 In xmlNodeList rsRespAction.AddNew For Each xmlAttribut In xmlNode1.Attributes If xmlAttribut.name = "client_id" Then rsRespAction.Fields(xmlAttribut.name) = xmlAttribut.Value End If On Error GoTo NextA: If xmlAttribut.name = "offer_id" Then rsRespAction.Fields(xmlAttribut.name) = xmlAttribut.Value End If Next NextA: Next
|
Switch vs IIF, Поле МЕМО и ошибка в ячейке #Функ! |
SELECT Switch((CERTIFICATS.ALTNAME Is Null), "", InStr(1,CERTIFICATS.ALTNAME,"1.2.643.3.61.502710.1.7=",1)>0, MID(CERTIFICATS.ALTNAME, InStr(1,CERTIFICATS.ALTNAME,"1.2.643.3.61.502710.1.7=",1)+Len("1.2.643.3.61.502710.1.7="), InStr(InStr(1,CERTIFICATS.ALTNAME,"1.2.643.3.61.502710.1.7=",1)+Len("1.2.643.3.61.502710.1.7="), CERTIFICATS.ALTNAME,Chr(13),1)-InStr(1,CERTIFICATS.ALTNAME,"1.2.643.3.61.502710.1.7=",1)-Len("1.2.643.3.61.502710.1.7="))) AS KPP FROM CERTIFICATS
Switch((CERTIFICATS.ALTNAME Is Null), "" Switch((CERTIFICATS.ALTNAME = Null), "" Switch((CERTIFICATS.ALTNAME = ""), "" Switch((CStr(CERTIFICATS.ALTNAME) = ""), "" Switch((Len(CERTIFICATS.ALTNAME) = 0), ""
http://www.sql.ru/forum/1155038/switch-vs-iif-pole-memo-i-oshibka-v-yacheyke-funk
|
Создание кнопки вызова другой формы |
http://www.sql.ru/forum/1154943/sozdanie-knopki-vyzova-drugoy-formy
|
Пользовательская функция в базе ACCESS |
|
Public Function ValueFromList(StrList As String, StrParam As String) As String ValueFromList = "" Dim P1, P2 As Long P1 = InStr(1, StrList, StrParam, vbTextCompare) P2 = InStr(P1 + 1, StrList, vbCrLf, vbTextCompare) If P1 <= 0 Then Exit Function ValueFromList = Mid(StrList, P1 + Len(StrParam) + 1, P2 - 1 - P1 - Len(StrParam)) End Function
SELECT ValueFromList(CERTIFICATS.ALTNAME,"1.2.643.3.61.502710.1.7") AS KPP, ValueFromList(CERTIFICATS.ALTNAME,"1.2.643.3.61.502710.1.5") AS SPZ, ValueFromList(CERTIFICATS.ALTNAME,"1.2.643.3.61.502710.1.8") AS GMU FROM CERTIFICATS
SELECT SWITCH(InStr(1, CERTIFICATS.ALTNAME, "1.2.643.3.61.502710.1.7=", 1), MID(CERTIFICATS.ALTNAME, InStr(1, CERTIFICATS.ALTNAME, "1.2.643.3.61.502710.1.7=", 1)+Len("1.2.643.3.61.502710.1.7="), InStr(InStr(1, CERTIFICATS.ALTNAME, "1.2.643.3.61.502710.1.7=", 1)+Len("1.2.643.3.61.502710.1.7="), CERTIFICATS.ALTNAME, Chr(13) + Chr(10), 1)+Len(Chr(13) + Chr(10))-InStr(1, CERTIFICATS.ALTNAME, "1.2.643.3.61.502710.1.7=",1) +Len("1.2.643.3.61.502710.1.7="))) AS KPP FROM CERTIFICATS;
http://www.sql.ru/forum/1154928/polzovatelskaya-funkciya-v-baze-access
|
сортировка записей в подчиненной форме |
http://www.sql.ru/forum/1154900/sortirovka-zapisey-v-podchinennoy-forme
|
Что за элемент управления? |
|
заполнение таблиц запросами sql |
INSERT INTO тКвартири( [№квартири], [код_будинку]) SELECT * FROM тБудинки
SELECT Дата_встановлення, Тарифік1людини, код_тарифу FROM тТарифи WHERE Дата_встановлення = (SELECT MAX (Дата_встановлення) FROM( тТарифи ));
INSERT INTO тОплата_план(код_тарифу) SELECT код_тарифу FROM тТарифи WHERE (SELECT код_тарифу FROM тТарифи WHERE Дата_встановлення = (SELECT MAX (Дата_встановлення) FROM( тТарифи )); )
http://www.sql.ru/forum/1154859/zapolnenie-tablic-zaprosami-sql
|