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

Поиск сообщений в rss_sql_ru_access_programming

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

 

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

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 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 ленты.
По всем вопросам о работе данного сервиса обращаться со страницы контактной информации.

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

Заблокировалась База

Пятница, 01 Августа 2014 г. 00:08 + в цитатник
На шаре лежала база в которой работало 8 человек.
Через какое-то время начало вылетать сообщение "База заблокирована админом с такого-то компа"
Что за ерунда? Как ее разблочить в Акссессе 2007 ? Гугли и что-то писали, что нужно зайти в сервис, но я что-то не нашел такой вкладки...
Никто ее не мог специально заблочить.

http://www.sql.ru/forum/1108410/zablokirovalas-baza


Как узнать имя Primary Key у таблицы?

Четверг, 31 Июля 2014 г. 22:10 + в цитатник
Добрый вечер, уважаемые!
Собственно имя знать не обязательно. Нужно сделать выборку из таблиц(ы). Есть таблицы с ключевыми полями.
Известны имена таблиц и список id, по которым нужно сделать выборку.
 
strSQL = "DELETE * FROM " & "TableName" & " WHERE 'ключевое поле' = " & id & ";"

"TableName" - переменная, содержащая имя таблицы
'ключевое поле' у каждой таблицы свое.
Возможно ли это сделать?
Спасибо!

http://www.sql.ru/forum/1108390/kak-uznat-imya-primary-key-u-tablicy


Перекрестный запрос

Четверг, 31 Июля 2014 г. 21:01 + в цитатник
Всем привет!
Прошу помочь, есть таблица с столбцами: ID_код, Тип, Период, Выручка. Нужно сделать перекрестный запрос по двум условиям, чтобы содержание столбцов было следующее: ID_код - заголовок строк, Тип и Период - заголовок столбца, Выручка - значение, т.е. вместо 4 столбцов, должно получиться 2,столбец - ID_код, столбец -Тип и Период. Форум пролистал ничего похожего не нашел
Вроде ничего сложного, да ни как не выходит..(

http://www.sql.ru/forum/1108379/perekrestnyy-zapros


Поле вложения - А2007

Четверг, 31 Июля 2014 г. 18:54 + в цитатник
Привет всем.
Была базка в русском варианте(разбита на 2файла) - работала
попросили меня ее перевести на англ вариант
Вроде всю латилицу поменял, в анг версии не работала, проверил несколько раз - нету кирилицы в коде, переименовал контролы везде.
попытался экспортнуть все в новую базу - не дала. Толи адрес потеряла, толи база открывалась режиме для чтения только.
В общем как решить не нашел - экспортнул с помощью OfficeFix6
Вроде все нормально стало, База работает...
Но остался затык.
В таблице есть поле - вложение
Туда кодом загоняются картинки.
Описал предисторию - может ноги от туда растут, просто не знаю.

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

Ну а старый вариант базы с русским вариантом - все нормально

http://www.sql.ru/forum/1108362/pole-vlozheniya-a2007


Помогите найти ошибку после изменения структуры таблиц в базе

Четверг, 31 Июля 2014 г. 18:19 + в цитатник
Сначала была одна структура. Были сделаны все формы. А потом оказалось, что есть одна заковыка, которую не решить, если не переделать ряд таблиц. Чёрт! Интерфейс помогали делать разные люди. Что-то делалось самостоятельно, а что-то помогали форумчане. И вот есть ошибка одна, которую никак не пойму.

Есть три кнопки, которые:
1) Удаляет запись из таблицы
2) Изменяетя
3) Добавляет новую

Вот код на добавление:
+
Private Sub Кнопка37_Click()
On Error GoTo er1
If Me!spisok1 = 0 Then
MsgBox "Не выбрано Обращение в списке!"
Exit Sub
End If
If Me!sgg = 0 Then
MsgBox "Не выбрана Группа Генов!"
Me!sgg.SetFocus
Exit Sub
End If
If Me!sg = 0 Then
MsgBox "Не выбран Ген!"
Me!sg.SetFocus
Exit Sub
End If
If Me!sa = 0 Then
MsgBox "Не выбран Аллель!"
Me!sa.SetFocus
Exit Sub
End If
If Me!l = 0 Then
MsgBox "Не выбран Лаборант!"
Me!l.SetFocus
Exit Sub
End If

