В одной форме нужно создать ActiveX-контрол, но не для всех пользователей, а чтобы если UserIDActiveX=True, то ActiveX-контрол д.б. живой, у остальных не живой соответственно.
Нужно только 4-м людям в офисе поставить библиотеку, а остальным она не нужна.
Т.е. как обойти "Отсутствует объект в данном элементе управления".
Никак не соображу ...

Вот это не помогает:

Private Sub Form_Open(Cancel As Integer)
 If  UserIDActiveX=True Then
  AVAYAConnectorForm1.ConnectToAVAYA
 Else
  AVAYAConnectorForm1 = Nothing
 End If

http://www.sql.ru/forum/1205539/activex-no-ne-dlya-vseh-polzovateley

коллеги,
в combobox access 2007 фильтруется список как то непонятно ... простейший комбо - по таблице клиентов ... открываю список и начинаю ввод - по первым буквам список фильтруется ... но!!! некоторые - ок, некоторые - нифига ... проверил по буквам - всё хорошо, дошел до кодов букв ,ну, если вдруг латинские перемешались - нет, все русские ... МУП "Надежда" - находит, а вот ОАО "Мегафон" - нет ... доходит до ОАО "Ростелеком", а при введении буквы "м" - всё, не видит ...
подскажите, куда искать причину ..?

http://www.sql.ru/forum/1205328/v-combobox-filtruetsya-spisok-kak-to-neponyatno

Здравствуйте. Есть БД SQL server+Access 2013. К БД обращаются примерно 150 пользователей. на компьютерах пользователей установлен не полный аксесс, а Runtime. При работе периодически возникают ошибки - иногда даже при запуске приложения. При этом Runtime закрывается с критической ошибкой. Можно ли записать в отдельную таблицу код и описание ошибки при её возникновении чтобы при необходимости выгрузить записи и посмотреть, что у кого произошло? как это можно сделать? В БД я сделал отдельную таблицу для этих записей: Ошибки(КодЗаписи, КодОшибки, дата, пользователь). Помогите пожалуйста.

http://www.sql.ru/forum/1205251/zapis-koda-oshibki-bd-v-tablicu

Доброе время суток! В организации в которой я работаю есть электронная очередь компании ДАМАСК. Сервер всё хранит в БД Access. Там есть такая таблица process формат такой: ДатаВремя(2015-05-01 10:52:15) , номерБилета(20150501_00001), событие(число), и прочие не имеющие отношение к вопросу.

Выглядит примерно так:
"2015-05-01 10:52:15" "20150501_00001" "14" ...
"2015-05-01 11:08:34" "20150501_00001" "2" ...

Событие 14 это начало обслуживания, событие 2 это конец обслуживания
Задача состоит в том чтобы ЗАПРОСОМ подсчитать число билетов, обслуживание которых заняло меньше 15 минут
Ну или хотя-бы вывести в виде таблицы:
номер_билета начало обслуживания конец обслуживания

Спасибо за помощь.

http://www.sql.ru/forum/1205230/sostavit-pravilno-zapros

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

Пытаюсь сделать проверку логина и пароля в Access через VBA с использованием запросов.
Нужно чтобы выводило по логину и паролю получало id.

По нажатию на кнопку авторизации должна происходить проверка. Если логин и пароль есть в таблице Пользователи, то авторизация проходит успешно, но если логин или пароль с ошибкой, то при выполнении SQL запроса через VBA выскакивает ошибка "Run-time error 3021, Текущая запись отсутствует".

Пытался бороться с ней проверяя значение rst!result_2, но возникает тогда другая ошибка - Run-time error '424', Object required

Помогите пожалуйста разобраться.

Dim rst As DAO.Recordset
Dim log As String
Dim pass As String

        log = Me.username
        pass = Me.password
        
        Set rst = CurrentDb.OpenRecordset("SELECT Пользователи.id AS result_2 FROM Пользователи WHERE Пользователи.Логин = '" & log & "' AND Пользователи.Пароль='" & pass & "';")
        'выше возникает ошибка 3021, а ниже проверка и если она присутствует, то выдает ошибку 
            If (rst!result_2 Is EOL) Then
                t_ans = 0
                MsgBox "Ошибка авторизации"
            Else
                t_ans = rst!result_2
            End If
            
            rst.Close
        Set rst = Nothing

http://www.sql.ru/forum/1205202/oshibka-run-time-error-3021

В команде TransferSpreadsheet
expression.TransferSpreadsheet(acExport, SpreadsheetType, TableName, FileName, HasFieldNames, Range, UseOA)
хотелось бы задать FileName значением из формы, как это можно сделать?

http://www.sql.ru/forum/1205174/kak-vvesti-v-komandu-transferspreadsheet-peremennye-iz-formy

