Если коротко. Из таблицы загружаются контекстные меню.
Public Function неважно (optional ByVal VarBefore as variant)
..........................
collection.add бла-бла-бла,Before:=varBefore
end function
В таком виде varBefore missing. И все работает.
Если есть переменная типа вариант и ее я подставляю без значения в аргумент функции, то получаю ошибку.
Можно ли как то обойти это без анализа VarBefore?

http://www.sql.ru/forum/1178944/pro-kollekcii-i-metod-add

Приветствую!
Коллеги, накидайте советов, пожалуйста, как ускорить работу с разделенной базой (интерфейсы локально, таблицы на сетевом диске). Больше половины суток крутится запрос на копирование данных из локальной таблицы в сетевую (ок. 20к записей, addnew в рекордсет, проверка на существование записи). Ссылки, факи, мануалы - пожалуйста.

http://www.sql.ru/forum/1178847/razdelennaya-baza-uskorenie-raboty

Есть Форма, в нем Кнопка1 и Список0.
Можно ли при нажатии Кнопка1 изменилась заголовок столбцов в Список0!?
Вот мой не рабочий код:

Private Sub Кнопка1_Click()
Список0.Controls(Поле1).Label = "Номер"
Список0.Requery
End Sub

За ранее спасибо!

http://www.sql.ru/forum/1178822/kak-programmno-izmenit-zagolovok-stolbcov-v-spiske

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

Option Compare Database

Public Declare Function CopyFileAPI Lib "kernel32.dll" Alias "CopyFileA" (ByVal ИмяФайлаЧтоКопируем As String, ByVal ИмяФайлаКудаКопируем As String, ByVal НадоЛиПоВерх As Long) As Long

Function CreateBackup()
Dim strSourse As String
Dim strTarget As String
strSourse = CurrentProject.FullName
strTarget = CurrentProject.Path & "\" & Format(Now(), "mmddyyhhmmss") & "_" & CurrentProject.Name

If CopyFileAPI(CurrentProject.FullName, strTarget, 1) = 1 Then
    MsgBox ("Создана резервная копия текущей БД в " & strTarget), vbInformation
Else
    MsgBox ("Копия нифига не получилась!"), vbCritical
End If

End Function

http://www.sql.ru/forum/1178819/kod-dlya-rezervnogo-kopirovaniya-bd

Необходимо, чтобы определенный макрос запускался каждый день в 20:00. Как это сделать?

http://www.sql.ru/forum/1178797/zapusk-makrosa-v-opredelennoe-vremya

Как прописать процедуру резервного копирования вместе с сжатием\восстановлением бд, выполняемую в определенное время?

http://www.sql.ru/forum/1178729/rezervnoe-kopirovanie-szhatie-i-vosstanovlenie-v-opredelennoe-vremya

Добрый день.
Есть главная форма-каркас Ф1.
На ней сабформа СФ2 и еще одна сабформа СФ3 с вложенной в нее табличной формой ССФ4.

При переходе кликами по полям СФ2 меняется содержимое ССФ4 для каждого поля.
Все нормально, но курсор из кликнутого поля СФ2 улетает (куда-то, клавишами не обнаруживается) и выделяется первое поле ССФ4. А нужно чтобы курсор оставался в кликнутом поле СФ2.
Все мои попытки вернуть курсор в поле SetFocus-ом ничего не дали, видимо нарушаю какую-то последовательность перевода.

Как это поправить?

http://www.sql.ru/forum/1178724/ne-rabotaet-setfocus

Доброго времени суток.
Есть значение в полях, n-е количество, например:
456;345;674
3251;765;7623
23;467;654
1;2;22

Необходимо возвратить только первые числа до точки с запятой, соответственно функция left тут не проходит, подскажите пожалуйста как прописать данную функцию, если можно на любом примере.

Всех заранее благодарю.

http://www.sql.ru/forum/1178714/vozvratit-chast-znacheniya-iz-polya

Всем привет.
Вопрос может показаться нелепым, но...
А вопрос такой:
можно ли программно делать горизонтальный скроллинг подчиненной ленточной формы, например по кнопкам вправо и влево?
Если есть мысли - поделитесь. Буду признателен.
Спасибо.

http://www.sql.ru/forum/1178572/skrolling

Добрый день помогите разобраться
конструкция вида

 Dim IDcontracts As Integer
 Dim u, k, h
    IDkontr = 12
    u = "15"
    k = "24.08.2015"
IDcontracts = DLookup("[ID_contracts]", "td_contracts", "[ID_contractor]=" _
            & IDkontr & " AND [namber_contracts]='" & u & "' AND [date_contracts]=" & Format(k, "dd\/mm\/yyyy"))

нечего не выдает хотя данные в таблице есть (специально вбил для проверки)
[date_contracts] = поле типа дата/время (краткий формат)
[namber_contracts] - текстовое поле

