Поддержка Вид

LiveInternetLiveInternet

сменить

Авось из (+ сутки) дневников

Записи Друзья Комментарии

rss sql ru access programming rss sql ru access programming

Аватар rss_sql_ru_access_programming

-Поиск по дневнику

-Подписка по e-mail

-Постоянные читатели

Apelsinkou

-Статистика

Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4

Отчеты:
Посетители
Поисковые фразы

Invalid link!

Добавить любой RSS - источник (включая журнал LiveJournal) в свою ленту друзей вы можете на странице синдикации.

Исходная информация - http://www.sql.ru/forum/actualtopics.aspx?bid=4.
Данный дневник сформирован из открытого RSS-источника по адресу http://www.sql.ru/forum/actualrss.aspx?id=4, и дополняется в соответствии с дополнением данного источника. Он может не соответствовать содержимому оригинальной страницы. Трансляция создана автоматически по запросу читателей этой RSS ленты.
По всем вопросам о работе данного сервиса обращаться со страницы контактной информации.

[Обновить трансляцию]

Комментарии (0)

Вычисляемое поле

Воскресенье, 01 Ноября 2015 г. 20:36 + в цитатник

Добрый вечер!
Можете помочь мне с таким заданием: мне нужно сделать так, чтоб вычисляемое поле созданное в форме/запросе отобразилось в самой таблице. Например, у меня есть есть таблицы Билеты и Поезд, в первой есть количество билетов, во второй стоимость билета...в запросе или форме получается вычислить поле Итого, а в таблице нет. Как это сделать? Буду очень благодарна за помощь!))

http://www.sql.ru/forum/1182818/vychislyaemoe-pole

Комментарии (0)

Вставка значения текстовой переменной

Воскресенье, 01 Ноября 2015 г. 19:38 + в цитатник

Создал контекстное меню для поля формы. При выполнении процедуры получаю текстовую переменную myStr.

    Dim strSQL As String
    Dim myStr As String
    strSQL = "SELECT Номер FROM Шеф"
    myStr = CurrentProject.Connection.Execute(strSQL).GetString(adClipString, , , , "")

Подскажите, как в это поле можно вставить значение myStr?

http://www.sql.ru/forum/1182814/vstavka-znacheniya-tekstovoy-peremennoy

Комментарии (0)

Приложению Microsoft Access не удается добавить все записи в запросе на добавление

Воскресенье, 01 Ноября 2015 г. 18:06 + в цитатник

Добрый вечер, помогите, пожалуйста, исправить ошибку.
Изначальный sql код
INSERT INTO Доставка
SELECT Доставка.КодДоставки, Доставка.КодНазвание, Доставка.Телефон
FROM Доставка
WHERE (((Доставка.КодДоставки)>10000) AND ((Доставка.КодДоставки) Is Not Null));

После моих небольших изменений стало выглядеть это так
INSERT INTO Доставка ( КодДоставки, Название, Телефон )
SELECT Доставка.КодДоставки AS КодДоставки, Доставка.Название AS Название, Доставка.Телефон AS Телефон
FROM Доставка
WHERE (((Доставка.КодДоставки)>1 And (Доставка.КодДоставки) Is Not Null));

Мне Access стал выдавать ошибку(фото ниже)
Собственно что это за ошибка такая и с чем её едят?

http://www.sql.ru/forum/1182800/prilozheniu-microsoft-access-ne-udaetsya-dobavit-vse-zapisi-v-zaprose-na-dobavlenie

Комментарии (0)

Не отрабатывается параметр в функции

Воскресенье, 01 Ноября 2015 г. 13:18 + в цитатник

Добрый день.
Вызываю в процедуре функцию, передаю ей параметр - не работает.
Останавливаю функцию - параметр передается, но не отрабатывается. Уходит все время на True.
Причем если задавать параметр текстовым, то все работает. Если тип любой другой - не работает.
Что делаю не так?

Option Compare Database
Option Explicit
Dim Color_FT As Boolean

Private Sub FT_OD_1_Enter()
Color_FT = True 
Call ColorFT(Color_FT)
End Sub

Private Sub FT_OD_2_Enter()
Color_FT = False
Call ColorFT(Color_FT)
End Sub

Public Function ColorFT(Color_FT As Boolean)
Select Case Color_FT
Case Color_FT = False
...
Case Color_FT = True
...
End Select
End Function

http://www.sql.ru/forum/1182776/ne-otrabatyvaetsya-parametr-v-funkcii

Комментарии (0)

Помогите идеями.

Воскресенье, 01 Ноября 2015 г. 10:58 + в цитатник

