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

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

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

Импорт из XML ???

Четверг, 06 Февраля 2014 г. 17:27 + в цитатник
Ребят объясните пожалуйста как DoCmd.TransferSpreadsheet работает?
Не могу разобраться.

Хочу что бы данные импортировались в таблицу. Прикрепил импартируемый файл.
Заранее спасибо.


******
Чудесен и миркантилен рванными мыслями мир!

http://www.sql.ru/forum/1075889/import-iz-xml


Проверять открыт ли файл

Четверг, 06 Февраля 2014 г. 16:25 + в цитатник
Добрый день!

Access-2010

Сохраняю отчет из аксеса в файл PDF.
DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, "Report1.pdf", True

Если файл уже открыт возникает ошибка.

Как проверять ситуацию, что файл открыт и закрывать его?

http://www.sql.ru/forum/1075862/proveryat-otkryt-li-fayl


Как удалить ОШИБОЧНЫЙ АРГУМЕНТ

Четверг, 06 Февраля 2014 г. 13:02 + в цитатник
Всем привет! В процессе работы я столкнулся с тем, что сохранил запись, в тот момент, когда она была заблокирована другим пользователем. В результате у меня сохранились записи с ОШИБОЧНЫМ АРГУМЕНТОМ. Вот теперь стоит вопрос: как их удалить эти записи? Стандартными средствами, увы, не получается. Ниже картинка. Вместо аргументов какие-то символы, данные сороки удалить нельзя.

http://www.sql.ru/forum/1075797/kak-udalit-oshibochnyy-argument


Не работает OLE

Четверг, 06 Февраля 2014 г. 12:58 + в цитатник
Здравствуйте.
При ппытке открыть запрос в режиме сводной таблицы появляется сообщение "Потеряна связь с сервером OLE или обнаружена ошибка в его использовании. Перезапустите сервер OLE и повторите операцию".
Подскажите, как перезапустить OlE?

PS. Я на всякий случай сделала "Пуск - Выполнить - Regsvr32.exe "C:\Program Files\Common Files\Microsoft Shared\Triedit\Triedit.dll"" Не помогло.

http://www.sql.ru/forum/1075792/ne-rabotaet-ole


Программное открытие файла mdb в Excel 2010 без выбора источника данных

Четверг, 06 Февраля 2014 г. 10:39 + в цитатник
Здравствуйте.

Я вообще "программист" 1С. Возникла необходимость создания и открытия файла mdb в Excel.
Код (прошу прощение за русскоязычную часть, но я думаю там все понятно):
автор
РабочаяКнига = СоздатьОбъект("Excel.Application");
РабочаяКнига.SheetsInNewWorkbook = 1;
РабочаяКнига.Caption = "Сводная таблица";
NewBook = РабочаяКнига.Workbooks;
List = NewBook.Add;

СтрокаПодключения = "ODBC;DSN=База данных MS Access;DBQ=" + КаталогПользователя() + "sr.mdb;DefaultDir=" + КаталогПользователя();

SQL = "SELECT * FROM [PIVOT]";
Назначение = РабочаяКнига.ActiveSheet.Range("A1");

Если ТЗТаблицы.КоличествоСтрок()>65530 Тогда
Предупреждение("Размер сводной таблицы превышает 65530 строк.",30);
ФС.УдалитьФайл(КаталогПользователя()+"sr.mdb");
Форма.Закрыть();
Возврат;
Иначе
QueryTables = РабочаяКнига.ActiveSheet.QueryTables.Add(СтрокаПодключения,Назначение,SQL);
QueryTables.Refresh(0);
СводнаяТаблица = РабочаяКнига.ActiveSheet.PivotTableWizard;
СводнаяТаблица.SmallGrid = 0;
СводнаяТаблица.Format(1);
КонецЕсли;

РабочаяКнига.Visible = 1;


Суть в чем. Создается файл mdb, а затем открывается в Excel и там создается сводная таблица.
C Excel 2003 никаких проблем нет и все работает замечательно.
А в 2010 просит выбрать источник данных.
Можно этот как то обойти, чтобы Excel сразу открывался?
Мне кажется это как то связано со строкой подключения, а в чем проблема разобраться никак не могу.

