Помогите пожалуйста разобраться, это отчет в Excel,на access2003 работает а 2007 нет,Подскажите в чем проблема?
Private Sub Кнопка31_Click()
On Error GoTo errHandler

Me.Dirty = False
I = 1

Set app = New Excel.Application-выдает ошибку
app.Visible = True
Excel.Workbooks.Open (Replace(CurrentDb.Name, "Отчет", "") & "Отчет.xlt")

Do While IsNull(Me.Наименование) = False
DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, I
Select Case I
Case Is < 36
Excel.Workbooks(1).Worksheets("Передняя сторона").Cells(15 + I, 3).Value = Me.Наименование
Case Is >= 36
Excel.Workbooks(1).Worksheets("Обратная сторона").Cells(2 + I - 35, 3).Value = Me.Наименование
End Select
I = I + 1
Loop

errExit:

Exit Sub

errHandler:
If Err.Number = 2046 Then
Resume Next
End If

End Sub

http://www.sql.ru/forum/1097514/oshibku-vydaet

Всем привет!
У меня следующая проблема:
Есть БД, которая содержит список задач для нескольких ответственных лиц. Есть форма, на которой реализована возможность просмотреть список задач для конкретного лица с помощью нажатия кнопки. Я хочу, чтобы этот список мне выходил в виде таблицы во вновь открывшемся диалоговом окне. И все бы хорошо, если бы не одно "но": это диалоговое окно не вмещает в себя все столбцы таблицы, которая содержит данные и пользователю приходится перемещать ползунок вправо, что ему не хочется да и вообще неудобно.
В свойствах формы, которую необходимо открыть, заданы параметры (см. скрин ниже), которые по моему мнению должны давать возможность окну подстраиваться под размер содержимого или, если этого не произошло, у пользователя должна быть возможность изменить размер этого самого окна. Но опять же, размер окна изменить невозможно...



Открытие формы реализовано с помощью встроенных макрос-команд:



Подскажите, плиз, где рыть проблему?
Спасибо!

http://www.sql.ru/forum/1097511/ne-izmenyaetsya-razmer-dialogovogo-okna-pod-soderzhimoe

можно ли сделать кнопку чтобы при ее нажатии открывалась форма и автоматически добавлялась новая запись?

http://www.sql.ru/forum/1097489/ne-mogu-ponyat

Добрый день!
Возможно ли переделать запрос MS SQL под Access:

SELECT *, Replace((SELECT '->' + Name AS 'data()' FROM Project b WHERE a.ID LIKE b.ID + '%' FOR xml path('')), '->', '->') as STask FROM Project a

у меня в Access ругается на синтаксис
Спасибо.

http://www.sql.ru/forum/1097485/peredelat-zapros-s-ms-sql

Здравствуйте. Возникли некоторые вопросы, надеюсь кто-нибудь поможет.
1) Хранимые процедуры. На серваке лежит процедурка с входящим параметром. В общем-то, это обычная выборка. Так вот, как на VBA вызвать эту процедуру и получить результат? Допустим, она должна возвращать несколько значений из полей таблицы. А эти значения нужно раскидать по текстбоксам. Приведите в качестве примера кусок кода, плиз. Ну, а вот, собственно, процедура (наверное выходные данные надо как-то указать, типа OUT, но я что-то не допер, тыкните плиз носом как правильно составить процедуру):

ALTER PROCEDURE [dbo].[SearchJobless] 
	@PassportSQL nvarchar(255)
        AS
        BEGIN
	SELECT PassportID, PassportDate, PassportPlace, House, Flat, Phone, Birthday, RecordOfService, ReqWage, Experience
	FROM dbo.tblJobless
	WHERE PassportID = @PassportSQL
END

2)Представления. Вопрос тот же: как на VBA работать с лежащим на серваке представлением. Надо как-то передать значение фильтра, а вернуть значения полей и тоже раскидать по текстбоксам, например. Вот пример представления (тоже самое по смыслу как и в процедуре):