Задача:
В коде хранить текстовую информацию и по необходимости выводить её в отчёт (на печать).
Информации может быть на два листа книжного формата.
Эту информацию порой править, в ней краткие справочные данные по работе с формой.
--------------------------------------------------------------------------
Почему так?
Файл с таблицами отделён от файла с кодом программы.
Внося правки в файл с кодом, необходимо менять файл справки. Рассылать файл справки на места ни кто не хочет.
--------------------------------------------------------------------------
Какие вы можете предложить варианты реализации.

http://www.sql.ru/forum/1182758/pomogite-ideyami

Комментарии (0)

Помогите составить SQL-запрос

Суббота, 31 Октября 2015 г. 21:14 + в цитатник

Добрый день!
Поправьте пожалуйста мой запрос (выдает ошибку):

SELECT T1.*, T2.* FROM
(SELECT DISTINCT Город FROM Таблица) AS T1,
(SELECT * FROM NEW TABLE ( INSERT INTO 'Месяц' VALUES ( 'январь', 'февраль', 'март', 'апрель' ) ) ) AS T2
ORDER BY T1.Город, T2.Месяц

Поясню:
1) Запрос обращается к файлу Access и достает список городов
2) запрос формирует таблицу с комбинациех всех возможных значений город / месяц. При этом, названия месяцев в файле Access не хранятся, мы их руками прописываем в запросе.

То есть на выходе должна получится таблица:

Город	месяц
Москва	январь
Москва	февраль
Москва	март
Москва	апрель
Киров	январь
Киров	февраль
Киров	март
Киров	апрель

Помогите пожалуйста!

http://www.sql.ru/forum/1182721/pomogite-sostavit-sql-zapros

Комментарии (0)

Может кто нибудь конвертнуть файл в Access 2003

Суббота, 31 Октября 2015 г. 17:49 + в цитатник

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

http://www.sql.ru/forum/1182701/mozhet-kto-nibud-konvertnut-fayl-v-access-2003

Комментарии (0)

Хелп ми!!!!!

Суббота, 31 Октября 2015 г. 10:25 + в цитатник

Форумчани и Форумчанки!!!!
В екселе делал расчёт рулонных штор, все нормально работало, но захотелось что большее с обменом с разными офисами. Друг надоумил на Аксес. Но как перенести это всё на Аксес, не хватает тяму. Не могу понять и найти очевидную вещь, но от неё все и пляшет.
1) Есть курс доллара
2) Ткани (стоимость, ширина, высота)
3) Несколько систем (ВПР, ЕСЛИ)
4) 5 видов Систем
5) Расход материалов (стоимость, ширина, высота)

Ввожу ширину высоту (как сделать что бы подставились размеры в другой таблице с материалами?)
Заранее благодарен

http://www.sql.ru/forum/1182662/help-mi

Комментарии (0)

Access mdb из Excel2010, странная ошибка

Пятница, 30 Октября 2015 г. 19:04 + в цитатник

Пытаюсь открыть базу Access mdb из Excel2010 и получаю странную ошибку:

автор
Supplied provider is different from the one already in use.

Гугление ошибки не помогло.

Код примитивен:

          ConStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFullName & ";Persist Security Info=False;"
          Set cn = CreateObject("ADODB.Connection")
          cn.Open ConStr

Путь до файла правильный. Нифига не понимаю..

http://www.sql.ru/forum/1182611/access-mdb-iz-excel2010-strannaya-oshibka

Комментарии (0)

Ctrl-F и #

Пятница, 30 Октября 2015 г. 16:40 + в цитатник

Всем доброго вечера пятницы ...

Народ, как в табличке искать обычным вводом с клавиатуры через Ctrl-F
строки формата ABCD#EFGH ?

Стандартно они не ищутся ...

http://www.sql.ru/forum/1182588/ctrl-f-i

Комментарии (0)

Ввод значения из формы в таблицу

Пятница, 30 Октября 2015 г. 14:17 + в цитатник

Всем привет!

Возможно мои рассуждения вам покажутся глупыми-прошу сильно не ругать, но с любовью исправлять. Я только начал осваивать Acces и еще многого не понимаю.

Вопрос вот в чем: у меня есть форма с подчиненной формой, созданной на основании таблицы 1, связанной с таблицой 2 типом связи "1 ко многим" (вроде так называется. Выглядит так: 1->). Таблица 1 используется в основной форме, Таблица 2 в подчиненной.

В подчиненной форме используются расчеты, для которых в ней создано Поле 2.

Эти расчеты записываются в основную форму в Поле 1 используя выражение "=[расчет подчиненная форма].Form!Поле2".

Далее мне эти данные(из Поля 1) нужно записать в Таблицу 1 в Поле 3.
Как это сделать?

http://www.sql.ru/forum/1182555/vvod-znacheniya-iz-formy-v-tablicu

Комментарии (0)

Деление значения на 2 при вводе в форму

Пятница, 30 Октября 2015 г. 11:03 + в цитатник

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