Dim stDocName As String
stDocName = "gen_store"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Me!spisok2.Requery
Me!spisok2 = 0
Me!stoim2.Requery
Me!stoim2 = Me!stoim2.ItemData(0)
Me!ss1 = Me!stoim2.Column(1)
Me!ss2 = Me!stoim2.Column(2)
stDocName = "obr_mod2"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Me!stoim2.Requery
Me!stoim2 = Me!stoim2.ItemData(0)
Me!ss1 = Me!stoim2.Column(1)
Me!ss2 = Me!stoim2.Column(2)
MsgBox "Готово! Первый в списке!"

Exit Sub

er1:
MsgBox "Ошибка добавления Гена!"

End Sub


Я так понимаю, что там запускается два запроса. Сначала gen_store

+
INSERT INTO Заказанные_гены ( ИД_Обращения, ИД_Гена, ИД_Аллеля, ИД_Лаборанта, Примечание_к_заказанным_генам )
SELECT Forms!Address!spisok1 AS Выражение1, Forms!Address!sg AS Выражение2, Forms!Address!sa AS Выражение3, Forms!Address!l AS Выражение4, rest_prim(Forms!Address!pr) AS Выражение5;


а после obr_mod2, который пересчитывает стоимость.
+
UPDATE Обращения SET Обращения.Итого = CDbl(Forms!Address!ss1)+CDbl(Forms!Address!ss2)
WHERE (((Обращения.ИД_Обращения)=[Forms]![Address]![spisok1]));



Структура базы.

+
http://firepic.org/images/2014-07/31/hmdg1324ervt.png


Я могу выложить и базу, но не хотелось бы кидать её в открытый доступ прямо тут.

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

http://www.sql.ru/forum/1108356/pomogite-nayti-oshibku-posle-izmeneniya-struktury-tablic-v-baze


Слишком сложный вопрос

Четверг, 31 Июля 2014 г. 17:46 + в цитатник
Скажите, что сложного в этом запросе
SELECT Заявки.КодКонтрагента, ЗаявкиОперации.КодОперации, Заявки.КодЗаявки
FROM Заявки INNER JOIN ЗаявкиОперации ON Заявки.КодЗаявки = ЗаявкиОперации.КодЗаявки
WHERE (((Заявки.КодКонтрагента)=76) AND ((Заявки.КодЗаявки) Not In (SELECT Меньше.КодЗаявки FROM Меньше)));

Тем не менее, при запуске выдает вот это.
Если из условия отбора убираю Not, работает

http://www.sql.ru/forum/1108350/slishkom-slozhnyy-vopros


Управление отображением строк/ячеек в отчете

Четверг, 31 Июля 2014 г. 16:24 + в цитатник
Подскажите пожалуйста оптимальный для Access способ, которым можно управлять отображением в отчете строк, в зависимости от содержимого ячейки. Скажем - не выводить ячейку или их диапазон, если в заданной ячейке нет данных. Например, на скриншоте нужно чтобы не отображались 2 средние строки, т.к. значения всех ячеек в этих строках, кроме первых двух = NULL.

http://www.sql.ru/forum/1108327/upravlenie-otobrazheniem-strok-yacheek-v-otchete


Вопрос про Like