SELECT        dbo.tblJobless.PassportID, dbo.tblJobless.House, dbo.tblJobless.Flat, dbo.tblJobless.PassportDate, dbo.tblJobless.PassportPlace, dbo.tblJobless.Birthday, 
              dbo.tblJobless.Phone, dbo.tblJobless.RecordOfService, dbo.tblJobless.Experience, dbo.tblJobless.ReqWage, dbo.tblJobless.NumberOfClasses, 
              dbo.tblJobless.UniversityName, dbo.tblJobless.Workless, dbo.tblJobless.RegistrationDate, dbo.tblCity.CityName, dbo.tblStreet.StreetName, 
              dbo.tblSpecialty.SpecialtyName
FROM       dbo.tblJobless INNER JOIN
              dbo.tblCity ON dbo.tblJobless.CityID = dbo.tblCity.CityID INNER JOIN
              dbo.tblSpecialty ON dbo.tblJobless.SpecialtyID = dbo.tblSpecialty.SpecialtyID INNER JOIN
              dbo.tblStreet ON dbo.tblJobless.StreetID = dbo.tblStreet.StreetID
WHERE        (dbo.tblJobless.PassportID = N'12345678')

Ну, а вот что я сам нагуглил. Это самое адекватное, что удалось найти.

Dim strParam1 As String, lngParam2 As Long
   strParam1 = "Некая строка"
   lngParam2 = 500
   CurrentProject.Connection.Execute "exec [dbo].[ИмяПроцедуры] " & strParam1 & ", " & _
   strParam2, Options:=adCmdText+adExecuteNoRecords 

Но это только вызов, передача параметра. А вот результат не возвращается.
Заранее, спасибо.

http://www.sql.ru/forum/1097475/rabota-s-hranimymi-procedurami-i-predstavleniyami-v-adp-proekte-na-vba

Здравствуйте, на форме есть 2 вкладки: Табличная часть и Печатная часть.
На 1 вкладке подчиненная форма и SourceObject меняется в зависимости от выбора Me.TreeView1.SelectedItem
На 2 вкладке подчиненный отчет и SourceObject меняется в зависимости от выбора Me.TreeView1.SelectedItem

On Error Resume Next
Dim n As String
    n = Me.TreeView1.SelectedItem
    Me.ПодчиненнаяФорма.SourceObject = n
    Me.ПодчиненныйОтчет.SourceObject = n & "_отчет"
    DoCmd.Requery

на 1 вкладке отображаются данные, а на второй-нет. ( в этом месте:Me.ПодчиненныйОтчет.SourceObject = n & "_отчет" n="")

http://www.sql.ru/forum/1097468/otchet-na-vkladke

Добрый день, подскажите если создавал проект на 32битном аксессе будет ли он работать на 64битном? и может ли быть связана с этим ошибка из вложения

http://www.sql.ru/forum/1097459/access-32-i-64-bitnyy

В форме уже существует фильтр, есть записи в котором надо подсчитать количество записей со значением `Да`, то есть надо дополгительно включить условие в =Count([Sumsale])

Как же подсчитать колличество поставленных галочек, то есть как вы видите на рисунке: помечены 3 галочки а в сумме получается 6, то есть как добавить условие сюда : =Count([Sumsale]) чтоб в сумме получилось 3

http://www.sql.ru/forum/1097338/kak-podschitat-tolko-te-zapisi-gde-est-da

В форме уже существует фильтр, есть записи в котором надо подсчитать количество записей со значением `Да`, то есть надо дополгительно включить условие в =Count([Sumsale])

Как же подсчитать колличество поставленных галочек, то есть как вы видите на рисунке: помечены 3 галочки а в сумме получается 6, то есть как добавить условие сюда : =Count([Sumsale]) чтоб в сумме получилось 3

http://www.sql.ru/forum/1097334/vyborka-bez-zaprosov-v-forme

