Знаю, что можно описать класс. Вроде объект дальше создать.
Надёжен ли код с классами в проектах?

Хочу в функцию передавать такой объект.
Чтобы функция его модифицировала.

http://www.sql.ru/forum/1284376/nadyozhny-li-klassy-v-ms-access

Возможно ли скрыть повторяющиеся значения в списке ?

Нужно сделать что бы в списке отображалась только одна запись, а при выгрузке отображалось все.

Кнопка работа, вкладка оценки.

Вот формы и таблицы.

http://www.sql.ru/forum/1284371/skrytie-povtoryaushhihsya-znacheniy

Добрый день.
Пытаюсь подружить ACCESS и MySQL. Через ODBC все работает, но не устаревает. Очень долго забрасывается на сервер большое количество данных. Ведь нужно отправлять каждую запись отдельным запросом. Решил по FTP передавать на сервак файл типа .sql и уже на нем его выполнять. Как отправить файл на сервер более менее понятно (искать по wininet.dll). А вот какую команду выполнить, как ее выполнить, чтобы исполнить запросы находящиеся в этом файле – непонятно. Подскажите, в какую сторону копать?
Спасибо

http://www.sql.ru/forum/1284361/podruzhit-access-i-mysql-cherez-ftp

Подскажите, пожалуйста, возможно ли упростить в моей БД создание запроса, в котором выводились бы значения инфузии и потерь? Причем, чтобы в случае пустой строки выводился бы 0 ? Я-то сделал, и оно работает, но как-то больно громоздко: отдельный запрос для инфузии, затем такой же для потерь, и затем – третий, итоговый. И к тому же пришлось в коде SQL менять JOIN, а именно: менять INNER на LEFT. Можно ли все эту конструкцию упростить ? С ув. Юрий

http://www.sql.ru/forum/1284344/zapros-dlya-neskolkih-poley-so-spiskom

Приветствую Всех! Подскажите, как реализовать параметр в запросе ВсеДатыМакс в поле До_погашения, что бы в поле со списком "До_погашения" добавить значение "Все" и при его выборе запрос ВсеДатыМакс выполнялся по всем значениям поля До_погашения, а при выборе в поле со списком конкретного значения, запрос выполнялся с этим параметром.

http://www.sql.ru/forum/1284338/zapros-s-parametrom-v-pole-tipa-1-konkretnoe-znachenie-ili-2-vse-znacheniya

Уважаемые,
кто-нибудь использует Access для формирования данных для Power Pivot?
Применяете ли Акс для экономических моделей проектов?

http://www.sql.ru/forum/1284324/business-intelligence-power-pivot-i-td

Добрый день.
Есть поле формы(поле со списком), в таблице числовое поле. Поле со списком с источником - запросом (словарем)
Как сделать так чтобы при вводе нового значения диалог спрашивал о возможности добавить новое значение в словарь, и если "Да", то добавлял?
Спасибо

http://www.sql.ru/forum/1284311/slovar

Нужна помощь при создании формы (Objects), которая будет иметь подчиненную форму (Objects_versions), последняя форма которая является подчиненной формой будет иметь сама подчиненные формы (Objects_param1 и Objects_param2).

Такая схема таблиц:

+

У каждого объекта (Object из таблице Objects) может быть неограниченное количество версий (Objects_versions), а у каждой версии может быть неограниченное количество param1 и param2

Такое вообще возможно в Access? Интересует именно создание формы для такой структуры таблиц. Спасибо.

http://www.sql.ru/forum/1284284/sozdanie-pod-podchinennoy-formy-v-ms-access

Всем привет!
Есть задача по составлению рецептур. Есть рецептура инвертного сиропа, есть рецептура эмульсии (в которую входит инвертный сироп) и есть рецептура теста (туда входит эмульсия (в которую входит инвертный сироп)).
Как мне лучше вносить данные в рецептуры?
Или
Какой запрос необходимо написать, чтобы была раскладка всех компонентов, которые входят в тесто?
Те, в приложенном файле есть запрос ПФ_раскладка. В данном запросе есть позиция Инвертный сироп. Надо, чтобы было, то из чего он состоит.
Есть решение таких задач?

