Dim x() As Variant
ReDim x(LBound(y_func("ololol"), 1) To UBound(y_func("ololol"), 1), _            'изначально этой строки не было, написал в попытке'
 LBound(y_func("ololol"), 2) To UBound(y_func("ololol"), 2))                          'исправить, но оно всё равно не работает'
x = y_func("ololol")           'Пишет type mismatch'
End Sub

Function SplitPrmCln(NamePrmtr As String) As Variant
Dim y As String, x As Variant, i As Integer, j As Integer, cnt As Integer
y = CurrentDb.OpenRecordset("Select VLE from prmtr_main where Prmtr = '" & NamePrmtr & "'")!Vle        'y=1_4_3,2_4_6,3_5_-3,4_5_0'
x = Split(y, ",")
ReDim x(LBound(x) To UBound(x), 1 To 3)
For i = LBound(x, 1) To UBound(x, 1)
    For j = 0 To 2
        x(i, j + 1) = Split(Split(y, ",")(i), "_")(j)
    Next
Next
SplitPrmCln = x
End Function

http://www.sql.ru/forum/1300765/massiv-ne-mogu-peredat-iz-funkcii-peremennoy

INSERT INTO Movement (DocID)
SELECT
	[Forms]![Packet]![Список_Packet_Тип_Документа] AS DocID
FROM Packet;

SELECT TypeDoc.ID, TypeDoc.DocName
FROM TypeDoc
WHERE (((TypeDoc.ID)<>1))
ORDER BY TypeDoc.DocName;

http://www.sql.ru/forum/1300739/vnos-dannyh-s-polya-so-spiskom-v-tablicu

http://www.sql.ru/forum/1300733/listbox

Dim dbsNorthwind As DAO.Database
Dim rstProducts As DAO.Recordset
Dim strSQL As String

Set dbsNorthwind = CurrentDb
strSQL = "SELECT Address.Address FROM Packet INNER JOIN Address ON Packet.AdrID = Address.FilID;"
Set rstProducts = dbsNorthwind.OpenRecordset(strSQL)


Me.А_Поставщик.Caption = ?

http://www.sql.ru/forum/1300729/vnos-teksta-v-nadpis

http://www.sql.ru/forum/1300702/o-tipe-combobox

SELECT ID, YEARNUM, TEMPERATURE, CITY
FROM WEATHER

http://www.sql.ru/forum/1300697/maksimum-iz-recordset

http://www.sql.ru/forum/1300696/v-count-vyvesti-0

http://www.sql.ru/forum/1300690/vopros-po-otobrazhenii-vremeni

http://www.sql.ru/forum/1300667/ms-access-2-0-kak-smenit-setevoy-put-k-baze-dannyh

CREATE FUNCTION [dbo].[TestUDF]
(	
	@forCode int
)
RETURNS TABLE 
AS
RETURN 
(
	SELECT top (100) PERCENT * FROM Box WHERE Box.Code=@forCode
)

Public Function OpenSP(ByVal name As String, cmdType As ADODB.CommandTypeEnum, ParamArray ParamsAndValues()) As ADODB.Recordset
    Dim e As Error
    Dim cnn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim param As ADODB.Parameter
    Dim rst As ADODB.Recordset
    Dim expr As String
    Dim I As Long
        
On Error GoTo err_me

    Set cnn = New ADODB.Connection
    cnn.Open ConnString
    Set cmd = New ADODB.Command
    Set cmd.ActiveConnection = cnn
    
    Set rst = New ADODB.Recordset
    Set rst.ActiveConnection = cnn
    
    cmd.CommandText = name
    cmd.CommandType = cmdType
    cmd.NamedParameters = True
    
    ' evaluated params 
On Error Resume Next
    For Each param In cmd.Parameters
        If param.Direction = adParamInput Or param.Direction = adParamInputOutput Then
            expr = GetOriginalName(param.name)
            param.Value = Eval(expr)
        End If
    Next param