Приветствую всех!

Что-то совсем не могу сообразить. Есть папка на сервере, в ней куча подпапок, каждая из которых содержит некоторые файлы. Мне нужно из каждой папки скопировать по два файла, имена которых совпадают с именем папки (расширения соответственно разные) в одну новую папку на сервере. Использую следующий код:

Public Sub OrtoPhoto()

Dim strCurrPatchOut As String, strCurrPatchIn As String, strFolderName As String, strFileName As String, i As Integer, Response
Dim fso As Object

strCurrPatchOut = "\\SERVER\Data\OrtoPhoto_1"
strCurrPatchIn = "\\SERVER\Data\OrtoPhoto_2"

Set fso = CreateObject("Scripting.FileSystemObject")

'fso.CreateFolder strCurrPatchIn

strFolderName = Dir(strCurrPatchOut & "\86*", vbDirectory)    ' Retrieve the first entry.
Do While strFolderName <> ""
    Debug.Print strFolderName
    
    strFileName = Dir(strCurrPatchOut & "\" & strFolderName & "\" & strFolderName & ".*", vbNormal)
    Do While strFileName <> ""
        fso.CopyFile strCurrPatchOut & "\" & strFolderName & "\" & strFileName, strCurrPatchIn & "\" & strFileName, 0
        strFileName = Dir
    Loop

    strFolderName = Dir
Loop

End Sub

На строке

strFolderName = Dir

выдает ошибку:

Run-time error '5': Invalid procedure call or argument

Как это обойти?

http://www.sql.ru/forum/1097323/kopirovanie-faylov

У меня в запросе вычисляется сальдо типа: сальдо = поступило - потратили
Так вот, если записей "потратили" нет (ну не было операций), то в вычисляемом поле - пусто, не может Акс от цифры отнять пусто. отнять ноль может, а пусто не может.
Как быть в таком случае?

http://www.sql.ru/forum/1097309/vyrazheniya-s-pustymi-polyami

Всем привет!
в общем, мне в базе данных нужно сделать проверку пароля для сотрудников. При правильном пароле должна открываться форма. Как сделать так, чтобы при неправильно введенном пароле не было доступа к форме? что именно прописать надо

http://www.sql.ru/forum/1097250/sozdat-parol-dlya-sotrudnika-access

Люди, помогите, пожалуйста!
Как сделать чтобы данные с формы (например поле Имя) скопировать и вставить в таблицу при нажатии на кнопку Копировать в таблицу.
Я придумал алгоритм такой:
1. КЭлементуУправления (Фамилия)
2. ВыделитьЗапись
3. Копировать
4. ОтрытьТаблицу (Призы)
5. НаЗапись новая
6. ВыделитьЗапись
7. Вставить

Не получается((( Что не так?

http://www.sql.ru/forum/1097180/kopirovanie-dannyh-s-formy-v-tablicu

У меня есть база, нужно выполнить задания, применяя их поочередно к базе, помогите глупому студенту разобраться!

1.Задание
С помощью оператора SELECT разработайте группу запросов к своей базе данных. В
результате работы у вас должны быть созданы запросы позволяющие:
1. сортировать данные во всех отдельных таблицах БД;
2. отбирать данные из отдельных таблиц;
3. объединяющие все пары таблиц, состоящие в отношении “один ко многим”;
4. объединяющие все таблицы, состоящие в отношении “многие ко многим”;
5. суммарный запрос, отображающий все данные из всех таблиц БД.
2.Задание
Применительно к созданной вами БД разработайте запросы позволяющие:
1. очищать таблицы;
2. заполнять таблицы данными;
3. редактировать определённую строку в таблице;
4. удалять определённую строку в таблице.
3.Задание
Используя изученные на занятии операторы SQL, подготовьте последовательность
инструкций SQL позволяющих создать приведённые к четвёртой нормальной форме таб-лицы в соответствии с ER-моделью подготовленной вами на занятии IV. Модель “Сущ-ность-связь” (ER-модель). Предложите инструкции SQL, позволяющие реструктурировать
имеющиеся таблицы (добавлять или удалять поля, изменять характеристики полей).
4.Задание
В соответствии с полученными на занятии IV заданиями подготовьте 3-4 отчёта. Ос-новной отчёт должен объединять в себе информацию из всех таблиц БД. Один из отчётов
должен быть создан с помощью мастера отчётов Access.
5.Задание
Применяя различные виды автоформ создайте формы для ввода, редактирования и
удаления данных для своего проекта БД. При проектировании интерфейса форм опирай-тесь на рекомендации по разработке пользовательского интерфейса БД.

http://www.sql.ru/forum/1097163/pozhaluysta-pomogite-sdelat-bazu-access-poetapno

Доброго времени суток!
Access 2010
Проект ADP под MSSQL
Имею форму, привязанную к таблице с большим числом записей (более 3К). На форме есть подчиненная таблица с очень большим числом записей (всего порядка 1 млн).

Есть кнопки для перехода по записям основной формы типа |< < > >|.
С обработчиком >| перехода к последней записи проблемы. Пробовал разное, но работает все равно криво.

Me.Recordset.MoveLast
Me.Repaint

Когда в первый раз открываешь форму и жмешь на эту кнопку, на форме переход не отрисовывается.
Форма показывает первую запись. Если через debug вывести текущий id, то выдается id последней записи.
При повторном нажатии на кнопку все срабатывает - форма "встает" на последнюю запись.

Пробовал ставить задержки, позиционировать рекордсет через Find - результат тот же. Идеи уже кончились.
Может, кто чего подскажет?
Спасибо

http://www.sql.ru/forum/1097148/adp-recordset-movelast-i-otobrazhenie-formy-s-bolshim-chislom-zapisey

т.е., чтобы выводилось не как сейчас: "...в течении 255 (двести пятьдесят пять) дней",
а "...в течении 255 (двухсот пятидесяти пяти) дней"

http://www.sql.ru/forum/1097145/summa-propisu-no-v-padezhah-nikto-ne-vstrechal-programmku

Подскажите возможно ли такое:
у меня табличная форма.
Есть строки в поле [man] где 50 символов, а есть где и более 1000 символов. Можно ли как-то отображать поле где много символов с переносами после к примеру 100-го символа.
Очень плохо просматривать данные, приходится стрелками или мышкой "скролить".

http://www.sql.ru/forum/1097108/perenos-strok-v-tablichnoy-forme

Помогите плиз, есть список из дат в таблице (допустим из 3) Дата
01.01.2014
14.01.2014
18.01.2014


Нужно запросом (одним или двумя) сделать из этого списка список последовательных диапазонов. Например:

Дата нач Дата оконч
01.01.2014 14.01.2014
14.01.2014 18.01.2014
18.01.2014 =СЕГОДНЯ() или 18.01.14

Спасибо. Раньше мне так уже делали, но запрос потерялся и вспомнить его не могу.

http://www.sql.ru/forum/1097054/preobrazovat-spisok-dat-v-diapazon

Здравствуйте! Помогите пожалуйста! У меня есть форма для заказов клиентов, но данные из нее не переносятся в соответствующую таблицу. Как это можно осуществить? Просто я не очень разбираюсь в этом.

http://www.sql.ru/forum/1097038/forma-access

не могли бы помочь? Ситуация такая http://pixs.ru/showimage/Bezimyanni_7973663_12285730.png , вобщем хотелось бы чтобы когда набирал табельный номер то он выводил сотрудника с этим табельным и те выходные которые он брал, там либо административный либо отгул либо больничный, либо если все это брал то чтобы все выводилось, а в данном случае не выводит вообще ничего http://pixs.ru/showimage/Bezimyanni_7999801_12285754.png
Заранее спасибо))))

http://www.sql.ru/forum/1097030/pomogite-pliz