Регистрация: 10.02.2014
Сообщений: 2
Сегодня, 18:13 Access выдает ошибку application-defined or object-defined error [В закладки] [Плавающее окно] #1 (permalink)
Доброго времени суток!!!
Прошу помощи ибо поиск по форуму так и не помог(((
При выполнении кода access вот так ругается "application-defined or object-defined error"

http://www.sql.ru/forum/1205168/access-vydaet-oshibku-application-defined-or-object-defined-error

В базе используется текст в кодировке UTF-8.
Надо вывести результат запроса в файл, но текст в УТФ отображает знаками вопроса.

Private Sub button01_Click()
    'delete old filedata
    Call ClearTablesRef
    'link new file
    Call LinkSchema
    '
End Sub


Function LinkSchema()
   Dim db As Database, tbl As TableDef, filename As String, rst As Recordset, arr()
      Set db = CurrentDb()
   Set tbl = db.CreateTableDef("SourceData")
   ' Append selection of any file through a dialog box
   filename = "Asci.txt"
   Call SchemaIniCreate(filename)
   ' Connect to the data source file
   tbl.Connect = "Text;DATABASE=" & CurrentProject.Path & ";TABLE=" & filename & ""
   tbl.SourceTableName = filename
With db.TableDefs
    .Append tbl
    .Refresh
End With
    ' Find error in file
    strSql = "SELECT SourceData.pid, SourceData.Sname, SourceData.Fname, SourceData.fday " & _
    "FROM SourceData GROUP BY SourceData.pid, SourceData.Sname, SourceData.Fname, SourceData.fday " & _
    "HAVING ((Count(*) Mod 2)=1)"
    
    Set rst = db.OpenRecordset(strSql)
        If rst.RecordCount > 0 Then
           Call ErrLogCreate(funMsgListRecord(strSql))
           Call MsgBox("Import with errors!", vbCritical, "ERRORS!")
         
    End If
    
    
  
End Function

' Create schema.ini for .csv or .txt file
' If the column names, number of columns, or type columns of data will be changed - edit this part of the code.
Function SchemaIniCreate(filename As String)
    Dim create_file_name As String
    create_file_name = CurrentProject.Path & "\schema.ini"
    Open create_file_name For Output As #1
    Print #1, "[" & filename & "]"
    Print #1, "Format = Delimited(;)" 'IN USE. Use only one!
    'Print #1, "Format = Delimited(,)" 'Use only one!
    Print #1, "MaxScanRows = 0"
    Print #1, "ColNameHeader = False"
    Print #1, "CharacterSet = 65001"
    Print #1, "DecimalSymbol = ."
    Print #1, "CurrencyDecimalSymbol = ."
    Print #1, "Col1=""ouid"" Long Width 10"
    Print #1, "Col2=""did"" Long Width 10"
    Print #1, "Col3=""pid"" Long Width 10"
    Print #1, "Col4=""fday"" DateTime Width 30"
    Print #1, "Col5=""ftime"" DateTime Width 30"
    Print #1, "Col6=""punch"" Byte Width 3"
    Print #1, "Col7=""Sname"" Char Width 100"
    Print #1, "Col8=""Fname"" Char Width 100"
    Close #1
End Function

' Create Error Description
Function funMsgListRecord(ByVal sSQL As String)
Dim rst As DAO.Recordset
Dim sListMsg As String
Dim Output As String

On Error GoTo Err_
    Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenSnapshot)
    With rst
        If Not (.BOF And .EOF) Then
            .MoveLast
            .MoveFirst
            Do Until .EOF
                If sListMsg = "" Then
                    Output = "id:" & !PID & ", Name: " & !Sname & " " & !fname & ", Date:" & !fDay & ""
                    sListMsg = Output
                Else
                    Output = "id:" & !PID & ", Name: " & !Sname & " " & !fname & ", Date:" & !fDay & ""
                    sListMsg = sListMsg & "
" & vbCrLf & Output
                End If
                .MoveNext
            Loop
        End If
        .Close
    End With
    Set rst = Nothing
    funMsgListRecord = sListMsg
Exit Function

Err_:
    MsgBox Err.Description
    Err.Clear
End Function


' Create errorlog.html if .csv or .txt contain error
Function ErrLogCreate(errmsg As String)
    Dim errorlog As String
    errorlog = CurrentProject.Path & "\errorlog.html"
    Open errorlog For Output As #2
    Print #2, ""
    Print #2, "
Errors in the import file:
"
    Print #2, "
" & errmsg & "
"
    Print #2, ""
    Close #2
End Function

В errorlog.html имена юзеров из базы выводит так: ????? ?????

http://www.sql.ru/forum/1205153/vyvod-v-fayl-v-utf-8

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

Прощу вашей помощи.

Организовала форму параметров, где есть параметр даты. к нему хочу привязать календарь .
Создала элемент ActiveX,
Проблема возникла с тем : как обновить значение в поле параметра данными, которые выбрала в календаре .

То есть я создала макрос на элемент ActiveX, он выглядит так :

Private Sub DTPicker1_Updated(Code As Integer)
Form_Обращения.ПрмДата1 = Form_Обращения.DTPicker1
End Sub

Скорее всего я в синтаксисе ошиблась .

Заранее благодарю за помощь !!!!

http://www.sql.ru/forum/1205105/access-kalendar-obnovit-znachenie-polya-k-kotoromu-privyazan-kalendar

Вопрос, наверное, ближе к МС-Скл, перенесите, если не туда:

Есть таблица вида:
PersonalID(таб номер)-pDay(Дата)-pTime(время)-событие-ФИО
Для каждого сотрудника должно быть два события на дату: 1 - вход и 0 - выход.
Как выбрать данные по сотрудникам для которых на один день есть только событие "вход" или только событие "выход"?

http://www.sql.ru/forum/1204974/zapros-dannyh

Здравствуйте уважаемые форумчане.
Мне нужна ваша помощь: дело в том что я ни как не могу создать выпадающий список в подчиненной форме. Все время какие-то ошибки.(
В данном прикрепленном файле, у меня ошибка : Не возможно изменение элемента, присоединенному к полю счетчика.
Просьба исправить и Рассказать где я неправ!

http://www.sql.ru/forum/1204962/sozdanie-podchinnoy-formy

Помогите, пожалуйста, модифицировать код, чтобы вместо ADODB.Recordset и adodb.connection использовались New.ADODB.Recordset и New.adodb.connection соответственно.

Option Explicit
 
Function DataSql(dt_sql)
DataSql = "#" & Format(dt_sql, "mm\/dd\/yy hh\:mm\:ss") & "#"
End Function
 
Function GetAccessConnect(FilePath As String)
Dim sCon As String, strMyDBPassword As String
Set GetAccessConnect = CreateObject("adodb.connection")
strMyDBPassword = "642531"
With GetAccessConnect
    .CursorLocation = 3
    sCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
    sCon = sCon & FilePath & ";Jet OLEDB:Database Password=" & strMyDBPassword & ";"
 
 
    .Open sCon
End With
End Function
 
Sub test55()
Set Cn = GetAccessConnect(ThisWorkbook.Path & "\data.accdb")
Set Rs = CreateObject("ADODB.Recordset")
End Sub
 
Function GetRs(Cn, sstr)
Set GetRs = CreateObject("ADODB.Recordset")
GetRs.Open sstr, Cn, 3, 3
End Function

http://www.sql.ru/forum/1204869/zamena-adodb-recordset-na-new

Методом recordsetclone вставляю в подчиненную форму запись. Потом её редактирую руками и выскакивает сообщение, что эту запись изменил другой пользователь. После закрывания окна могу редактировать. Раньше не было этой ошибки. Участок этого кода не менял. Ошибка выскакивает на лицензионном аксе. На другом не выскакивает.

Может какие-то особенности имеет метод recordsetclone ?

http://www.sql.ru/forum/1204832/redaktirovanie-zapisi-v-forme-posle-vypolneniya-recordsetclone-oshibka

Добрый день. Помогите пожалуйста решить одно задание. Есть счёт. Их много. Задача состоит в том, что надо импортировать в Access. Всё вроди не сложно, но надо импортировать толка те полосы, когда в столбе "H" есть слово "Tunni". Слово "Tunni" не всегда в одном месте, иногда выше, иногда ниже. Также может быт одна полоса с таким словом, иногда много. Также может быть каждая вторая такая полоса, системы нету. Я пытаюсь с DoCmd.TransferSpreadsheet acImport.... , но как описать то, что меня интересуют толка конкретные полосы со словом "Tunni"?

http://www.sql.ru/forum/1204831/import-v-access-po-ukazannomu-usloviu

Добрый день.

Есть таблица вида:
Год - ФИО - Сумма
2010 - Иванов - 2000
2012 - Петров - 2500
...
2016 - Антонов - 2200

И таких записей большое количество. Нужно же вывести список по 10 строк с каждого года с наибольшими суммами.

http://www.sql.ru/forum/1204827/zapros-s-sortirovkoy

Добрый день!

Есть проблема с завершением процесса Excel после считывания данных с листа из Access. Перечитал кучу форумов наших и не наших, но решения так и не нашлось. Что бы я ни делал ничего не помогает. Привожу пример кода, может у кого-то появятся свежие идеи:

Public Sub Open_Click()

Dim dlgOpenFile As Object
Dim OTT As Variant
Dim sFile As String
Dim oXL As Excel.Application, oWB As Excel.Workbook, oWS As Excel.Worksheet 

Set oXL = CreateObject("Excel.Application")

Set dlgOpenFile = Application.FileDialog(3)
  With dlgOpenFile
      .Filters.Add "Файлы Excel", "*.xls, *.xlsx, *.xlsb, *.xlsm", 1
      .InitialFileName = CurrentProject.Path
      .AllowMultiSelect = False
      .Title = "Выберите файл"
          If (.Show = -1) And (.SelectedItems.Count > 0) Then
            sFile = .SelectedItems(1)
          End If
  End With
Set dlgOpenFile = Nothing
 
If sFile = "" Then
    Exit Sub
End If

Set oWB = oXL.Workbooks.Open(sFile)
Set oWS = oWB.Sheets(1)

OTT = oWS.Range(oWS.Cells(1, 1), oWS.Cells(500, 30))

Set oWS = Nothing
oWB.Close
Set oWB = Nothing
oXL.Quit
Set oXL = Nothing

http://www.sql.ru/forum/1204718/problema-s-zaversheniem-processa-excel

Добрый день, подскажите где собственно ошибка синтаксиса?
incorrect syntax near ','.

Set cnRecordset = cn.Execute("Update dbo.DogovorPlan Set Year= " & Y & " ,kod_25='" & kod25 & "',kod_usluga='" & usluga & "',kod_urovuslug='" & urov & "',kod_12='" & kod12 & "',kod_52='" & kod_52 & "',kod_33='" & kod33 & " ', " _
& " kod_39='" & kod39 & "',kod_47='" & kod47 & "',kod_103='" & kod103 & "',kod_24='" & kod24 & "',kod_AFE='" & AFE & "',kod_Cdelka='" & cdelka & "',kod_StatBud='" & sbud & "',kod_edizm='" & edizm & "',cost='" & cost & "',coefficient='" & coef & "', " _
& " volume01 ='" & v01 & "',volume02='" & v02 & "',volume03='" & v03 & "',volume04='" & v04 & "',volume05='" & v05 & "',volume06='" & v06 & "',volume07='" & v07 & "',volume08='" & v08 & "',volume09='" & v09 & "',volume10='" & v10 & "',volume11='" & v11 & "', " _
& " volume12='" & v12 & "',sum01='" & s01 & "',sum02='" & s02 & "',sum03='" & s03 & "',sum04='" & s04 & "',sum05='" & s05 & "',sum06='" & s06 & "',sum07='" & s07 & "',sum08='" & s08 & "',sum09='" & s09 & "',sum10 ='" & s10 & "',sum11='" & s11 & "',sum12='" & s12 & "',totalVolume='" & totalv & "', " _
& " totalSum='" & totals & "',kod_kurator ='" & kurat & "',kod_manager='" & manag & "',type_activ='" & activ & "',Kod_18='" & kod18 & "',nameUslugi='" & nameUs & "',kod_upr='" & upr & "',kod_13='" & kod13 & "',recoverable='" & recover & "',numberLot='" & lot & "',ZKprotocol='" & zk & "',procNDS='" & nds & "', " _
& " NumDogKurator='" & dkur & "' , valuta='" & valuta & "' where dbo.DogovorPlan.idPlan='" & idp & "' ")

http://www.sql.ru/forum/1204695/oshibka-sintaksisa

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

http://www.sql.ru/forum/1204684/eto-prosto-kapec-ya-polnyy-tormoz

Записи в запросе-источнике отсортированы по первому полю, структура такая:
ААА, ппп, ррр,......
ААА, ггг, шшш....
ААА, иии, ььь...
БББ, жжж, ппп...
...................
нужно получить результат:
ААА, ппп & ррр & ггг & шшш & иии & ььь & ....
БББ, , жжж, ппп...
запутался в Do While, For... и т.п.

http://www.sql.ru/forum/1204679/pomogite-s-f-ciey-otbora-dannyh-zadolbalsya

Всем доброго времени суток!
Сегодня после обновления у всех пользователей на работе корпоративной WINDOWS 7 Prof
перестал запускаться mde клиент, у которого подключен DAO 3.6
В MDB все работает хорошо, и mde делается, но после запуска mde выдает ошибку - "Error accessing file. Network connection may have been lost".
Офис 10-й, 32-разрядный
DAO лежит в C:\Program Files (x86)\Common Files\microsoft shared\DAO
Заново регистрирую resvr32.exe. Регистрация проходит успешно, но mde выдает ту же ошибку
Если перекладывать файл DAO360.dll в любой другой каталог, в mdb его подключить не получается
Заранее всем спасибо!

http://www.sql.ru/forum/1204563/ne-rabotaet-dao36-v-mde-access-2010