Четверг, 31 Июля 2014 г. 12:35 + в цитатник
Подскажите плз, можно ли как-то сократить запрос "SELECT * FROM t1 WHERE s LIKE 'a*' AND s LIKE 'b*' AND s LIKE 'cd*' AND s LIKE 'kk*'", где таких LIKE`ов может быть много. Конструкция IN() , по моему, выдает только точное соответствие.

http://www.sql.ru/forum/1108265/vopros-pro-like


сортировка в запросе

Четверг, 31 Июля 2014 г. 11:08 + в цитатник
Здравствуйте. В запросе хочу отсортировать записи по полу "Порядковый_номер", в конструкторе ставлю "по возрастанию", а он мне сортирует вот так:

1
10
11
2
3
.....

Что сделать, чтобы сортировка стала правильной?
Спасибо

http://www.sql.ru/forum/1108242/sortirovka-v-zaprose


Заменить значение в вычисляемом поле

Четверг, 31 Июля 2014 г. 10:51 + в цитатник
Подскажите пож-ста, можно ли реализовать что-то подобное. Есть отчет, в котором с конце стоит вычисляемое поле: =Sum([ValueUSD]).
Скажем, с учетом погрешностей в нем вычисляется значение 44530.29. Есть также "эталонное" значение, например 44530.31, хранящееся в одной из таблиц.

Можно ли "динамически" подставлять эталонное значение (вместо несовпадающего вычисленного) в вычисляемое поле при печати отчета ?
Что-то типа Me.fldTotalSum.Value = 44530.31 (например в блоке If... End If)
, где fldTotalSum имя вычисляемого поля =Sum([ValueUSD])

http://www.sql.ru/forum/1108240/zamenit-znachenie-v-vychislyaemom-pole


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

Четверг, 31 Июля 2014 г. 10:36 + в цитатник
Добрый день.

в access 2007 есть две однотипные таблицы POD И PRO, т.е. с одинаковыми полями -FAM, IM, OT,DR

POD- 7000 записей , PRO- 2000 записей

нужно по 4 полям (FAM, IM, OT,DR) СРАВНИТЬ ИХ И УДАЛИТЬ ИЗ POD ЗАПИСИ СОВПАВШИЕ ИЗ PRO

убился с запросом на удаление- не получается из конструктора

http://www.sql.ru/forum/1108238/pomogite-pozhaluysta-udalit-zapisi-srochno


Создание MDE (формата 2003) в Access 2010

Четверг, 31 Июля 2014 г. 10:21 + в цитатник
Доброе утро,

Есть проблемка - mde созданные в 2003 открываются в 2010, а вот mde созданные в 2010 в 2003 выдают ошибку при запуске, как не распознанный формат данных.

Была база сделанная в 2003, не много ее редактировал в 2010, сохранил как mdb формата 2002-2003, - этот спокойно открывается в 2003, а вот если потом эту базу сохраняю как mde (формат 2000 или 2002-2003), то база не открывается в 2003(


Есть какое нибудь решение?

http://www.sql.ru/forum/1108235/sozdanie-mde-formata-2003-v-access-2010


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

Четверг, 31 Июля 2014 г. 09:43 + в цитатник
Доброе утро!
Имеется база данных Access разделенная на 2 части. Первая часть это формы, запросы, отчеты, вторая часть - таблицы.
Первая находится у каждого пользователя на личном диске. Вторая база с таблицами находится на сетевом.
При подключении более одного пользователя ко второй базе с таблицами, и внесении данных обоими пользователями в одну таблицу, данные сохраняются у первого пользователя, те данные которые вносил второй пользователь перезаписываются.
Подскажите, пожалуйста, как организовать сохранение записей в таблицу, при внесении данных несколькими пользователями.
Заранее спасибо!

http://www.sql.ru/forum/1108229/dobavlenie-zapisey-v-odnu-tablicu-neskolkimi-polzovatelyami


Условие для группировки дат

Четверг, 31 Июля 2014 г. 08:56 + в цитатник
Здравствуйте.
Есть таблица:

КодМагазинаКодТовараДата
110001.06.2014
110002.06.2014
110003.06.2014
110010.06.2014
110011.06.2014
110012.06.2014
110111.06.2014
110112.06.2014
110117.06.2014
210017.06.2014
210018.06.2014
210019.06.2014


Нужно сгруппировать данную таблицу, в такую:

КодМагазина КодТОвара МинДатаМаксДата
110001.06.201403.06.2014
110010.06.201412.06.2014
110111.06.201412.06.2014
110117.06.201417.06.2014
210017.06.201419.06.2014


Т.е. просматривается ряд дат, если он непрерывный - выбирается в нем максимальная и минимальная даты, и вставляются в МинДата и МаксДата соответственно.
В Excele получилось написать, а в Access не понимаю как. Подскажите как выполнить данный запрос?

http://www.sql.ru/forum/1108224/uslovie-dlya-gruppirovki-dat


Изменение значений в таблице в поле по нажатию кнопки

Вторник, 29 Июля 2014 г. 20:59 + в цитатник
Помогите, пожалуйста.

Есть таблица1 с логическим полем Считать. По умолчанию значение задано 1(Да).
В форме есть список с запросом, который выводит для определённого ID значения из таблица1 и так же показывает значения поля Считать.
Можно ли как-то сделать на форме кнопку, чтобы выбранное вручную значение в списке меняло значение с 1(Да) на 0 (Нет) в таблица1 и соответственно в запросе после обновления?

http://www.sql.ru/forum/1107966/izmenenie-znacheniy-v-tablice-v-pole-po-nazhatiu-knopki


Связка AccessXP + Win7. Не могу зарегистрировать RichTextBox

Вторник, 29 Июля 2014 г. 19:45 + в цитатник
Команда
regsvr32 richtx32.ocx
возвращает ошибку, что файл не подходит для этой версии оси.
А вот файл mscomct2.ocx (это в нём контролы Tree, List и прочее) почему-то нормально работает в Win7 даже без регистрации

http://www.sql.ru/forum/1107956/svyazka-accessxp-win7-ne-mogu-zaregistrirovat-richtextbox


Изменение данных через форму

Вторник, 29 Июля 2014 г. 19:22 + в цитатник
Привет всем!
Прошу помочь, имеется таблица, к таблице сделал форму с полями поиска Код, ИНН, Период и т.д. и одно поле Визиты, в которое должны вноситься данные для добавление/изменения. Также область данных вставил подчиненную таблицу. При поиске ИНН выпадает список и по этому списку необходимо всем пометь визиты (через соответствующие поле),т.е. в поле ИНН вбил номер, выпал список(1 до 50) и указав в поле Визиты определенное число + нажал кнопку сохранить, нужно чтобы визиты преставились в подчиненной таблице по всему выбранному списку. Прошу подсказать синтаксис или пример? Заранее благодарю за помощь.

http://www.sql.ru/forum/1107952/izmenenie-dannyh-cherez-formu


Експорт данных из Access в Word

Вторник, 29 Июля 2014 г. 16:06 + в цитатник
Прошу помощи
В форме заведения данных организованы кнопки печати соответствующих шаблонов "ТУ" и "ТУ_В". Проблема состоит в том, что
1) во втором шаблоне (красный блок) не присваивается имя файла (с первым шаблоном такой проблемы нет)
2) не получается правильно указать порядок сохранения в конкретную папку ("z:\Главный инженер\ТУ\ВН").

Function funOutputWord(strPathDot As String, strPathWord As String) As Boolean
On Error GoTo Err_
Dim app As Object
Dim DlgUser As Integer
If Dir(strPathWord) <> "" Then
DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbYesNo, "admin")
If DlgUser = vbNo Then
Set app = CreateObject("Word.Application")
With app
.Visible = True
.Documents.Open strPathWord
End With
Set app = Nothing
Else
GoTo nn
End If
Else
nn:
Set app = CreateObject("Word.Application")
app.Visible = True
app.Documents.Add strPathDot
With app.ActiveDocument
.Bookmarks.Item("абон_пр").Range.Text = Nz(абон_пр, "")
.Bookmarks.Item("абон_ім").Range.Text = Nz(абон_ім, "")
.Bookmarks.Item("абон_пб").Range.Text = Nz(абон_пб, "")
.Bookmarks.Item("нул").Range.Text = Nz(нул, "")
.Bookmarks.Item("номдом").Range.Text = Nz(номдом, "")
.Bookmarks.Item("номкв").Range.Text = Nz(номкв, "")
.Bookmarks.Item("наспункт").Range.Text = Nz(наспункт, "")
.Bookmarks.Item("номту").Range.Text = Nz(номту, "")
.Bookmarks.Item("датавидачту").Range.Text = Nz(датавидачту, "")
.Bookmarks.Item("змістту").Range.Text = Nz(змістту, "")
.SaveAs strPathWord
End With
Set app = Nothing
End If
funOutputWord = True
Exit_:
Exit Function
Err_:
funOutputWord = False
Err.Clear
app.Quit
Resume Exit_
End Function

Private Sub butExit_Click()
DoCmd.Close
End Sub

Private Sub Выключатель150_Click()

End Sub

Private Sub друкту_Click()
Dim strPathDot As String, strPathWord As String
strPathDot = "z:\Dot\ТУ.dot"
strPathWord = "z:\Главный инженер\ТУ\" & [номту] & " " & "від" & " " & [датавидачту] & " " & [нул] & " " & [номдом] & " " & [номкв] & ".doc"
Call funOutputWord(strPathDot, strPathWord)
End Sub


Private Sub друктуВн_Click()
Dim strPathDot As String, strPathWord As String
strPathDot = "z:\Dot\ТУ_В.dot"
strPathWord = "z:\Главный инженер\ТУ\ВН" & [номту] & " " & "від" & " " & [датавидачту] & " " & [нул] & " " & [номдом] & " " & [номкв] & ".doc"
Call funOutputWord(strPathDot, strPathWord)
End Sub

http://www.sql.ru/forum/1107905/eksport-dannyh-iz-access-v-word


Вывод в Excel - выводит со 2-го раза

Вторник, 29 Июля 2014 г. 15:56 + в цитатник
Милые друзья.
Я вывожу в Excel результаты запроса нажатием на кнопку. Кнопка обращается вот к этой функции и передает в нее 4 значения.

Public Function OpenExcel(ЗапросSQL, Путь, ЯчейкиОчистки, ЯчейкаВставки)
Set oWordExcel = CreateObject("Excel.Application")
oWordExcel.Visible = True
Set oDokBook = oWordExcel.Workbooks.Open(Путь)
Set oSheet = oDokBook.Worksheets("Данные")
oSheet.Range(ЯчейкиОчистки).ClearContents
Set DB = CurrentDb()
Set Ist = DB.OpenRecordset(ЗапросSQL)
oSheet.Range(ЯчейкаВставки).CopyFromRecordset Ist
Ist.Close

Set Ist = Nothing
Set DB = Nothing
Set oWordExcel = Nothing
Set oDokBook = Nothing
Set oSheet = Nothing
End Function

Но при открытии в ПЕРВЫЙ раз в Excel ничего не выводится. Но когда я закрываю Excel и снова нажимаю на ту же кнопку, то во ВТОРОЙ раз все нормально выводится.

Видимо, я что-то в самой функции забыла написать, что-то обновить? Ist.Requery не помогает.

Добавлю, что ЗапросSQL звучит как "SELECT * From ПостоянныйЗапрос ". ПостоянныйЗапрос - это запрос, постоянно существующий в базе.

http://www.sql.ru/forum/1107900/vyvod-v-excel-vyvodit-so-2-go-raza


Запрос

Вторник, 29 Июля 2014 г. 12:02 + в цитатник
Добрый день помогите, у меня есть 2 таблицы я хочу сделать запрос из 2 таблиц с фильтром по определенным параметрам:

На данный момент у меня получилось что я с 2 таблиц запросом вывел данные но не пойму как можно с помощью запроса можно разделить по данным:

пробовал ставить условия отбора - Выводит пустые строки
по нескольким таблицам ставить условия отбора не могу так как они могут относится только к одному столбцу.

как правильно написать запрос с фильтром?

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



Поиск сообщений в rss_sql_ru_access_programming
Страницы: 353 ... 68 67 [66] 65 64 ..
.. 1 Календарь