On Error GoTo err_me
    'passed params
    For I = LBound(ParamsAndValues) To UBound(ParamsAndValues) Step 2
        Set param = cmd.Parameters("@" & ParamsAndValues(I))
        param.Value = ParamsAndValues(I + 1)
    Next I
    
    rst.CursorType = adOpenDynamic
    rst.CursorLocation = adUseClient
    rst.Open cmd
    
    Set OpenSP = rst

exit_me:
    Exit Function
err_me:
    Debug.Print Now, Err.Number, Err.Description
    For Each e In DBEngine.Errors
        Debug.Print "", e.Number, e.source, e.Description
    Next e
    Debug.Print , , name
    Debug.Assert False
    Err.Clear
    Resume exit_me
End Function

?openSP("TestUDF",adCmdText ,"forCode",7777).RecordCount 

http://www.sql.ru/forum/1300647/kak-poluchit-redaktiruemyy-recordset-iz-udf

http://www.sql.ru/forum/1300597/outlook-2016-kak-ponyat-chto-zanyat

DocName		Columns
----------------------------
ТТН		DocNum
ТТН		DocDate
ТТН		Account
ТТН		Note
доп.соглашение	Date_DTZ
доп.соглашение	DocID
доп.соглашение	DocNum
доп.соглашение	DocDate

http://www.sql.ru/forum/1300583/dinamicheskiy-zapros

Private Sub Form_Open(Cancel As Integer)
  Dim RecSource As String, S As String

  RecSource = varSQL_PK ' глобальная переменная с именем запроса
  Me.RecordSource = RecSource
  S = Me.[x] 'ключевое поле
  With [y]
    .BoundColumn = 1
    .RowSource = _
      "SELECT Tbl3.[x2], Tbl3.[x3] FROM Tbl3" + _
      " INNER JOIN (Tbl2" + _
      " INNER JOIN " + RecSource + _
      " ON Tbl2.[x1]=" + RecSource + ".[x1])" + _
      " ON Tbl3.[x2]=Tbl2.[x2]" + _
      " WHERE Tbl2.[x1]='" + _
      S + "'" + _
      " ORDER BY Tbl3.[x3];"

    .RowSourceType = "Table/Query"
    .ColumnCount = 2
    .ColumnWidths = "0см;3,652см"
    .LimitToList = True
    .AllowValueListEdits = False
    .InheritValueList = True

    .Requery
  End With

End Sub

http://www.sql.ru/forum/1300582/kontroll-v-forme-ne-pokazyvaet-rezultat-zaprosa

http://www.sql.ru/forum/1300577/oshibka-v-access-runtime-2016

http://www.sql.ru/forum/1300571/ms-access-postroitel-vyrazheniy-vyrazhenie-soderzhit-oshibochnyy-podchinennyy-zapros

http://www.sql.ru/forum/1300521/chem-zamenit-zapros-s-parametrami-ot-znacheniy-kontrolov-pri-perenose-ego-na-sql-server

http://www.sql.ru/forum/1300486/predpochtitelnyy-zapusk-zaprosov-iz-access-k-mysql

http://www.sql.ru/forum/1300483/skorost-zaprosov-iz-access-k-mysql-cherez-odbc

TRANSFORM Count (public_TS_Orders.ID) AS [Count-ID]
SELECT DISTINCT DATEPART ("h",public_TS_Orders.DeliveryTime) as 123
FROM public_TS_Orders
GROUP BY public_TS_Orders.DeliveryTime
ORDER BY public_TS_Orders.DeliveryTime, public_TS_Orders.DeliveryTime
PIVOT DatePart("y",public_TS_Orders.DeliveryTime);

http://www.sql.ru/forum/1300467/perekryostnyy-zapros-po-chasam-i-dnyam

SELECT доходы.счетчик, доходы.доход, доходы.период,(SELECT TOP 1 доходы2.доход FROM доходы AS доходы2 
WHERE  доходы2.период <доходы.период ORDER BY  доходы2.период DESC) AS предыдущее_значение
FROM доходы ORDER BY доходы.период

http://www.sql.ru/forum/1300387/zapolnenie-polya-znacheniyami-iz-predydushhih-strok-narastaushhim-itogom