http://www.sql.ru/forum/1075758/programmnoe-otkrytie-fayla-mdb-v-excel-2010-bez-vybora-istochnika-dannyh


Ошибка редактирования *.MDB файла

Четверг, 06 Февраля 2014 г. 09:48 + в цитатник
Приветствую!

Подскажите, почему не могу открыть MDB для редактирования (чтения или импорта)
выходит ошибка /i33.fastpic.ru/big/2014/0206/1c/00bce5f772279f0e8e0fe0ec71034a1c.jpg" target="_blank">http://i33.fastpic.ru/big/2014/0206/1c/00bce5f772279f0e8e0fe0ec71034a1c.jpg">

http://www.sql.ru/forum/1075745/oshibka-redaktirovaniya-mdb-fayla


Ограничение вставки из MSA2003 в Excel2003 через CopyFromRecordset

Среда, 05 Февраля 2014 г. 21:58 + в цитатник
Всем привет!
Прошу у знающих консультации.
Есть MDB проект, разделен табличная часть и интерфейс.
Выгружаю данные из MSA в Лист эксель:
'Формируем рекордсет из таблицы отчет
  Dim sNWind1 As String
   
  Dim conn1 As New ADODB.Connection
  Dim rs1 As ADODB.Recordset
     
  sNWind1 = "c:\buh\buh.mdb"
  conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sNWind1 & ";"
  conn1.CursorLocation = adUseClient

Set rs1 = conn1.Execute("otcIM", , adCmdTable)  

'ситаем кол-во строк в запросе otc в БД МСА
  Dim kolStrok As Variant 'количество строк
  kolStrok = DCount("[НомерЗаказа]", "otcIM")
   
'вставка количества пустых строк в эксель, равную kolstrok (строк в запросе otcIM - МДБ)
  Dim i As Integer
      
  xlSheet.Rows("7:7").Select
  xlSheet.Range("A7").Activate
    
  Dim vstavka As Range
  For i = 0 To kolStrok - 3
  xlApp.Selection.Insert Shift:=xlDown
        
  Next i
      
'Экспорт из МСА в Эксель
  xlSheet.Range("6:6").CopyFromRecordset rs1
  xlSheet.Range("Ves").Select
  xlApp.Selection.NumberFormat = "0.00"
  xlSheet.Range("NomZakaza").Select
  xlApp.Selection.NumberFormat = "@"
  xlSheet.Range("DataZakaza").Select
  xlApp.Selection.NumberFormat = "dd/mm/yy"
  xlSheet.Range("oplataRub").Select
  xlApp.Selection.NumberFormat = "#,##0.00$"
  xlSheet.Range("OplStrah").Select
  xlApp.Selection.NumberFormat = "0.00"
  xlSheet.Range("AgentVoznagr").Select
  xlApp.Selection.NumberFormat = "0.00"
  xlSheet.Range("vyruchka_im").Select
  xlApp.Selection.NumberFormat = "0.00"


Есть некое поле под названием Примечание (в МСА). Так вот когда кол-во символов превышает некое кол-во, останавливается вставка и выдает ошибку
автор
---------------------------
Microsoft Office Access
---------------------------
Method 'CopyFromRecordset' of object 'Range' failed
---------------------------
ОК
---------------------------

