Добрый день!
Только пытаюсь постигать Аccess, большая просьба помочь!
Есть запрос, на основе запроса простая форма, отображающая записи. В запросе есть поля: ДАТА ПОСЛ ПОВЕРКИ, ДАТА ОЧЕР ПОВЕРКИ, МПИ. Нужно следующее:
Вручную вводим значение поля ДАТА ПОСЛ ПОВЕРКИ, потом жмем на кнопку и в поле ДАТА ОЧЕР ПОВЕРКИ появляется значение равное ДАТА ПОСЛ ПОВЕРКИ+МПИ месяцев.
Пробую:
Private Sub Кнопка45_Click()
[ДАТА ОЧЕР ПОВЕРКИ] = DateAdd("m", [МПИ], [ДАТА ПОСЛ ПОВЕРКИ])
End Sub

Не ругается и не работает. Помогите, пожалуйста!
У дат тип данных - дата, у МПИ - числовой.

http://www.sql.ru/forum/1147387/prisvoit-znachenie-polu-data-pereschetom-drugogo-polya

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

В форме access на элемент управления "Вкладка" добавила несколько элементов управления. Мне необходимо при определённом событии установить одно и то же свойство для всех элементов управления, принадлежащих только нужной вкладке.

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

http://www.sql.ru/forum/1147385/elementy-upravleniya-v-elemente-vkladka

День добрый всем!
Есть клиентское приложение, написанное на А2010 (.accdb). Данные лежат в отдельном файле также А2010.
Подскажите, порекомендуйте какой-нибудь инструментарий, с помощью которого можно было бы в виде графа отобразить связи между записями таблицы. Для простоты пусть таблица всего из 2-х столбцов: Id1, Id2.
Чтобы получилось нечто вроде следующего:

http://www.sql.ru/forum/1147340/vizualizaciya-dannyh

Есть таблица "Сотрудники" с ключевым полем номера сотрудника.
Есть таблица "Группы" с ключевым полем "Группа".
Есть соединительная таблица "Сотрудники_Группы", состоящей из двух внешних ключей, которые ссылаются на первичные ключи таблиц "Сотруднки" и "Группы".

Необходимо вести базу доступа сотрудников или групп сотрудников к другим сотрудникам или группам сорудников. Каким образом это лучше реализовать?
Создал таблицу "Доступ" с полями "Источник", "Назначение" и "Уровень доступа". Значения полей "Источник" и "Назначение" может быть как Сотрудником, так и Группой.

http://www.sql.ru/forum/1147328/svyazat-pole-s-polyami-iz-raznyh-tablic

Имеется база данных. На основной машине работает без проблем. По локальной сети - на поисковый запрос при нажатии одной из кнопок вылезает "свойство не найдено", и так на всех машинах сети. В чем проблема, и как это вылечить можно?

http://www.sql.ru/forum/1147259/v-lokalnoy-seti-ne-rabotaet-odna-iz-knopok-poiska-po-bd

У кого нибудь есть опыт программного включения и отключения служб Windows ?
Или же идеи по реализации такой задачи.
:
Форма
Комбобокс со списком служб Windows
кнопка (включить)
кнопка (выключить)

http://www.sql.ru/forum/1147248/vkluchit-vykluchit-sluzhbu-windows

День добрый,

Стоял Access 2010 и база на компе сотрудника. К базе обращались другие пользователи.
Поставили сервер перенесли Access 2010 и базу на него Win2008 сервер, а стоял на win 7.
Стали возникать ошибки: пропадают строки в таблице или задваиваются.
За полгода работы никогда такого не было.

На Access 2010 построено производство небольшой фабрики. Все в тихой панике.
Руководство говорит что - Вы что то там не то нажимаете.

Кто виноват? Что делать?

http://www.sql.ru/forum/1147244/propadaut-i-zadvaivautsya-stroki-v-access-2010

для того чтобы включить NumLock использую следующий код, но мне надо сделать чтобы не просто циклично включалась - выключалась NumLock , а включалась только при выключенном состоянии.

Private Sub Form_Load()
If GetNumlock <> True Then Call SetNumlock(True)
SendKeys "{F11}", False
End Sub

Option Compare Database
Option Explicit

Private Declare Function LoadKeyboardLayout Lib "user32" Alias _
 "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
 
'для NumLock-----------------
Private Const vbKeyScrollLock = &H91
Private Const vbKeyNumlock = &H90

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long
'для NumLock-----------------

Function Keyboard()

'Переключение на английскую раскладку
'Call LoadKeyboardLayout("00000409", &H1)

'Переключение на русскую раскладку
Call LoadKeyboardLayout("00000419", &H1)

End Function

Public Sub SetNumlock(Value As Boolean)
    ' Return or set the Numlock toggle.
    Call SetKeyState(vbKeyNumlock, Value)
End Sub

Public Function GetNumlock() As Boolean
    ' Return or set the Numlock toggle.
    GetNumlock = CBool(GetKeyState(vbKeyNumlock) And 1)
End Function

Public Sub SetKeyState(intKey As Integer, fTurnOn As Boolean)
    ' Retrieve the keyboard state, set the particular
    ' key in which you're interested, and then set
    ' the entire keyboard state back the way it
    ' was, with the one key altered.
Dim abytBuffer(0 To 255) As Byte
    GetKeyboardState abytBuffer(0)
    abytBuffer(intKey) = CByte(Abs(fTurnOn))
    SetKeyboardState abytBuffer(0)
End Sub

