Проблема.
программа работает под Access версий от 2000 до 2016.
Хотел сделать подпрограмму для сворачивания при запуске ленты Ribbon. Написал такую вещь. Поскольку в А2000-2003 ленты нет, воспользовался операторами условной компиляции

Function DbRibbonMinimize() As Boolean
Dim strversion As String
Dim sngVersion As Single
Dim intComp As Integer
strversion = SysCmd(acSysCmdAccessVer)
sngVersion = CSng(Val(strversion))
If sngVersion <= 12 Then intComp = -1

#If intComp Then

#Else
    If Not RibbonState() Then
        Application.Echo False
        CommandBars.ExecuteMso "MinimizeRibbon"
        Application.Echo True
    End If
#End If

End Function

По идее в Access 2003 вторая ветка не должна компилироваться. Но при запуске функции Access останавливается на операторе .ExecuteMso и выдаёт сообщение Method or data member not found.

Что делать?

Причём вот такая структура работает

#If VBA7 Then
'  Code is running in the new VBA7 editor
     #If Win64 Then
     '  Code is running in 64-bit version of Microsoft Office
     #Else
     '  Code is running in 32-bit version of Microsoft Office
     #End If
#Else
' Code is running in VBA version 6 or earlier
#End If

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1262455/kompilyaciya-koda-v-zavisimosti-ot-versii-access

Ребят, подскажите плиз, возможно ли установить заголовок для поля вложения в табличной форме?

http://www.sql.ru/forum/1262424/zagolovok-dlya-polya-vlozhenie-v-tablichnoy-forme

Добрый день уважаемые форумчане. Помогите дописать SQL запрос.
Имеется таблица с примерно таким набором данных:

ID Ученик Предмет Тип факультатива 1 Иванов Русский язык Для подготовки к ЦТ 2 Иванов Русский язык Для подготовки к олимпиаде 3 Петров Математика Для подготовки к олимпиаде 4 Сидоров Английский Для подготовки к конкурсу 5 Хмельнов Русский язык Для подготовки к олимпиаде 6 Роевский Английский Для подготовки к ЦТ

Нужно составить таблицу следующего типа:

Предмет Для подготовки к ЦТ Для подготовки к олимпиаде Для подготовки к конкурсу Русский язык 1 2 0 Математика 0 1 0 Английский 1 0 1

Я смог осилить только такой запрос:

SELECT Предмет,COUNT ([Тип факультатива]) AS [Для подготовки ЦТ] FROM TFa_users,S_NazvOL WHERE TFa_users.[Тип факультатива]='Для подготовки к ЦТ' GROUP BY [Тип факультатива],Предмет

Выводится вот такая таблица:

Предмет Для подготовки к ЦТ Русский язык 1 Математика 0 Английский 1

Как добавить еще 2 колонки с количеством?

http://www.sql.ru/forum/1262409/pomogite-dopisat-sql-zapros-s-neskolkimi-count

Добрый день, есть две таблицы. Одна рабочая(1), в которую вносятся данные, и есть другая(2) в которой введен список значений. Сделал через мастера подстановок, что бы в одном поле, основной таблицы(1), можно было выбирать значения из списка находящегося в другой таблицы(2). Теперь вопрос, как сделать так, что бы в поле таблицы (1), автоматически добавлялись значения из таблицы (2) при наборе букв которые есть в значениях в таблице (2)? сейчас они добавляются, если вводишь начальные буквы названий, а надо что бы водилось название независимо от того начальные буквы я ввожу или буквы расположенные в середине слова.
Если написал коряво, извините. Спасибо за понимание )

http://www.sql.ru/forum/1262382/nuzhna-pomoshh-s-avtomaticheskim-zapolneniem-polya

Здравствуйте. Нужно сделать уже на готовой базе 30 запросов на 6 таблицах. Запрос+Описание+Доп Материал прилагается.
Бюджет 5000 руб.
Связаться: Zzikbzik@gmail.com
Zzikbzik Skype

http://www.sql.ru/forum/1262360/access-help

Access 2007
Используется на 3-х компьютерах совместно. База не разделенная.
После выключения компьютера с базой (при работающих других компах и запущенной на них) на следующий день вот такая ошибка.



База из бэкапа за час до выключения нормально работает.

Вопрос: как организовать выключение компьютеров, чтоб не было такого? Или это не связано с выключением?
Можно ли как то решить данную проблему и с чем она связана?

