итоговый столбец по строкам таблицы

[shanemac51]

не берет -----увы

[OlegVE]

Ну, раз пошла другая пьянка..
1.

Сообщение от shanemac51

--сохранить как .....

Пожалуй у Вас не получится...

2.

Сообщение от shanemac51

-преобразовать базу данных ...

Вот этот вариант должен получиться.

3. У меня MS Access 2007 (ненавижу его ленту ) только по выходным, но по моему там есть установка с каким форматом работать по умолчанию.

[mortal2010]

Сообщение от shanemac51

не берет -----увы

Не удается к сожалению привести к формату предыдущей версии, т.к. задействованы возможности новой версии...
Ну я буду рестайлинг делать, с нуля, а там уже можно выставить 2003-2007
Позже выложу - там еще насоветовали много на другом форуме - структуру базы полностью менять нужно.
А мне щас просто быро нужен рабочий вариант, типа черновой.

[mortal2010]

Сообщение от OlegVE

Ну, раз пошла другая пьянка..

Нет, Ваш совет кстати- это будет рабочий вариант.
А потом я буду менять структуру с нуля - типа другая база будет совсем.
Ну с ней тоже возни будет много - я недавно начал БД и SQL ковырять, поэтому обязательно обращусь за советом)
Еще раз большое спасибо.

[OlegVE]

По вопросу shanemac51
По преобразованиям версий, можно посмотреть (на английском) "Convert an Access 2007 database to an earlier file format"

http://office.microsoft.com/en-us/ac...010230822.aspx

До свидания.

[Teslenko_EA]

Здравствуйте mortal2010.
"..Стоп,стоп,стоп.." - а никто никуда не идет, тем более образец выложенный Вами мало кому доступен. (формат подкачал, более приемлем А2003)
Не видя образца, судя по описанию структуры, могу сказать - она не лучшая.
"горизонтальный" табель более похож на привычную таблицу (как в Excel) и это его единственное "достоинство".
Но если Вы не планируете от него отказываться, решить задачу можно с применением пользовательской функции, и конструкция может выглядеть так
функция:

Function countDay(Id$, s$) As Integer
Const sQ = "SELECT * FROM Таблица1 WHERE Id=" 'запрос к таблице
'подразумевается структура таблицы SELECT Id, F1, F2, F3, ... F29, F30, F31, .... FROM Таблица1
Dim db As DAO.Database, rs As DAO.Recordset, i%
Set db = CurrentDb
Set rs = db.OpenRecordset(sQ + Id)
If Not rs.EOF Then
    For i = 1 To 31
        countDay = countDay + Abs(s = rs(i) & "")
    Next
End If
End Function

конструкция запроса, источника данных:

SELECT Id,  F1, F2, F3, ...F28, F29, F30, F31, countDay(Id, "k") as k, countDay(Id, "o") as o
FROM Таблица1;

выражение countDay(Id, "k") as k формирует в запросе поле подсчитывающее кол-во полей с литерой k, или любой другой.
Не желаете получать/отображать итог в запросе, поместите в поле формы в качестве источника данных выражение =countDay(Id; "k") и поле будет его отображать.

рекомендую выполнить корректировку Вашего кода:

...
Dim a As Integer
a = Daycount(Me.Поле11, Me.Поле5)
With Me.tabel.Form
    .[31].ColumnHidden = (a < 31)
    .[30].ColumnHidden = (a < 30)
    .[29].ColumnHidden = (a < 29)
End With
....

Надеюсь "выслушали" с удовольствием.
Успехов Вам.
Евгений.

P.S. для удобочитаемости выкладываемый код обязательно заключайте в тэги [соde] ... [/соde].

[OlegVE]

Здравствуйте Teslenko_EA
Хотел бы у Вас спросить как Пользователь у Профессионала. Чем мой код хуже? Дайте своё заключение. Я не вижу отличий, считаю просто копией, только подредактированной. У Вас ближе к конечному (даже Id$ более профессионально выглядит по сравнению с Id As String), у меня код для пояснения и отладки более расширенный.

Спасибо за пояснения. У меня просто не хватает опыта.
До свидания.

P.S. Одно отличие я увидел. С явным указанием DAO я "прокололся" на случай если ещё установлена ссылка на ADO.

[Teslenko_EA]

Здравствуйте OlegVE.
"..не вижу отличий, считаю просто копией.." - если это попытка обвинить меня в плагиате, Вы не правы. У меня не было в планах "конкурировать" с Вашей конструкцией, я её просто не видел, так получилось.

Отвечаю на Ваш вопрос - "..Чем мой код хуже?.." :

VBA
"..код для пояснения и отладки более расширенный.."
Объект qr для чего(?) - для считывания из сохраненного запроса SQL конструкции и построения в нескольких строках кода конструкции источника рекордсета.
Рациональнее конструкцию изначально разместить в константе.
Табель учета рабочего времени подразумевает максимум 31 день, зачем передавать в функцию аргументы FieldStart и FieldEnd достаточно задать смещение по стартовому полю.
Проверка символа Rst.Fields(i).Value = FindIt, может привести функцию к неработоспособности, отсутствует защита от "пустоты" (NULL)
я бы не стал называть код "расширенным", он громоздкий и не абсолютно работоспособный.

SQL
конструкцию проще записать так:

SELECT ФИО, П1, П2, П3, П4, П5, 
MyCOUNT("ФИО",ФИО,"к",1,5) AS Итого_к, 
MyCOUNT("ФИО",ФИО,"в",1,5) AS Итого_в, 
MyCOUNT("ФИО",ФИО,"-",1,5) AS [Итого_-]
FROM tblТаблицаДляСчёта;

теперь взгляд не теряется на листинге и проще увидеть её бесперспективность.
в качестве аргумента ID_ объявленного как Variant(?) используется текстовое значение поля ФИО
..WHERE " & ID_FieldName & " = " & """" & ID_ & """" & ";"..
Хоть автор вопроса и написал : "..табель месяца учета рабочего времени..", я не думаю что для каждлго месяца у него будет другая БД. Следовательно идентификация записи по ФИО не приемлема, допустим только уникальный идентификатор.

Успехов Вам.
Евгений.

P.S. свои сообщения я подписываю в надежде, что обращаться ко мне будут по имени.

[mortal2010]

Вот привел к формату MS Access 2002-2003 .mdb, но еще ничего не исправлял

[shanemac51]

мдб-шку открыла

вечером посмотрю