WITH CTE AS
(
  SELECT tt.ID, NULL as ID_PARENT FROM TestTree as tt
  WHERE tt.ID = 2 -- тут указываем ID на который ставим или снимаем галку
  UNION ALL
  SELECT tt.ID, tt.ID_PARENT from TestTree as tt
  JOIN CTE as c ON c.ID = tt.ID_PARENT
)
  UPDATE TestTree
  SET TestTree.A_LOAD = 0 -- или 1
  FROM CTE as c
  WHERE c.ID = TestTree.ID

http://www.sql.ru/forum/1193994/pomogite-s-zaprosom

SELECT Группа.Название_группы, [Фамилия] & " " & Mid$([Имя],1,1) & ". " & Mid$([Отчество],1,1) & "." AS ФИО_воспитанника, [Оплата]![Сумма_к_оплате_по_квитанции]-[Оплата]![Оплаченная_сумма] AS Долг
FROM Группа INNER JOIN (Воспитанник INNER JOIN Оплата ON Воспитанник.Код_воспитанника = Оплата.Код_воспитанника) ON Группа.Код_группы = Воспитанник.Код_группы
WHERE (((Оплата.Пометка_об_оплате) Is Null)) OR (((Оплата.Дата_оплаты)>#12/15/2015#));

http://www.sql.ru/forum/1193933/oshibka-v-zaprose-na-vyvod-dolzhnikov

http://www.sql.ru/forum/1193929/glavnaya-tablica-ne-poluchaet-dannye-ot-podchinennoy

http://www.sql.ru/forum/1193875/pomogite-s-sql-zaprosom

http://www.sql.ru/forum/1193833/zapros-s-vyvodom-n-raz-odnoy-i-toy-zhe-stroki

http://www.sql.ru/forum/1193827/not-s-neskolkimi-like

Public Function openSingleValue(ByVal QueryText As String, ByVal FieldName As String) As Variant
Dim rslt As Variant
Dim rst As Recordset
    Set rst = OpenRecordset(QueryText)
    If rst.RecordCount > 0 Then
        rslt = rst.Fields(FieldName).Value
    End If
    rst.Close
    openSingleValue = rslt
End Function


Public Function OpenRecordset(QueryText As String) As DAO.Recordset
On Error GoTo err
  'переопределил текст запроса
  
  'создал временный кверидеф
  Dim qdf As QueryDef
  Set qdf = CreateTempQueryDef(QueryText)
  'собственно открыл рекорсет
  Set OpenRecordset = qdf.OpenRecordset(dbOpenForwardOnly, dbReadOnly)
  qdf.Close
  
Exit Function
err:
MsgBox "Error connection SQL server", vbInformation
qdf.Close
  
End Function

CREATE PROC [dbo].[p_myproc_delete](@id INT)
AS 
BEGIN
	SET NOCOUNT ON;
	DECLARE @Row_Count INT; 
	DECLARE @Error_Code INT;
	SET XACT_ABORT OFF; 	
	DELETE 
	FROM   tbl_mytable
	WHERE  id = @id;
	SELECT @Row_Count = @@ROWCOUNT, @Error_Code = @@ERROR
	
	IF (@Error_Code <> 0) OR (@Row_Count <> 1)
	BEGIN
   		IF @Error_Code = 547  -- существует foreight key  
			BEGIN
				RETURN (-400); -- ошибка - есть ссылка 	
			END
		ELSE 
			BEGIN
				RETURN (-300); -- ошибка при удалении
			END
	END;
	ELSE
	BEGIN
		RETURN @id;
	END;
END;

http://www.sql.ru/forum/1193785/rekordset-i-oshibki-v-baze-ms-sql

http://www.sql.ru/forum/1193778/lookup-field-in-recordset

http://www.sql.ru/forum/1193618/svyaz-2-zaprosov

http://www.sql.ru/forum/1193529/pechat-osobym-obrazom

http://www.sql.ru/forum/1193417/skopirovat-pole-s-odnoy-tablicy-v-pole-drugoy-tablicy

http://www.sql.ru/forum/1193403/perekluchenie-vlozheniy-v-forme

http://www.sql.ru/forum/1193310/obhod-konstrukcii-update

http://www.sql.ru/forum/1193270/nayti-paru-zapisey-s-minimalnym-rasstoyaniem

http://www.sql.ru/forum/1193181/nuzhna-podderzhka

SELECT список_полей, FROM таблицы_в базе_Access WHERE ID IN (ID1, ID2...ID1000)

http://www.sql.ru/forum/1193059/podskazhite-chto-effektivnee-in-1000-raznyh-id-ili-vremennaya-tablica

str = "Insert into UpFactTbl (year) select [год] FROM [Excel 10.0 xml;HDR=No;IMEX=1;DATABASE=" & Me.Form.l1.Value & "] "
DoCmd.RunSQL str

http://www.sql.ru/forum/1193025/vstavka-iz-excel

Private Sub Form_Current()
Dim group_id As Long
Dim strsql As String
'èñòî÷íèê äàííûõ äëÿ spKeys
group_id = Me.id
    If group_id > 0 Then
        strsql = "SELECT id, mp_groups, key_name, frequency_WS, frequency_WS1, frequency_WS2 FROM keys WHERE mp_groups = " & CStr(group_id) & " ORDER BY frequency_WS DESC"
        Debug.Print strsql
        Forms("Card_project").Controls("spkeys").RowSource = strsql
    End If
End Sub

http://www.sql.ru/forum/1192991/sobytie-current-neponyatnoe-povedenie

http://www.sql.ru/forum/1192967/pomogite-sostavit-zapros-qrate-period

http://www.sql.ru/forum/1192964/recordsource-environ