пробовал добавлять кавычки

IDcontracts = DLookup("[ID_contracts]", "td_contracts", "[ID_contractor]=" _
            & IDkontr & " AND [namber_contracts]='" & u & "' AND [date_contracts]='" & Format(k, "dd\/mm\/yyyy") & "'")

непомогает.
пробовал и без формата (с кавычками и без)
Как правильно прописать условие?
вот так работает

IDcontracts = DLookup("[ID_contracts]", "td_contracts", "[ID_contractor]=" _
            & IDkontr & " AND [namber_contracts]='" & u & "'")

http://www.sql.ru/forum/1178561/nerabotaet-dlookup

Поставили задачу поменять кодировку с Кириллицы (1251) на Юникод (UTF-8) в mdb (Access 2000).

Пока нашел выход - выгрузил в текстовый, поставил UTF-8, потом загрузил из текстового. Сработало.
Но надо чтоб перекодирование постоянно делал пользователь. Есть ли пути попроще?

http://www.sql.ru/forum/1178552/kak-pomenyat-kodirovku-s-kirillicy-1251-na-unikod-utf-8-v-mdb-access-2000

Необходимо, чтобы в форме для удаления записи происходил запрос пароля и только после его правильного ввода разрешалось произвести удаление записи.
И еще, как можно запретить паролем изменение в записи, но всех полей. Например, поле1 можно изменять в любом случае, а поле 2 только после ввода пароля.

http://www.sql.ru/forum/1178535/udalenie-zapisi-tolko-posle-vvoda-parolya

Имеется код для формы с помощью, которого при внесении в поле "№паспорта" , если таковой уже имеется в БД, заполняются остальные поля автоматически по крайней записи.
Нужно, чтобы одно из полей (ПРИМЕЧАНИЕ) заполнялось не по крайней записи данного паспорта, а по первой записи данного паспорта.

Private Sub серия_№_паспорта_AfterUpdate()
Dim НАБОР_ЧЕЛОВЕК As DAO.Recordset
       Set НАБОР_ЧЕЛОВЕК = CurrentDb.OpenRecordset("SELECT * FROM Таблица1 WHERE [серия № паспорта]='" & Me.серия_№_паспорта & "' ORDER BY Код DESC")

    If Not НАБОР_ЧЕЛОВЕК.EOF Then
        Me.ФИО = НАБОР_ЧЕЛОВЕК("ФИО")
        Me.Дата_рождения = НАБОР_ЧЕЛОВЕК("Дата рождения")
        Me.Адрес_регистрации = НАБОР_ЧЕЛОВЕК("Адрес регистрации")
        Me.Примечание = НАБОР_ЧЕЛОВЕК("Примечание")
    End If
    НАБОР_ЧЕЛОВЕК.Close
    Set НАБОР_ЧЕЛОВЕК = Nothing
End Sub

http://www.sql.ru/forum/1178534/zapolnenie-poley-po-ranee-sushhestvuushhey-zapisi-bazy-dannyh

Разрабатываю приложение Access 7/10. В нем таблица с полями

id             счетчик
description текст

Понятно, что id - первичный ключ. Добавляю 5 записей. Потом их удаляю. Все ОК, теперь таблица пустая.
Теперь пытаюсь добавить запись в пустую таблицу. Бац - а значение id равно 6 (т.е. следующее значение, не смотря на то, что таблица почищена). Пробую через SQL

DELETE * FROM table

Никакого эффекта - нумерация id начинается с 6. Когда буду отдавать приложение заказчику он резонно спросит "А где номера с 1 по 5 вкл.?" Научите, как восстановить счетчик, пожалуйста.

http://www.sql.ru/forum/1178508/sbrosit-znachenie-pervichnogo-klucha-s-tipom-schetchik-v-1

Добрый день! Нужна ваша помощь.
Есть на форме access listbox (список) в котором 6 столбцов. Теперь вопросы:

1) Как мне с помощью VBA добавить запись с 6 полями.
Делаю так, но это только заполняет 1 столбец, как остальные заполнить? (не вижу метода list (1,2) и т.д. )

Me.Список.AddItem "значение"

2) Например мне нужно в списке поменять значение. т.е в 3 строчке во 2 столбце поменять значение поставить например =10. Как это сделать?

http://www.sql.ru/forum/1178446/kak-dobavit-znachenie-v-listbox-v-accesse-cherez-vba

Не нашел как это сделать

strSQL = "SELECT " & Sample & " FROM [02Шаблоны]"
Set rst = dbs.OpenRecordset(strSQL)
With rst
    .Edit
    '![Sample_Front] = Me.Parent.[02Шаблоны].Form![Sample].Value
    .Update
End With