Как победить? Я знаю, что ограничение на кол-во символов в 1 ячейке у Excel2003:
32767 знаков. В ячейке отображаются только 1024 знака; все 32767 знаков отображаются в строке формул. (нашел тут http://www.excelworld.ru/publ/about_excel/char_and_rest/sheet_char_and_rest/37-1-0-99)
Но у меня точно нет такого кол-ва знаков, знаки вручную вставляются все, а вот через Copyromrecordset - нет...
Подскажите пжл, как быть в такой ситуации...

http://www.sql.ru/forum/1075681/ogranichenie-vstavki-iz-msa2003-v-excel2003-cherez-copyfromrecordset


Подсчет заявок в месяц

Среда, 05 Февраля 2014 г. 18:32 + в цитатник
Хочу подсчитать заявки по месяцам, но не молучатся. Я раньше уже делал, но повторить не получилось.

SELECT Month(Заявки.[Дата поступления заявки в ДКР]) AS M, COUNT(Заявки.[Дата поступления заявки в ДКР]) AS CON
FROM Заявки
GROUP BY Заявки.[Дата поступления заявки в ДКР];

http://www.sql.ru/forum/1075649/podschet-zayavok-v-mesyac


Как обновить зависимые поля

Среда, 05 Февраля 2014 г. 17:45 + в цитатник
Добрый день.

Задача следующая: таблица t с полями id, a, b. В форме открыта запись с определенным id.
Пользователь изменяет в форме значение a и покидает поле a. Программно рассчитывается b = f(a). Далее автоматически в таблице нужно обновить b.

Как в таблице обновить b, чтобы не возникало конфликта доступа?

frgr

http://www.sql.ru/forum/1075638/kak-obnovit-zavisimye-polya


Очень медленно загружается в сети

Среда, 05 Февраля 2014 г. 16:01 + в цитатник
Очень медленно загружается в сети база. На локальном компьютере список очень быстро появляется на экране, а в сети достаточно долго приходится ждать. Не могу понять, сам компьютер виноват, где лежит база или текст запроса очень сложный. Фактически фильтр по месяцу и году идет. И когда в конкретную запись хотят зайти для редактирования, там тоже очень медленно появляется форма на экране.

Текст запроса:
+
SELECT 
konstest.in_date, konstest.nimushis_nomer,
Year([in_date]) AS YY,
Month([in_date]) AS MM,
konstest.out_date, konstest.id_konstest, konstest.id_patient, patients.patient_family, patients.patient_name,
[patient_family] & " " & [patient_name] AS gvarname,
patients.sqesi, patients.mother_name, patients.father_name, patients.birthday, birthday_place.city, patients.piradi_nomeri, patients.piradi_nomeri_other,
IIf(IsNull([piradi_nomeri]),[piradi_nomeri_other],[piradi_nomeri]) AS piradoba,
Left([patient_name],1) & Format(Len([patient_family]),"00") & Left([mother_name],2) & Left([father_name],2) & Format([birthday],"dd") & Format([birthday],"mm") & Format([birthday],"yy") & Left([birthday_place].[city],1) & IIf([sqesi]="mmm","1",IIf([sqesi]="ddd","2","")) AS kodi,
patients.telephone, patients.shenishvna, city.city, konstest.id_organization, organization.organization, konstest.id_consultant,
Left([consultant_name],1) & ". " & [consultant_family] AS consultant,
konstest.id_eqimi_laboranti,
Left([eqimi_laboranti_name],1) & ". " & [eqimi_laboranti_family] AS eqimi,
konstest.test_dadebiti, konstest.test_uarkofiti, konstest.test_ganmeoreba, konstest.chvenebis_kodi, konstest.narkotiki, konstest.seksmushaki, konstest.homobisexual, konstest.riskgroup_other, konstest.cxeleba, konstest.sisuste, konstest.tsonashi_kleba, konstest.oflianoba, konstest.limfadenopatia, konstest.qronikuli_diarea, konstest.filtvebis_anteba, konstest.gamonakari_kanze, konstest.nervuli_sistema, konstest.tavis_tkivili, konstest.symptom_other, konstest.mark_konstest
FROM ((((consultant RIGHT JOIN (city RIGHT JOIN konstest ON city.id_city = konstest.id_city) ON consultant.id_consultant = konstest.id_consultant) 
LEFT JOIN eqimi_laboranti ON konstest.id_eqimi_laboranti = eqimi_laboranti.id_eqimi_laboranti) 
LEFT JOIN organization ON konstest.id_organization = organization.id_organization) 
RIGHT JOIN patients ON konstest.id_patient = patients.id_patient) 
LEFT JOIN city AS birthday_place ON patients.id_city = birthday_place.id_city
ORDER BY konstest.in_date, konstest.nimushis_nomer;

http://www.sql.ru/forum/1075613/ochen-medlenno-zagruzhaetsya-v-seti


как сохранить строку подключения

Среда, 05 Февраля 2014 г. 13:33 + в цитатник
Облегчаю себе жизнь - пишу программу, которая дистрибутив приложения, ACCESS 2007, adp раскладывает по папкам для рассылки на разные площадки. В каждом файле дистрибутива мне нужно прописать строку подключения к SQL SERVERу перед сохранением в папку. Строки подключения разные и на текущей площадке я не могу ко всем подключиться. Как прописать и сохранить строку подключения без фактического подключения к серверу? Метод Application.CurrentProject.OpenConnection stroka как мне кажется не пройдет. А соответствующего свойства, чтобы его можно было сохранить что-то не могу найти

http://www.sql.ru/forum/1075580/kak-sohranit-stroku-podklucheniya


Задание на периодичность

Среда, 05 Февраля 2014 г. 00:43 + в цитатник
Уважаемые знатоки! Прошу помощи ! Обдумываю создание базы данных рецептов, в которой каждому рецепту задана периодичность выполнения (раз в неделю, 2 раза в нед, 1 раз в мес и др, а так же задано время дня(утро,день, вечер). Как сделать так, чтобы после выбора пользователем дней недели, эти рецепты попадали в календарь (как в outlook), но еще и делились по времени дня! Такое вообще, возможно? Я новичок, читала самоучители... Поможет ли мне перекрестный запрос, если в заголовках столбцов выбрать дни недели, а в заголовках строк - время дня( из табл. рецепты) ? В общем :что-то я запуталась...

http://www.sql.ru/forum/1075485/zadanie-na-periodichnost


Обновление списка на форме при добавлении данных в другую не связанную форму

Вторник, 04 Февраля 2014 г. 23:20 + в цитатник
Здравствуйте. Есть БД , в которой есть таблица Документы с полями: код(целое, ключ), НазваниеДокумента, ДатаНачала, ДатаОкончания, Объект(внешний ключ). и таблица Объект:КодОбъекта(ключ), НаименованиеЗаказчика,АдресЗаказчика.... Выбираю запросом документы, относящиеся к определенному объекту и вывожу результат запроса в список на форме. В таблице Документы объект заполняю через поле подстановки. Вопрос вот вчем. Как сделать так, чтобы при добавлении нового документа данные списка обновлялись? конечно же новый документ относится к тому объекту, по которому выводятся ранее записанные в БД документы.
Такой код не проходит:
...
Forms![ДокументыОбъекта]![СписокДокументов].Requery
...
выдается ошибка: не удается найти указанную форму ДокуметыОбъекта. Конечно, если перезапустить форму , выбрать на ней из списка объект, то новый документ появится, но юзерам не хочется перезапускать форму, что понятно. Объекты выбираются в поле со списком, для которого написан простой обработчик нажатия:
СписокДокументов.Requery
Но это если на одной форме...

http://www.sql.ru/forum/1075468/obnovlenie-spiska-na-forme-pri-dobavlenii-dannyh-v-druguu-ne-svyazannuu-formu


База данных прием на работу

Вторник, 04 Февраля 2014 г. 18:23 + в цитатник
Здравствуйте! помогите пожалуйста с созданием базы на диплом. необходимо создать базу данных ОТДЕЛ КАДРОВ для приема на работу. какие таблицы можно взять? у меня есть уже
СОТРУДНИКИ ---заключают ---ТРУДОВОЙ ДОГОВОР
СОТРУДНИКИ ---принят на работу----ПРИКАЗЫ

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

http://www.sql.ru/forum/1075414/baza-dannyh-priem-na-rabotu


Опубликовать отчет в формате PDF средствами VBA

Вторник, 04 Февраля 2014 г. 17:31 + в цитатник
Добрый день!

Access-2010
Подскажите как, опубликовать отчет в формате PDF средствами VBA?

Спасибо!

http://www.sql.ru/forum/1075398/opublikovat-otchet-v-formate-pdf-sredstvami-vba


Как избавиться от конфликта записи???

Вторник, 04 Февраля 2014 г. 17:15 + в цитатник
Как избавиться от конфликта записи???

http://www.sql.ru/forum/1075393/kak-izbavitsya-ot-konflikta-zapisi


ODBC подключение: предварительно проверить возможности коннекта

Вторник, 04 Февраля 2014 г. 16:18 + в цитатник
Приветствую, Форумчане!

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

ConStrMSSQL = "ODBC;Driver=SQL Server;Server=SERVER;Database=TEST;UID=sa;PWD=12345;"
    For Each td In db.TableDefs
        If td.Attributes And dbAttachedODBC Then
            td.Connect = ConStrMSSQL
            td.RefreshLink
        End If
    Next


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

http://www.sql.ru/forum/1075371/odbc-podkluchenie-predvaritelno-proverit-vozmozhnosti-konnekta


Преобразование типов данных при связи Аксесс с SQL server

Вторник, 04 Февраля 2014 г. 16:11 + в цитатник
Здравствуйте. Есть БД на SQL server2008. Пытаюсь импортировать в Аксесс 2013 таблицы через источник. Если тип данных поля на сервере Numeric(18,0), то в Аксесс меняется на обычный числовой вместо Счетчика. Пример таблицы - таблица "Отчет": Номер Отчета(Numeric 18,0), ключевое, Сотрудник(int), Дата(Date). Такую таблицу и импортирую с сервера в аксесс. Номер отчета становится просто числовым и при добавлении нового отчета конечно же возникают ошибки, а вводить номер нового отчета каждый раз с клавиатуры тоже неверно. Как можно решить эту проблему? помогите пожалуйста. Тип данных поля связанной таблицы конструктором менять нельзя.

http://www.sql.ru/forum/1075367/preobrazovanie-tipov-dannyh-pri-svyazi-aksess-s-sql-server


Как запустить макрос созданый в xls

Вторник, 04 Февраля 2014 г. 14:50 + в цитатник
Добрый день!

Редко пользуюсь Access, т.к. не знаком с программированием, но иногда приходиться полазить

Ситуация следующая, по кнопке происходит экспорт отчета из Access в EXCEL, по следующему коду:

Private Sub Кнопка100_Click()
On Error GoTo Err_Кнопка100_Click
Dim stDocName As String
stDocName = "DosingCheckList"
DoCmd.OutputTo acReport, stDocName
Exit_Кнопка100_Click:
Exit Sub
Err_Кнопка100_Click:
MsgBox Err.Description
Resume Exit_Кнопка100_Click
End Sub

При этом в EXCEL не правильно отображается время, необходимо выделять ячейки и менять формат времени. Для этого я записал макрос в EXCEL. Его код следующий:

Sub Data_macros()
'
' Data_macros макрос
' макрос записан 04.02.2014 (Master)
'

'
Columns("A:A").Select
Selection.NumberFormat = "h:mm:ss;@"
End Sub

Вопрос, для программистов, наверно простой, как это дело автоматизировать и выполнять последний макрос непосредственно по кнопке в Access, чтобы в EXCEL уже был нормальный формат даты. Подскажите, если не сложно.
Спасибо.

http://www.sql.ru/forum/1075339/kak-zapustit-makros-sozdanyy-v-xls


Вызвать из кода VBA мастер импорта/связывания таблиц и вернуть значение созданной таблицы

Понедельник, 03 Февраля 2014 г. 22:01 + в цитатник
Господа , как можно такое организовать ?
если с первым еще более понятно,
нужно сделать что то типа выполнить команду меню
- если честно осталась ли в аккес2010 эта функция - хз, да и команду тоже не знаю

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

Подскажите куда копать..

http://www.sql.ru/forum/1075203/vyzvat-iz-koda-vba-master-importa-svyazyvaniya-tablic-i-vernut-znachenie-sozdannoy-tablicy



Поиск сообщений в rss_sql_ru_access_programming
Страницы: 353 ... 15 14 [13] 12 11 ..
.. 1 Календарь