http://www.sql.ru/forum/1147160/vkluchenie-numlock-pri-otkrytii-formy

Уважаемые, прошу помочь сделать отчет с помощью формы с датами из таблицы.
Есть таблица Заказы
Есть запрос из нее Заказы3
Есть форма с датами С ПО - Текущие заказы3
Нужен отчет Текущие заказы

Как сделать отчет по интервалу дат?
Или - Как передать даты с формы в запрос?

В общем задача - сделать выборку из таблицы по интервалу дат с помощью формы. Не так все просто, как я думал.

http://www.sql.ru/forum/1147136/forma-vyborki-po-datam-iz-tablicy-ili-zaprosa

Делал курсовую работу в Access 2003. Однако требуется её дополнить в Access 2010.
Вопросы:
1) При открытии кнопочной формы у меня вот такая проблема, как можно её решить?
2)Нужно ли и как конвертировать бд 2003 в 2010?(Просто открыть проект и сохранить в ACCDB не получается)

http://www.sql.ru/forum/1147078/neskolko-voprosov

нужно из строковой переменной 010203 сделать переменную в виде даты 01.02.2003.
пытался так, но не получается нужного результата.
нужно не проверить (сравнить) переменную с маской, а задать её, придать нужный вид

StrZ=010203
DataOpr1 = "#" & StrZ & "#"

DataOpr2 = Format(DataOpr1, "dd.mm.yyyy")

DataOpr2=DataOpr1 Like "##.##.####"

http://www.sql.ru/forum/1147058/zadat-peremennoy-masku-format

Доброго времени суток. Подскажите, как посчитать количество свободных вакансий? Количество занятых мест показывает. Пробовал вычитать из поля Количество занятые места, выдавало ошибку.

http://www.sql.ru/forum/1147057/kolichestvo-svobodnyh-mest

Здравствуйте. Если создаю запрос в конструкторе запросов, то все нормально:

"SELECT nz([InCas].[adr],"") AS Adr FROM InCas"

Если же этот текст запроса пытаюсь использовать в коде vba, то он не работает. Ткните пожалуйста, что не так делаю.

http://www.sql.ru/forum/1147020/zapros-v-kode

Здравствуйте, коллеги!

Вопрос в следующем - какие механизмы можно применить для организации нескольких счетчиков внутри одной таблицы.
Помимо поля ID с типом данных "счетчик", есть необходимость сделать еще несколько полей с порядковыми номерами, не зависящими друг от друга.
Что можно придумать select max(NN)+1?

С уважением, Сергей.

http://www.sql.ru/forum/1146978/organizaciya-neskolkih-generatorov-schetchikov

Проблема.

Есть таблица с названиями предприятий. Около 3 000.
Для каждого предприятия надо создать файл с данными. В название этого файла должно быть включено название предприятия.
Но в названии предприятия могут быть запрещённые символы, например апострофы или двойные кавычки. Я где-то уже видел функцию, которая преобразовывала строку символов к нужному виду (заменяла " на _ или вообще их убирала). Перерыл у себя всё что мог, но не нашел. Может у кого-нибудь есть подобное? Крутится в голове, но никак не вспомню где и когда...

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

http://www.sql.ru/forum/1146911/f-ciya-kontrolya-i-ispravleniya-nazvaniya-vyhodnyh-faylov-zamena-udalenie-zapreshhyonnyh-znakov

импорт командой

      DoCmd.TransferSpreadsheet acImport, , "TDSheet", strFileName

не оправдал всех надежд

намереваюсь заменить на

    Dim exbook As Object
    Set exbook = CreateObject("Excel.Application")
    exbook.Visible = True
    
    expath = path_file_xls
    exbook.workbooks.Open (expath)

    With exbook.workbooks(1).worksheets(1)
          циклы  по столбцам и строкам  экселевского листа

Вопрос как найти границы (.EOF .BOF ) данных на листе. где кончаются заполненные строки и заполненные столбцы ?
Где взять описание методов и свойств для работы с Exel ?

http://www.sql.ru/forum/1146873/kak-opredelit-granicy-raspolozheniya-dannyh-na-liste-exel

Всем добрый день, прошу помочь начинающему.

Есть запрос (источник-таблица из другого файла), информацию из которого должна скопироваться в таблицу.
Копирую с использованием CurrentDb.Execute "INSERT INTO..."
Все копируется нормально, новые появившиеся записи в запросе тоже все копируются. Но если запись в источнике редактируется, то после повторного копирования никаких изменений в скопированных записях не производится.

Скажите пожалуйста, как сделать чтобы записи менялись?(первичный ключ записей код репликации)

http://www.sql.ru/forum/1146829/kopirovanie-zapisey

Похоже многие portable, работавшие на W7, конкретно рубятся на W8. Никто не встречал "любимого" (portable) под W8 ?
Ссылок можно и не нужно, просто хотя бы да или нет, видел / не видел, (не видел,- можно не отвечать) &)

http://www.sql.ru/forum/1146798/portable-pod-w8

Ребятушки дорогие, очень нужны примеры калькуляции в Access! Если, кто что-то подобное видел, пожалуйста, помогите!

http://www.sql.ru/forum/1146705/kalkulyaciya

Всем добрый день!
Есть форма и Поле со списком а в нем 3 столбца.
Можно ли сделать так?
Ширина столбцов = ширины данных
Если да как?
Спасибо!

http://www.sql.ru/forum/1146648/v-pole-so-spiskom-kak-sdelat-chto-shirina-stolbcov-shiriny-dannyh