http://www.sql.ru/forum/1262322/oshibka-otkrytiya-bazy

подскажите кто
не могу найти горячую клавишу перехода из режима формы в режим конструктора

http://www.sql.ru/forum/1262307/goryachie-knopki-akses-2010

Добрый вечер, необходимо создать отчет как на изображении.
В ИС есть таблица ведомости.

+

Были сделаны несколько перекрестных запросов в них заданны условия отбора.

+

Необходимо создать отчет по данным перекрестным запросам.

http://www.sql.ru/forum/1262299/perekrestnyy-otchet-po-datam

Задача наверное примитивная, но очевидного решения не нашел (пришлось заняться, хотя совсем не моя сфера, к сожалению).
Итак, есть mbd в Access2003, с несколькими тысячами строк. Есть таблица Excel с идентичной структурой полей (несколько сотен строк). Надо данные из Excel засунуть в Access. Просто скопировать/вставить не получается, Access пытается все запихнуть в первую клеточку и умирает от удивления. "Вставить внешние данные -> импорт" тоже запихивает куда-то в отдельную таблицу.
Что делать?

http://www.sql.ru/forum/1262164/dopolnenie-tablicy-access2003-dannymi-iz-excel

Подскажите есть ли стороннее ПО для разработки SQL запросов в access? С подсветкой синтаксиса и с автодополнением. Нервы сдают, когда пытаюсь там запросы писать, помогите.

http://www.sql.ru/forum/1262137/po-dlya-razrabotki-v-access

Здравствуйте.

В форме есть поле со списком, которое при открытии формы заполняется наименованиями всех форм:

Dim a_o As AccessObject
    For Each a_o In Application.CurrentProject.AllForms
        Me.subform.AddItem a_o.name
    Next a_o

Можно ли отсортировать поле со списком по названиям форм? А то формы, видимо, сортируются там по индексам, а не по их названиям.

http://www.sql.ru/forum/1262134/sortirovka

Здравствуйте! Пожалуйста не ругайте! Помогите!

Не могу врубиться почему простейший запрос на обновление прилинкованной экселевской таблицы кричит "Невозможно обновить поле '(выражение)'; не обновляемое поле."
Столкнулся банально при перетаскивании всего с ХР и Оффиса 2003 на W10 и Офф2010 - раньше все работало как часики, а здесь падло как палка в колеса. Погуглил немного, но нет никакого ответа, может конечно плохо искал, но так взбесило в воскресенье это мелкомягкое г..., что чуть комп не разбил от досады. Пример в аттаче "Запрос1" (файлы поместить в C:\Temp)

http://www.sql.ru/forum/1262075/ne-obnovlyaemoe-pole-s-prilinkovannym-excel

Здравствуйте !

  strSql = " DECLARE @m_table1 AS m_table; " & _
    " DECLARE @ret int; " & _
    " INSERT INTO @m_table1 (id, val) " & _
    " SELECT 1, 3 " & _
    " union all" & _
    " SELECT 2, 4 " & _
    " union all" & _
    " SELECT 3, 5 " & _
    " union all" & _
    " SELECT 4, 6 ;" & _
    " exec @ret =  p_insert @m_table1, @ret = Null "

Dim qdf As QueryDef
Set qdf = CreateTempQueryDef(strSql)
Set OpenRecordset = qdf.OpenRecordset(dbOpenForwardOnly, dbReadOnly)



Вот такой код я пытаюсь выполнить в акцесе. Он отлично отрабатывает в management studio, а вот акцесс говорит: invalid argument.
Можно ли что-то поправить? Пробовала акцесс самых разных версий, но пока выходит, что проблема возникает именно при работе с табличной переменной. Стоит ее убрать, вот этот вызов: exec @ret = p_insert @m_table1, @ret = Null и всё хорошо.

Переписать процедуру на передачу не таблицы, а параметров в виде чисел можно, но от этого как раз хотелось уйти.

http://www.sql.ru/forum/1262053/peredacha-v-ms-sql-tablichnoy-peremennoy-ne-rabotaet

Приветствую. У меня есь форма, с которой я открываю отчет. Мне необходимо что бы источник записий для отчета подхватывал выбранное имя из выпадающего списка на форме. Подскажите как сделать.

Сейчас у меня такое условие в запросе:
WHERE (((Поставщики.Имя)=[Forms]![Поставки отчеты]![Имя].[Text]));

