Импорт из XML ??? |
|
Проверять открыт ли файл |
DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, "Report1.pdf", True
|
Как удалить ОШИБОЧНЫЙ АРГУМЕНТ |
http://www.sql.ru/forum/1075797/kak-udalit-oshibochnyy-argument
|
Не работает OLE |
|
Программное открытие файла mdb в Excel 2010 без выбора источника данных |
автор |
---|
РабочаяКнига = СоздатьОбъект("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 файла |
http://www.sql.ru/forum/1075745/oshibka-redaktirovaniya-mdb-fayla
|
Ограничение вставки из MSA2003 в Excel2003 через CopyFromRecordset |
'Формируем рекордсет из таблицы отчет 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 --------------------------- ОК --------------------------- |
http://www.sql.ru/forum/1075681/ogranichenie-vstavki-iz-msa2003-v-excel2003-cherez-copyfromrecordset
|
Подсчет заявок в месяц |
SELECT Month(Заявки.[Дата поступления заявки в ДКР]) AS M, COUNT(Заявки.[Дата поступления заявки в ДКР]) AS CON FROM Заявки GROUP BY Заявки.[Дата поступления заявки в ДКР];
|
Как обновить зависимые поля |
|
Очень медленно загружается в сети |
+ |
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
|
как сохранить строку подключения |
http://www.sql.ru/forum/1075580/kak-sohranit-stroku-podklucheniya
|
Задание на периодичность |
|
Обновление списка на форме при добавлении данных в другую не связанную форму |
... Forms![ДокументыОбъекта]![СписокДокументов].Requery ...выдается ошибка: не удается найти указанную форму ДокуметыОбъекта. Конечно, если перезапустить форму , выбрать на ней из списка объект, то новый документ появится, но юзерам не хочется перезапускать форму, что понятно. Объекты выбираются в поле со списком, для которого написан простой обработчик нажатия:
СписокДокументов.RequeryНо это если на одной форме...
|
База данных прием на работу |
|
Опубликовать отчет в формате PDF средствами VBA |
http://www.sql.ru/forum/1075398/opublikovat-otchet-v-formate-pdf-sredstvami-vba
|
Как избавиться от конфликта записи??? |
http://www.sql.ru/forum/1075393/kak-izbavitsya-ot-konflikta-zapisi
|
ODBC подключение: предварительно проверить возможности коннекта |
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 |
http://www.sql.ru/forum/1075367/preobrazovanie-tipov-dannyh-pri-svyazi-aksess-s-sql-server
|
Как запустить макрос созданый в xls |
http://www.sql.ru/forum/1075339/kak-zapustit-makros-sozdanyy-v-xls
|
Вызвать из кода VBA мастер импорта/связывания таблиц и вернуть значение созданной таблицы |
|