Господа, уже долгое время мучаюсь над тем : как подключиться к базе access mbd через интернет используя MS Remote.
IIS сервер запущен. версия 5.1
система win xp sp3
Использую следующее соединение:

adoConn.Open "Provider=MS Remote;" & _
"Remote Server=http://192.168.1.1;" & _
"Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=mybase.mdb;"

adoRst.Open "tab1", adoConn
после чего получаю ошибку: Run-time error: -2147024891 (80070005): Непредвиденная ошибка (0х80070005)

единственное изменение на что реагирует: это если указать неправильный адрес сервера, тогда пишет что не может подключиться к серверу! На все остальные изменения - реакция одна и та же: непредвиденная ошибка !

Может нужно сам IIS сконфигурировать правильно ?? У меня токое ощущение что он к серверу подключается а дальше ничего не видит, и базу тоже...
Как настроить IIS? куда нужно разместить файл базы данных ? Что неправильно делаю ?

http://www.sql.ru/forum/1129938/kak-zhe-vsetaki-poborot

Снова здравствуйте! Помогите пожалуйста, кто знает.
При загрузке отчета, выполняется действие:

If Me!Фиксированный = -1 Then
Me.Подтаблица.SourceObject = "Отчет1"
Else
Me.Подтаблица.SourceObject = "Отчет2"
End If

При этом, подчиненный отчет [Подтаблица] выводится в отчете друг за другом столько раз, сколько записей содержится в ней самой. Не пойму, в чем причина? Как сделать, чтобы подчиненный отчет не повторялся? Спасибо всем, кто отзовется.

http://www.sql.ru/forum/1129935/kak-obezvredit-dublirovanie-podchinennogo-otcheta

Попробую спросить тут.
Есть таблица:
Текст имя_файла
Необходимо получить:
Текст имя_файла содержимое_файла


Файлов прилично, более 500, они текстовые. Можно ли такое провернуть каким-нибудь образом?

http://www.sql.ru/forum/1129896/excel-schitat-soderzhimoe-fayl-v-yacheyku-lista

Здравствуйте!
При открытии основного отчета, его свободный подчиненный отчет должен заполнится одним из источников (отчет1 или отчет2) в зависимости от параметра "Фиксированный" (да/нет):

Private Sub Report_Load()

If Me!Фиксированный = -1 Then
Me!Подтаблица.SourceObject = Report.Отчет1
Else
Me!Подтаблица.SourceObject = Report.Отчет2
End If

End Sub

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

http://www.sql.ru/forum/1129895/kak-zadat-obekt-istochnik-dlya-podchinennogo-otcheta

Доброго времени суток.

MS Access 2003.

Необходимо создать запрос, который для указанного интервала выводит список всех дат, включая обозначенные граничные значения. Т.е. к примеру, для диапазона с 01.01.2014 по 05.01.2014 в списке должны присутствовать записи:

Ожидаемый результат
01.01.2014 02.01.2014 03.01.2014 04.01.2014 05.01.2014

В таблице tbChecks дате начала дипазона соответствует поле In, а дате конца диапазона - поле Back. Поскольку встроенных функций, выполняющих нужную мне операцию я не нашёл, то пришлось вспоминать VBA и писать пользовательскую функцию:

Option Compare Database
' Get the array of dates which are located in the range start_date to end_date.
' The result is an array of Date items.
Public Function GetDays(start_date As Date, end_date As Date)

If start_date > end_date Then
 ' end_date can't be less than start_date.
 GetDays = Null
 Exit Function
End If

Dim result() As Date
ReDim result(end_date - start_date + 1) ' including the range boundaries.

For i = start_date To end_date Step 1
    Dim n As Long
    n = i - start_date
    result(n) = i
Next i

    GetDays = result
End Function

SQL запрос выглядит следующим образом:

SELECT tbChecks.CheckId, tbChecks.[In], tbChecks.Back, GetDays([In],[Back]) AS Days FROM tbChecks;

Однако в поле Days я получаю #Ошибка в качестве значения. Правильно ли я понимаю, что в SQL запросах Access пользовательской функции запрещается возвращать массивы значений? Или же я напортачил в коде функции? Если второй вариант, то буду признателен за подсказку.

Спасибо.

http://www.sql.ru/forum/1129826/poluchenie-spiska-dat-dlya-zadannogo-intervala

Может кто помнит:пример по созданию Treeview (в БД что-то связанное со словом "zavod")