Задача:Есть значение например 10, я ввожу 10, а оно автоматически делится на 2 и заносится в базу как 5.

Пробовал в форме поискать такую функцию, не нашел, в аксессе не очень силен.

Помогите пожалуйста.

http://www.sql.ru/forum/1182506/delenie-znacheniya-na-2-pri-vvode-v-formu

Комментарии (0)

Пропадают данные

Пятница, 30 Октября 2015 г. 07:56 + в цитатник

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

У меня один вопрос, на сервере лежит сама база данных. Оператор вводит данные как обычно, успевает еще и распечатать для клиента квитанцию. Но пару раз случилось так (хотя и очень редко), что потом этих введенных данных не оказалось в базе, речь идет о 2-3 записях.
Как так может произойти, что были данные и их больше нет? Сервер временами может падать незаметно или в Access мною не учтен какой-то момент?

http://www.sql.ru/forum/1182480/propadaut-dannye

Комментарии (0)

Программное перемещение панелей инструментов по вертикали

Четверг, 29 Октября 2015 г. 18:34 + в цитатник

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

Есть пользовательское меню и две панели инструментов.
Меню закреплено сверху.
Под ним – последовательно первая и вторая панели инструментов.
Возник вопрос: возможно ли программно поменять местами эти панели, если да, то как?

Присвоение новых значений свойствам CommandBar.Top результата не дает –
ошибки не возникает, но и значения не меняются.

Тогда пробую так (код под спойлером).

+

 Dim CmdBar01 As CommandBar, _
     CmdBar02 As CommandBar
 Set CmdBar01 = CommandBars("Tools_T1")
 Set CmdBar02 = CommandBars("Tools_T2")
 
' Начальное состояние пользовательского меню
 CommandBars("Menu_M").Protection = msoBarNoChangeDock
 CommandBars("Menu_M").Position = msoBarTop
 
' Начальное состояние первой панели инструментов
 CmdBar01.Protection = msoBarNoProtection
 CmdBar01.Position = msoBarTop
 
' Начальное состояние второй панели инструментов
 CmdBar02.Protection = msoBarNoProtection
 CmdBar02.Position = msoBarTop
 
' Начальные положения панелей инструментов по вертикали
 Top1 = CmdBar01.Top
 Top2 = CmdBar02.Top
 
' Открепляем панели инструментов
 CmdBar01.Position = msoBarFloating
 CmdBar02.Position = msoBarFloating
 
' Панели инструментов меняются между собой положением по вертикали
 CmdBar01.Top = Top2
 CmdBar02.Top = Top1
 
' Вторую панель инструментов переводим вверх. Встает, как и планировалось, сразу под меню.
 CmdBar02.Position = msoBarTop
 
' Первую панель инструментов переводим вверх. ОЖИДАЛОСЬ, ЧТО ВСТАНЕТ ПОД ВТОРОЙ, НО НЕТ.
' Вытесняет вторую ниже и встает на первоначальное место, сразу под меню.
 CmdBar01.Position = msoBarTop

Смотрю последовательно по шагам – все идет, как надо, но последний шаг перечеркивает все достижения.

Можно ли как-то это выполнить?
Именно программно. Иные способы мне известны, но пока интересует этот.

http://www.sql.ru/forum/1182411/programmnoe-peremeshhenie-paneley-instrumentov-po-vertikali

Комментарии (0)

PostgreSQL + DAO транзакция - теряются изменения

Четверг, 29 Октября 2015 г. 14:56 + в цитатник

Добрый день, коллеги.

Переезжаем с Аccess на PostgreSQL. Вроде бы всё работает на первый взгляд удовлетворительно, но в одном месте наткнулся на опасную ошибку. При использовании транзакции код отрабатывает без ошибок, но запись в таблице не появляется! Поскольку транзакции используются в коде повсеместно, очень опасная тенденция. Код VBA такой

Set wrkW = DBEngine.Workspaces(0)
  wrkW.BeginTrans
  On Error GoTo Err_1
'изменение в таблице СчетаДанные
  Set tb1 = CurrentDb.OpenRecordset("СчетаДанные")
  
  If Me.OpenArgs = "ADD" Then
    NomSF = NextNumId(6)
    If NomSF = -1 Then Err.Raise vbObjectError + 513, , "Неверный Id"
    tb1.AddNew
    tb1!Id = NomSF
  Else
    tb1.FindFirst "Id=" & Forms("фрмСчетаДанные")!Id
    If tb1.NoMatch Then
      MsgBox "Ошибка: не найдена запись в таблице СчетаДанные", vbCritical
      Exit Sub
    End If
    tb1.Edit
  End If
  