http://www.sql.ru/forum/1262036/poluchit-znachenie-v-zaprose-dlya-otcheta-iz-polya-so-spiskom

Добрый день.
Помогите студенту решить задачку.
Есть база данных студентов,где внесены данные о Факультете,Курсе,группе,ФИО,успеваемость и стипендия.
Необходимо создать запрос для подсчёта общего количества студентов и суммы выплат стипендий по факультетам.
Сделаную базу данных прикрепил.Помогите пожалуйста.Всю голову сломал(

http://www.sql.ru/forum/1262007/zapros-v-bd-access

Добрый всем день!

В прикрепленном файле Таблица1-основная БД. Таблица-2 временная. Form1 - основная форма, которой основное время пользуются. Form2 - необходима только для запроса.
Сам запрос очень простой просто по дате.

Два вопроса.
1) Простой. Как сделать так, что бы в запросе вводили дату не в ручную, а выбирали из календаря, просто указав дату?

2) Не простой. Как из формы 1 добавить любую строчку в таблицу 2? Нужно именно сделать так, что-бы кликнув по нужной строчке, она копировалась во вторую таблицу.

http://www.sql.ru/forum/1261966/kalendar-v-zaprose-dobavlenie-dannyh-iz-formy

Доброго времени суток

Для импорта данных из Excell в Access использую процедуру:

Public Sub Ex2Acc() ' Импорт данных
' Dim sheet As Excel.Worksheet
Dim book As Excel.Workbook
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim rstb As String
Dim rstEr As DAO.Recordset
Dim appXl As Excel.Application
Dim wrksheet As Excel.Worksheet
Dim i As Long

rstb = Forms![Form1].[Поле13].Value

Set appXl = CreateObject("Excel.Application")
Set book = appXl.Workbooks.Open(Forms![Form1].[Поле3].Value)
Set dbs = CurrentDb
Set rst = CurrentDb.OpenRecordset(rstb)
Set wrksheet = book.Sheets(1)

  With book.Sheets(1)
  For i = 5 To 100
  If InStr(1, wrksheet.Cells(i, "H").Value, "ns") > 0 Then
  With rst
     .AddNew
   '  On Error Resume Next
     ![OBSN] = RTrim(wrksheet.Cells(i, "B"))
     ![NAIM] = RTrim(wrksheet.Cells(i, "C"))
     ![ED_IZM] = RTrim(wrksheet.Cells(i, "D"))
     ![BRUTTO] = wrksheet.Cells(i, "E")
     ![C_BASE] = zamena(wrksheet.Cells(i, "F"))
     ![CLASS_GR] = zamena(wrksheet.Cells(i, "G"))
     ![COD_UZ] = zamena(wrksheet.Cells(i, "H"))
     ![C_OPT] = zamena(wrksheet.Cells(i, "I"))
     ![C_SMET] = zamena(wrksheet.Cells(i, "J"))
     ![IND] = zamena(wrksheet.Cells(i, "K"))
     .Update
  End With
  End If
   Next
   End With
   rst.Close: Set rst = Nothing
   dbs.Close: Set rst = Nothing
   book.Close: Set book = Nothing
   appXl.Quit: Set appXl = Nothing
 
MsgBox "Завершено"
   
  ' Exit Sub
  ' CurrentDb.Execute "CREATE TABLE Errors(RowNumbers CHAR(15))"
  ' Set rstEr = CurrentDb.OpenRecordset(Errors)
  ' With wrksheet
  ' With rstEr
  ' .AddNew
  ' ![RowNumbers] = wrksheet.Cells(i, "A")
  ' .Update
  ' End With
  ' End With
   
End Sub

При импорте данных из листа excel в поле таблицы access появляются лишние пробелы. В файле excel, тем не менее, этих пробелов нет.
Я пробовал и

![OBSN] = RTrim(wrksheet.Cells(i, "B"))

И

![OBSN] = replace(wrksheet.Cells(i, "B"), " ", "")

в т.ч. и функцию zamena, предоставленную мне ранее пользователем ПЕНСИОНЕРКА. Всё равно импортирует с пробелами.
Когда я сменил в одном из полей таблицы тип с текстового на мемо, данные в это поле занеслись без пробелов, как положено. Но это не выход, т.к. от меня требуются таблицы с полями определённого типа. Но и без этого считаю нужным понять проблему.
Помогите разобраться