Можно ли имя поля [Sample_Front] таблицы заменить на переменную? Как выглядит запись в этим случае?

http://www.sql.ru/forum/1178423/obratitsya-k-polu-tablicy-cherez-peremennuu

На форме лежат две подчинённые формы.
Как из одной подчинённой формы дать команду другой подчинённой форме перейти на новую запись?

DoCmd.GoToRecord , , acNewRec

--------------------------------------------------------------------------
СПС

http://www.sql.ru/forum/1178413/perehod-na-zapis-novoy-stroki

Добрый день, есть всплывающая форма, задаю ей позицию-размеры

Private Sub Form_Open(Cancel As Integer)
DoCmd.MoveSize 300, 1350, 4550, 10080
End Sub

Все работает нормально.

Загоняю в mde-runtime - открываю базу на втором (!) мониторе - всплывающая форма позиционируется на первом.
Это как-то лечится?

http://www.sql.ru/forum/1178367/pozicionirovanie-vsplyvaushhey-formy-v-runtime

Есть база где 6 таблиц с 3 полями дата\время\значение есть 7 запросов где из этих таблиц вытягивается значение по заданной дате\времени, совмещаю все 7 в один для отчета, ошибка "сложный запрос" как-бы так упростить и сделать в одном запросе выборку на 7 значений по времени
Вот один пример одного из запросов:

+

SELECT [Журнал (Фильтр)].КПП, [Канал 12].Значение AS [Значение 12], [Канал 13].Значение AS [Значение 13], [Канал 10].Значение AS [Значение 10], [Канал 2].Значение AS [Значение 2], [Канал 6].Значение AS [Значение 6], [Канал 8].Значение AS [Значение 8] FROM [Канал 12], Канал 13], [Канал 8], [Канал 10], [Канал 2], [Канал 6], [Журнал (Фильтр)] WHERE ((([Канал 12].Дата)=[Журнал (Фильтр)]![Дата1]) AND (([Канал 12].Время)=[Журнал (Фильтр)]![время5]) AND (([Канал 13].Дата)=[Журнал (Фильтр)]![Дата1]) AND (([Канал 13].Время)=[Журнал (Фильтр)]![время5]) AND (([Канал 10].Дата)=[Журнал (Фильтр)]![Дата1]) AND (([Канал 10].Время)=[Журнал (Фильтр)]![время5]) AND (([Канал 2].Дата)=[Журнал (Фильтр)]![Дата1]) AND (([Канал 2].Время)=[Журнал (Фильтр)]![время5]) AND (([Канал 6].Дата)=[Журнал (Фильтр)]![Дата1]) AND (([Канал 6].Время)=[Журнал (Фильтр)]![время5]) AND (([Канал 8].Дата)=[Журнал (Фильтр)]![Дата1]) AND (([Канал 8].Время)=[Журнал (Фильтр)]![время5]));

А это запрос в отчете где ошибка:

+

SELECT [Запрос нейтр].*, [Запрос 1пх].*, [Запрос 2пх].*, [Запрос 3пх].*, [Запрос 1зх].*, [Запрос 2зх].*, [Запрос 3зх].* FROM [Запрос нейтр], [Запрос 1пх], [Запрос 2пх], [Запрос 3пх], [Запрос 1зх], [Запрос 2зх], [Запрос 3зх];

Вот форма где задаю значения

http://www.sql.ru/forum/1178261/vopros-zapros

Ms.Access 2013. Только осваиваю.

Есть таблицы

- Страны (id(int,AI);Name(str)) - просто названия стран

заполнена как
1;Россия
2;США

- Деньги (id(int,AI);Страны->id(связь,Int),Name(str)) - название денег в странах

заполнена как
1;1;Рубль
2;1;Копейка
3;2;Доллар
4;2;Цент

- Основная: Монеты (id(int,AI);Name(str);Страны->id(связь,Int)) - названия монет и страны

заполнена как (пишу id, не отображения)
1;Монета1;1
2;Монета2;2
3;Монета3;1
4;Монета4;2

Вопрос: Как в т.Монеты добавить поле "Название денег->Name", опираясь на id Страны из этой таблицы?

Подробнее.

Вот есть 3 таблицы, заполнил первые 2, создал 3, связал поля с первыми двумя, все работает. Теперь нужно, чтобы в т.Монеты появилось 4е поле, которое предоставляло выбор в зависимости от того, что выбрали в поле 3. Т.е. выбираем Россия получаем выбор из рублей и копеек, выбрали США, выбираем между доллар и цент. Никак не получается сделать связями. Можно последовательность действий описать или скрин как сделать или где почитать? И возможно ли это вообще?

Спасибо.

http://www.sql.ru/forum/1178252/dobavlenie-v-tablicu-podstanovki-iz-dvuh-svyazannyh-tablic