Dim s11 As String, s12 As String
    Dim s13 As String, s14 As String
    Dim ss As String
    Dim frm As Form, rst As DAO.Recordset

On Error GoTo Err_Êíîïêà_ÄÇ_Click
    
    s11 =  "SELECT DB_ÒÐÀÍÇÀÊÖÈÈ.Äàòà, DB_ÒÐÀÍÇÀÊÖÈÈ.Öåíòð, DB_ÒÐÀÍÇÀÊÖÈÈ.Òèï, " 
    s12 =  "DB_ÒÐÀÍÇÀÊÖÈÈ.DOC, DB_ÒÐÀÍÇÀÊÖÈÈ.Ê_Ïîëó÷åíèþ, DB_ÒÐÀÍÇÀÊÖÈÈ.Ïîëó÷åíî, " 
    s13 =  "DB_ÒÐÀÍÇÀÊÖÈÈ.Ê_Îïëàòå, DB_ÒÐÀÍÇÀÊÖÈÈ.Îïëà÷åíî, DB_ÒÐÀÍÇÀÊÖÈÈ.Êîììåíòàðèé " 
    s14 =  "FROM DB_ÒÐÀÍÇÀÊÖÈÈ;" 
    
    ss = s11 & s12 & s13 & s14
    
    Set rst = CurrentDb.OpenRecordset(ss)

    DoCmd.GoToRecord ,  "DB_ÒÐÀÍÇÀÊÖÈÈ" , acNewRec

SELECT DB_ТРАНЗАКЦИИ.Дата, DB_ТРАНЗАКЦИИ.Центр,
 DB_ТРАНЗАКЦИИ.Тип, DB_ТРАНЗАКЦИИ.Объект, DB_ТРАНЗАКЦИИ.DOC, 
DB_ТРАНЗАКЦИИ.К_Получению, DB_ТРАНЗАКЦИИ.Получено, 
DB_ТРАНЗАКЦИИ.К_Оплате, DB_ТРАНЗАКЦИИ.Оплачено, 
DB_ТРАНЗАКЦИИ.Комментарий

FROM DB_ТРАНЗАКЦИИ;