http://www.sql.ru/forum/1284282/raskladka-s-pomoshhu-zaprosa

Здравствуйте, у меня очередная проблема.
Есть форма, в ней подчинённая форма, которая берёт данные из запроса, который
в свою очередь берёт данные из 6-ти таблиц, 3 из которых являются подчинёнными одной из этих 6-ти.
Так вот суть проблемы в том, что когда я создаю новую запись в форме то в основной таблице запись создаётся, а в остальные нет, в результате чего форма постоянно создаёт новую запись не давая редактировать созданную (причём если это делать просто в таблице, всё создаётся без проблем).
Если кому нужна сама база, напишите на мыло вышлю, так как даже напрочь почищенная она весит 130 МГб. сжатая 2.5 МГб

http://www.sql.ru/forum/1284234/nuzhna-pomoshh-ne-mogu-normalno-sozdat-zapis

Всем привет!

Вопрос такой... на листе Excel в Cells(1, 1) есть цифра. Например, 4.

m = Sheets("Лист1").Cells(1, 1).Value

В базе есть условные даты с разными днями, но с нужным номером месяца с "маской" 01.04.0000 - типа, так...

Как написать запрос, чтобы вытянуть условные значения r по номеру 4?

SQLr = "SELECT r FROM RRR where date = m"

не могу понять, как "приравнять" 4 к xx.04.xxxx и на основании этого написать запрос.

Подскажите, пожалуйста.

http://www.sql.ru/forum/1284189/zapros-v-bazu-po-date-s-lista-excel

Бодрый вечер!

Вроде, просто, но не нашел вариант

Есть код

Sub ReadMDB()
Dim tbl As Recordset
Dim dbs As DAO.Database
Set dbs = OpenDatabase("G:\3\A.accdb")
m = Sheets("Лист1").Cells(1, 1).Value
SQLr = "DELETE * FROM RRR  WHERE ID = " & m & ""
Set tbl = dbs.OpenRecordset(SQLr)

tbl.Close
Set tbl = Nothing
dbs.Close
Set dbs = Nothing
End Sub

Но кидает ошибку при удалении строчки с уникальным ID

Подскажите, пожалуйста, что не так....)??

http://www.sql.ru/forum/1284172/udalit-zapis-po-id

Помогите студенту !
У меня есть две таблицы.
Ка вывести на экран только те записи значение поля в которых в двух таблицах не совпадают
Извините за тупой вопрос

http://www.sql.ru/forum/1284135/zapros

комбобокс не показывает ВСЕ записи источника (>65К). разделил источник на 10 запросов (Q0, Q1, Q2, Q3...) при вводе первого символа необходимо выбрать соответствующий источник. Как это определить???

http://www.sql.ru/forum/1284119/vybor-istochnika-komboboksa-po-pervomu-vvedyonnomu-simvolu

Делаю базу

Sub СозданиеТаблицы()
Dim connDB As Object
Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open
connDB.Execute = "CREATE TABLE RRR " & "(ID  COUNTER, r DATETIME, m TEXT, n TEXT,o TEXT, k TINYINT, s TEXT);"
connDB.Close
Set connDB = Nothing
End Sub

И заполняю ее
Потом хочу достать информацию

Sub uu()
Dim tbl As Recordset
Dim dbs As DAO.Database
Set dbs = OpenDatabase("G:\3\A.accdb")
Range("F:L").ClearContents
SQLr = "SELECT ID, r, m, n,o,k,s FROM RRR WHERE o = '" & Sheets("Лист1").Cells(1, 1).Value & "' AND  ID= " & Sheets("Лист1").Cells(2, 1).Value & " "

Set tbl = dbs.OpenRecordset(SQLr)
Sheets("Лист1").Select
Cells(2, 6).CopyFromRecordset tbl
tbl.Close
Set tbl = Nothing
dbs.Close
Set dbs = Nothing
End Sub