http://www.sql.ru/forum/1261939/vba-lishnie-probely-pri-importe

Доброго времени суток.
Пытаюсь открыть recordset и выдается ошибка Слишком мало параметров требуется 2.
Уже делал таким способом, но там запрос поместился в одну строку и все нормально работает.
Подскажите в чем проблема может быть?

Dim db As Database
Dim strArray() As Variant
Dim prArray() As Variant
Dim strSQL1 As String
Dim tdf1 As DAO.Recordset
Dim rstData1 As DAO.Recordset
Dim eData1 As Integer
Dim fData1 As Integer
Dim efields1 As Integer

Set db = CurrentDb()
efields = 9
strSQL1 = "SELECT ZStrData.id_incoming_indicator, ZStrData.id_region, ZStrData.id_item_str, ZStrData.id_unit, [ZStrData].[ind_value]/[Sum-ind_value] AS Выражение1, StrItem.name_item_str, StrItem.id_str_type, ZStrData.twelvemonth, ZStrData.id_data FROM (ZStrDataSum INNER JOIN ZStrData ON (ZStrData.twelvemonth = ZStrDataSum.twelvemonth) AND (ZStrData.id_unit = ZStrDataSum.id_unit) AND (ZStrData.id_region = ZStrDataSum.id_region) AND (ZStrDataSum.id_incoming_indicator = ZStrData.id_incoming_indicator)) INNER JOIN StrItem ON ZStrData.id_item_str = StrItem.id_item_str GROUP BY ZStrData.id_incoming_indicator, ZStrData.id_region, ZStrData.id_item_str, ZStrData.id_unit, [ZStrData].[ind_value]/[Sum-ind_value], StrItem.name_item_str, StrItem.id_str_type, ZStrData.twelvemonth, ZStrData.id_data, ZStrData.twelvemonth "
strSQL1 = strSQL1 + "HAVING (((ZStrData.id_incoming_indicator) = " & [Forms]![main]![Data_str].[Form]![index1] & ") And ((ZStrData.id_region) = " & [Forms]![main]![Data_str].[Form]![region1] & ") And ((StrItem.id_str_type) = " & [Forms]![main]![Data_str].[Form]![str1] & ") And ((ZStrData.twelvemonth) = " & CDbl([Forms]![main]![Data_str].[Form]![period1]) & ")) Or (((ZStrData.twelvemonth) = " & CDbl([Forms]![main]![Data_str].[Form]![period2]) & ")) ORDER BY ZStrData.id_item_str, [ZStrData].[ind_value]/[Sum-ind_value] DESC;"


Set rstData1 = db.OpenRecordset(strSQL1, dbOpenDynaset)

база https://drive.google.com/open?id=0B_bBwCfw-ZAQS1MzakpWUlk4R0E

http://www.sql.ru/forum/1261880/nedostatochno-parametrov-openrecordset

Форма в режиме конструктора с подчиненной формой жутко тормозит когда фокус переходит с главной формы во внутрь подчиненной формы, и когда фокус выходит из подчиненной формы на главную форму. Причем когда стою на главной форме и просто ставлю фокус на объект подчиненной формы (не заходя во внутрь) - работает нормально. С чем это может быть связано?

http://www.sql.ru/forum/1261831/zhutko-tormozit-v-konstruktore-podchinennoy-formy

Всем привет!
Пытаюсь наладить экспорт в эксель. Нюанс в том, что файл должен быть открыт, т.к. экспорт идет в "умную" таблицу и при закрытом файле она не меняет диапазон.
Написал код, который корректно работает только если целевой файл закрыт.
Можно ли добавить проверку открыт ли этот файл?

Sub testExport()
  Dim dbPath As String, exOrder As String
  Dim appExcel As Object
  Dim wbkExcel
  
  dbPath = Application.CurrentProject.Path
  exOrder = dbPath & "\Квартальный отчет.xlsm"
  
  Set appExcel = CreateObject("excel.application")
  appExcel.Visible = True
  Set wbkExcel = appExcel.Workbooks.Open(exOrder)
 
  Call DoCmd.TransferSpreadsheet(acExport, acSpreadsheetTypeExcel12Xml, _
                   "qExport", exOrder, True, "exSumViolations")
  
End Sub

http://www.sql.ru/forum/1261815/proverka-otktryt-li-fayl-eksel-pered-eksportom