http://www.sql.ru/forum/1129808/nuzhna-ssylka

Приветствую, Форумчане!

Имеется ТЗ: создание и хранение исходящих писем в Акцессе с генерацией в Ворде...

Т.е. печатается текст письма в поле Мемо, потом нужно текст перевести в Ворд со форматированием абзацев.

Сейчас у меня только такие мысли:

В шаблоне Ворд делаю метки для 1, 2, 3, 4, 5 абзацев. Соответственно будет 5 полей мемо для этих абзацев. Сам шаблон будет закрыт для редактирования текста, но будет возможность его форматирование (болды, подчеркивания и т.д.)

Наверно есть метод форматирования абзацев через Акцесс.

Посоветуйте, может есть другие методы, более оптимальные?

http://www.sql.ru/forum/1129774/dokumentooborot-sozdanie-i-hranenie-pisem-posovetuyte

Здравствуйте, при открытии формы не отображается элемент дерево. На всех комп. видно,а на 1 нет. Подскажите в чем может быть дело?

http://www.sql.ru/forum/1129770/ne-otobrazhaetsya-element-tree

у нас, например, сделано так:
_ ФИО - в файле на одном компутере,
__ адреса(фио) на другом(в одном здании),
_ половая ориентация - на третьем(в другом здании),
__ остальные данные - в соседней деревне

Форум читал, поиском пользоваться умею, и т.п.

Очередная попытка изобрести велосипед - функция TableDefsRefreshLink()
вызывать ее можно из макроса автозапуска или из splash-формы

Option Compare Database
Option Explicit

Public Function TableDefsRefreshLink()
    Dim a As Variant, b As New Collection
    ' пробегаемся по всем связанным таблицам
    For Each a In f1()
        If a(2) Then ' не открылась таблица
            ' пробуем прилинковать из уже имеющихся путей
            If Not f3(a, b) Then ' не получилось
                ' почему?
                If a(3) Then
                    MsgBox "нет файла " & a(1) & " для таблицы '" & a(0) & "'"
                Else
                    MsgBox "нет таблицы '" & a(0) & "' в файле " & a(1)
                End If
                'добавляем новый путь
                b.Add f2(a)
                ' и пробуем прилинковать заново
                If Not f3(a, b) Then
                    'если не получилось - Quit
                    MsgBox "в выбранном файле '" & b(b.Count) & "' нет таблицы '" & a(0) & "', продолжение невозможно"
                    Quit
                End If
            End If
        End If
    Next
End Function

Private Function f1() As Collection
    Dim a As New Collection
    With CurrentDb.OpenRecordset("SELECT ForeignName, Database FROM msysobjects WHERE Database Is Not Null;", dbOpenForwardOnly)
        While Not .EOF
            a.Add Array(!ForeignName.Value, !Database.Value, f5(!ForeignName.Value), Not CBool(Len(Dir(!Database.Value))))
            .MoveNext
        Wend
        .Close
    End With
    Set f1 = a
End Function

Private Function f2(a) As String
    Dim b As FileDialog
    Static c As String
    If Len(c) = 0 Then c = CurrentProject.Path & "\"
    Set b = FileDialog(msoFileDialogOpen): With b
        .InitialFileName = c
        .InitialView = msoFileDialogViewList
        .AllowMultiSelect = False
        .Title = "Выберите файл с таблицей '" & a(0) & "' (исх.путь:" & a(1) & ")"
        .Filters.Clear
        .Filters.Add "Access Databases", "*.mdb"
        .Filters.Add "All Files", "*.*"
        If .Show = True Then
            c = f4(.SelectedItems(1))
            f2 = .SelectedItems(1)
        Else
            MsgBox "файл не выбран, продолжение невозможно"
            Quit
        End If
    End With: Set b = Nothing
End Function

Private Function f3(a, b) As Boolean
    Dim c As Variant, d As String
    With CurrentDb
        For Each c In b
            With .TableDefs(a(0))
                If Len(d) = 0 Then d = .Connect
                .Connect = Replace(d, a(1), c)
                On Error Resume Next
                    .RefreshLink
                    If Err.Number = 0 Then
                        f3 = True
                        Exit Function
                    End If
                On Error GoTo 0
            End With
        Next
    End With
End Function