cells 1.1 получается текстовое значение
cells 2.1 цифровое


Как прописать так, чтобы если вдруг не указав цифровое значение в cells 2.1, тем не менее код смог выполнился только используя значения cells 1.1

Вопрос связан с тем, что в самом запросе ( как я вижу решение) будет просто прописано и 4 критерия
А, скажем, на самом листе может быть указан только 2 из них, остальные будут отсутствовать, они не будут указаны
То, есть можно ли сам запрос сделать статичным в такой ситуации?
Потому что в этом конкретном примере я увидел, что так Excel VBA кидает ошибку...
Подскажите, пожалуйста, какие варианты решения вообщем могут быть.

http://www.sql.ru/forum/1284108/zapros-bez-ukazaniya-otdelnyh-peremennyh

Доброе утро, всем!
Вопрос в том, что если пишу код:

SQLr = "SELECT ID, r, m, n,o,k FROM RRR WHERE ID = " & Sheets("Main").Cells(1, 3).Value & ""

Все прекрасно работает, данные выводятся

Но когда перехожу на другие названия полей (они текстовые, не знаю, в этом ли причина)

SQLr = "SELECT ID, r, m, n,o,k FROM RRR WHERE r = " & Sheets("Main").Cells(2, 3).Value & ""

Пишет ошибку...ошибка синтаксиса, пропущен оператор

Как убрать ошибку??) Может, кто-то встречался с подобным?

http://www.sql.ru/forum/1284087/vyvesti-iz-access-na-list-excel-dannye

Есть база

Sub СозданиеТаблицы()
Dim connDB As Object
Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open
connDB.Execute = "CREATE TABLE RRR" & "(Дата DATETIME, ID  COUNTER);"
connDB.Close
Set connDB = Nothing
End Sub

Когда делаю запрос уже в

Sub Insert()
Dim connDB As Object
Dim otdel As String
Dim sotrudink As String
Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open
connDB.Execute = "INSERT INTO RRR VALUES('" & Date & "', 1)"
connDB.Close
Set connDB = Nothing
End Sub

Как сделать, чтобы в процессе такой вставки нумерация происходила сама собой? А не указывать ее? Ведь counter по идее для этого и создан...
Но как его указать...

http://www.sql.ru/forum/1284086/avtomaticheski-numerovat-stroki-pri-dobavlenii-novyh-znacheniy

Есть база

Sub СозданиеТаблицы()
Dim connDB As Object
Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open
connDB.Execute = "CREATE TABLE RRR" & "(Дата DATETIME, ID  COUNTER);"
connDB.Close
Set connDB = Nothing
End Sub

Когда делаю запрос уже в

Sub Insert()
Dim connDB As Object
Dim otdel As String
Dim sotrudink As String
Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open
connDB.Execute = "INSERT INTO RRR VALUES('" & Date & "', 1)"
connDB.Close
Set connDB = Nothing
End Sub

Как сделать, чтбоы

http://www.sql.ru/forum/1284085/avtomaticheski-numerovat-stroki-pri-dobavlenii-novyh-znacheniy

Sub Insert()
Dim connDB As Object
Dim otdel As String
Dim sotrudink As String
dat = Date

Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open
connDB.Execute = "INSERT INTO rrr VALUES(,)"

'connDB.Execute = "INSERT INTO rrr VALUES(,)"
connDB.Close
Set connDB = Nothing
End Sub

Подскажите, пожалуйста, как вставить дату? Как прописать верно синтаксис?

http://www.sql.ru/forum/1284084/vstavit-datu-v-tablicu-access-iz-excel

Доброй ночи! Подскажите, пожалуйста, как устранить дублирование названий объекта-источника? Оно, вроде, не влияет на работу БД, но уж больно не красиво. Как выглядит - в приложенном скрине. Как появляется - после нескольких попыток внедрения подчиненной формы и ее удаления. Ну так получилось. С ув. Юрий

http://www.sql.ru/forum/1284082/kak-udalit-dubli-nazvaniya-obekta-istochnika