'Обновление полей аля 
'tb1!ЦенаПрайс = ПолеЦенаПрайс
'tb1!ЦенаПрайс2 = ПолеЦенаПрайс2
'tb1!ЦенаПрайс3 = ПолеЦенаПрайс3
  tb1.Update 
'Если сюда вставить wrkW.CommitTrans то запись в таблице благополучно появится.

'изменение в таблице Счета
CurrentDb.Execute "UPDATE Счета SET UpdateDate=Now(), UpdateUserID=" & GetGeneralParams(1) & " WHERE Id=" & Forms("фрмСчета")!Id, dbFailOnError
  
  wrkW.CommitTrans 
  wrkW.Close
'После этого комита, запись в таблице Счета обновляется, но записей о добавлении записи в СчетаДанные нет

В этом месте транзакция не критична, но в большинстве других мест это не так. Не понятно, почему пропадает часть изменений и как отследить, что записи не пропадают? Потому как в некоторых местах без специального исследования и не поймёшь, что что-то пошло не так и часть данных пропала по дороге. В другом месте нормально отрабатывали гораздо более длинные транзакции, но там были только рекордсеты, я так понимаю всё портит CurrentDb.Execute... Возможно, там не такой коннект как у СurrentDb.OpenRecordset, но я не уверен

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

В общем, мистика и жёпа - на дебаг всех форм и всех транзакции уйдут остатки молодости, нужно искать корень и системное решение.

http://www.sql.ru/forum/1182357/postgresql-dao-tranzakciya-teryautsya-izmeneniya

Комментарии (0)

Как в Access 2007 и старше показать скрытые окна?

Четверг, 29 Октября 2015 г. 11:04 + в цитатник

В 2003 было всё просто. В командной строке выбираешь пункт "Окна", и дальше выбираешь то что надо. В 2007 никак не могу это сделать. Несколько раз всю ленту пересмотрел. Никак найти не могу.

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

http://www.sql.ru/forum/1182299/kak-v-access-2007-i-starshe-pokazat-skrytye-okna

Комментарии (0)

INSERT INTO..(SELECT..UNION ALL)

Четверг, 29 Октября 2015 г. 10:22 + в цитатник

Добрый день!
Помогите пожалуйста с запросом

INSERT INTO TempВопрос ( IdВопрос, НомерВопроса, Вопрос, IdПравОтвет, НомерПравильныйОтвет, idСтудент )
SELECT Вопросы.IdВопрос, Вопросы.НомерВопроса, Вопросы.Вопрос, Вопросы.IdПравОтвет,Вопросы.НомерПравильныйОтвет,Вопросы.idСтудент
FROM
(SELECT TOP 4 *,Вопросы.IdВопрос, Вопросы.НомерВопроса, Вопросы.Вопрос, Вопросы.IdПравОтвет, Вопросы.НомерПравильныйОтвет, 116 as idСтудент FROM Вопросы WHERE Вопросы.id_RD = 1
ORDER BY rnd(INT(NOW*Вопросы.IdВопрос)-NOW*Вопросы.IdВопрос)
UNION ALL
SELECT TOP 3 *,Вопросы.IdВопрос, Вопросы.НомерВопроса, Вопросы.Вопрос, Вопросы.IdПравОтвет, Вопросы.НомерПравильныйОтвет, 116 as idСтудент FROM Вопросы WHERE Вопросы.id_RD = 2
ORDER BY rnd(INT(NOW*Вопросы.IdВопрос)-NOW*Вопросы.IdВопрос)
) AS Вопросы;

Выдает ошибку
В выражении ORDER BY rnd(INT(NOW*Вопросы.IdВопрос)-NOW*Вопросы.IdВопрос) включены поля, не отобранные запросом.Выражение ORDER BY может содержать только поля, затребованные первым запросом.

первый select отрабатывает хорошо с rnd, а на втором выдает ошибку.

http://www.sql.ru/forum/1182285/insert-into-select-union-all

Комментарии (0)

Отчет из перекресного отчета

Четверг, 29 Октября 2015 г. 09:23 + в цитатник

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

http://www.sql.ru/forum/1182276/otchet-iz-perekresnogo-otcheta

Комментарии (0)

ACCESS 2016

Среда, 28 Октября 2015 г. 23:49 + в цитатник

Кто нибудь пробовал на живых проектах?
Как оно?

http://www.sql.ru/forum/1182254/access-2016

Комментарии (0)

как пронумеровать таблицу

Среда, 28 Октября 2015 г. 23:04 + в цитатник

Доброго времени суток! Подскажите пожалуйста как пронумеровать строки существующей таблицы через запрос (обновление) в акцессе. Существует оператор проставления порядкового номера? Заранее благодарен!

http://www.sql.ru/forum/1182250/kak-pronumerovat-tablicu

Страницы: 353 ... 171 170 [169] 168 167 .... 1 Календарь

LiveInternet

О проекте