Private Function f4(a As String) As String
    f4 = Left(a, InStrRev(a, "\"))
End Function

Private Function f5(a As String) As Boolean
    Dim b As Recordset
    On Error Resume Next
        Set b = CurrentDb.OpenRecordset(a)
        f5 = CBool(Err.Number)
        Set b = Nothing
    On Error GoTo 0
End Function

http://www.sql.ru/forum/1129753/avtomaticheskaya-perelinkovka-svyazannyh-tablic-tabledefs-refreshlink

Господа вопрос тем кто ловит тренд. Я ранее хорошо дружил с аксом, потом забросил

Волнует ряд вопросов (восполнить немного за время что пропустил)

1. как мелкомякие планируют развитие и поддержание платформы? Или всех на вижуал студио хотят пересадить?
2.Какая версия акса наиболее стабильна? На какой стоит строить свою систему?
2. Будет ли например приложение написанное в 2010 функционировать в более современных версиях?(слышал что формы хотели убрать)
4. Беспокоют метания мелкомягких сначала лилеили дао, потом адо, потом снова дао. Сейчас есть подвиги к новой технологии доступа к данным ?
3.Волнует вопрос стоит ли сейчас создавать приложение , возможно коммерческое, распространяемое на аксе? Или посмотреть на другие технологии

Акс импонирует лекгой связью с ексель и быстротой разработки - это главные критерии его выбора. В качестве самой базы планирую мускул через odbc.

http://www.sql.ru/forum/1129703/stoit-li-svyazyvatsya-s-aksesom

Доброго времени суток уважаемые, прошу сразу не пинать.
Есть таблица в аксе, в которой ship - уникальные значения, все остальные записи могут повторяться.
Задача в следующем, время от времени, из Екселя необходимо подгружать данные, в которых могут попадаться строки, которые уже есть в таблице акса, необходимо что бы эту строку пропускало , и брало следующую строку из екселя.

+

во вложении набросал маленький пример

http://www.sql.ru/forum/1129698/dobavlenie-dannyyh-v-tablicu-iz-excel

a-2007
при попытке установить ссылку на DAO ругается (другие 4, выбранные наугад библиотеки подключает без проблем)

http://www.sql.ru/forum/1129697/biblioteka-dao

Доброе время суток всем. Помогите, пожалуйста, разобраться с отбором данных. Есть 3 таблицы: Вид_Работ, Изделия и Чертеж. Создаю форму, на ней 3 поля со списком. В поле "Вид_Работ" выбираю ,к примеру, "Шлифовка". Затем перехожу в поле "Изделия". Но при его открытии вижу полный список изделий, а не только те которые изготовляются шлифовкой. Про третье поле и разговора нет. Мудрил с конструктором запросов. Подозреваю, что в конструкторе (поле "Условие отбора") нужно как-то обозначить это условие, но... Подскажите, если можно.

http://www.sql.ru/forum/1129681/trudnosti-s-posledovatelnoy-vyborkoy

И снова здравствуйте.
У меня маленькая картинка текущего изделия находится в правом верхнем углу экрана.
Создана с использованием "Рисунок". Access 2007.
Необходимо по нажатию на эту картинку развернуть ее на больший размер на переднем плане.
Нажимаю, разворачивается на переднем плане по отношению ко всем объектам, кроме подчиненной формы.
Подчиненной форме задал "на задний план" - результат тот же.
Картинке дважды задал "на передний план" - результат тот же.
Скрывать подчиненную форму нельзя.
Пока уменьшаю ширину подчиненной формы, но это мне не нравится.
Что делать?

http://www.sql.ru/forum/1129625/kartinka-zakryvaetsya-podchinennoy-formoy

В таблице имеются поля "Описание" и "Сумма"

Поле "Описание" содержит предложение: По пункту реализации А84К сумма безналичных расчетов составила 18.00 рублей

Необходимо в поле "Сумма" вытащить часть текста "18.00" из поля "Описание".

Не в форме, не в отчете, а именно в ТАБЛИЦЕ.
Подскажите как это сделать, при условии что размерность суммы неизвестна, т.е. может быть 18.00, или 188.15, или 8845.99 и т.д.
Спасибо

http://www.sql.ru/forum/1129616/chast-teksta-v-znachenie-polya

Здравствуйте, скажите пожалуйста как получить имя файла, если известен полный путь к нему? (путь+имя+расширение)

http://www.sql.ru/forum/1129592/imya-fayla

Здравствуйте. Есть несколько "заковыристых" вопросов по Access, на к-рые мне требуется ответить.
1. Пусть БД содержит две таблицы Клиенты и Заказы. Клиент может разместить много заказов, однако заказ может принадлежать только одному клиенту. Каждая таблица имеет поле CustomerID. Что следует сделать для того, чтобы избежать удаления записи клиента, для к-рого имеются данные по заказам в таблице Заказы? - "обеспечение целостности" же, нет?
2. В свойстве Данные для поля в форме было введено выражение. Какой код ошибки должен появиться, если имя поля в выражении не совпадает с именем поля в таблице или запросе, служащем источником записей для этой формы? - ну там появляется #Имя?, и что это должно значить?
3. Для подзаголовка формы используется эл-т управления надпись. Как изменить программным образом текст, который выводится в надписи? - что может подразумеваться под словами "программным образом"? Скрипт MySQL, код на VBA или ещё что-то?

http://www.sql.ru/forum/1129554/glupye-voprosy-po-access

Переделал ключи TipPS_id и Id с длинного целого на код репликации и запрос теперь не работает.
Прошу помочь исправить ошибку


...WHERE TipPS_id=" & Id

http://www.sql.ru/forum/1129477/where-s-kodom-replikacii

Добрый день. Подскажите, пожалуйста, насколько реально (и если да, то как) вставить в форму объект SmartArt типа иерархической структуры (как схема подчиненности отделов предприятия, например)? Вставка SmartArt есть в ворде, экселе, пауерпойнте - а в Access хоть убейся не вижу такого. И поиск по данному форуму по слову SmartArt ничего не дал...
Суть вопроса в том, что мне необоходимо вставить в форму древовидную схему типа иерархии, и сделать ее обновляющейся согласно вводимых в форму данных. Ничего более умного, чем использование для этих целей объекта смартАрт и заполнения его программно - не вижу. Может, кто-нибудь подскажет другой подходящий вариант, буду признателен.

http://www.sql.ru/forum/1129422/obekt-smartart-v-formu-access-2010

Добрый день
помогите разобраться почему слетает акс при обработке цыклов (при обработке 1370 записи с рекордсета accounts )

ctime = Now()


    'create acc table
    sk = "select distinct history.ATTRIB_45 into accounts from history order by history.ATTRIB_45"   'таблица 37 000 записей + в рекордсете рс от силы еще на каждую запись с accounts максимум 150 записей
    DoCmd.RunSQL sk
    
With CurrentDb
    
    Set accounts = .OpenRecordset("accounts")
    Do Until accounts.EOF
    acc = accounts.Fields("ATTRIB_45")
    
    Set rs = .OpenRecordset("select history.S_DATE, history.ATTRIB_45, history.BUCKET from history where history.ATTRIB_45 = '" & acc & "' order by history.S_DATE")
    i = 0

     Do Until rs.EOF
       i = i + 1
       If i = 1 Then bucket_cur_step = rs.Fields("BUCKET"): bucket_pr_step = rs.Fields("BUCKET"): data_pr_step = rs.Fields("S_DATE")
       If bucket_cur_step = rs.Fields("BUCKET") Then GoTo next_ Else bucket_cur_step = rs.Fields("BUCKET"): data_cur_step = rs.Fields("S_DATE")

            Set rs2 = .OpenRecordset("temp")
            rs2.AddNew
            rs2.Fields("begin_date") = data_pr_step
            rs2.Fields("ATTRIB_45") = acc
            rs2.Fields("begin_date_next") = data_cur_step
            rs2.Fields("BUCKET") = bucket_pr_step
            rs2.Fields("BUCKET_next") = bucket_cur_step
            rs2.Update
            rs2.Close
        
       bucket_pr_step = bucket_cur_step
       data_pr_step = data_cur_step
        
next_:
        rs.MoveNext
        Loop
        
        rs.MoveLast
        bucket_cur_step = rs.Fields("BUCKET")
        data_cur_step = rs.Fields("S_DATE")
        
        Set rs2 = .OpenRecordset("temp")
        rs2.AddNew
        rs2.Fields("begin_date") = data_pr_step
        rs2.Fields("ATTRIB_45") = acc
        rs2.Fields("begin_date_next") = data_cur_step
        rs2.Fields("BUCKET") = bucket_pr_step
        rs2.Fields("BUCKET_next") = bucket_cur_step
        rs2.Update
        rs2.Close
        
    rs.Close
        
        accounts.MoveNext
        Loop
        
        accounts.Close
End With

http://www.sql.ru/forum/1129362/sletaet-aks-pri-pri-obrabotke-zapisey-v-rekordsete