-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4

Invalid link!








Добавить любой RSS - источник (включая журнал LiveJournal) в свою ленту друзей вы можете на странице синдикации.

Исходная информация - http://www.sql.ru/forum/actualtopics.aspx?bid=4.
Данный дневник сформирован из открытого RSS-источника по адресу http://www.sql.ru/forum/actualrss.aspx?id=4, и дополняется в соответствии с дополнением данного источника. Он может не соответствовать содержимому оригинальной страницы. Трансляция создана автоматически по запросу читателей этой RSS ленты.
По всем вопросам о работе данного сервиса обращаться со страницы контактной информации.

[Обновить трансляцию]

Вставить данные в Access из Excel последовательно и из ячейки

Среда, 31 Января 2018 г. 23:17 + в цитатник
Добрый вечер всем

Есть сделанная база

Sub СозданиеТаблицы()
Dim connDB As Object
Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open

connDB.Execute = "CREATE TABLE RRR" & "(ID  COUNTER, Дата DATETIME, Вася TEXT, Петя TEXT,Маша TEXT,Балл TINYINT,Я TEXT);"
connDB.Close
Set connDB = Nothing
End Sub

И в нее я пробую вставить

Sub Insert()
Dim connDB As Object
Dim sss As String
Dim ddd As String
sss= "Кошка"
ddd= "Мышка"


Set connDB = CreateObject("ADODB.Connection")
connDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & "G:\3\A.accdb"
connDB.Open


connDB.Execute = "INSERT INTO RRR VALUES( Cells(1,1).Value , sss, ddd)"
connDB.Close
Set connDB = Nothing
End Sub



Проблема такая, что:

1. Как вставить с ячейки? ( я не понимаю, как прописать правильно синтаксически в команде INSERT мою Cells...
2. Как в этом же запросе прописать выше обозначенную переменную sss и ddd?
3. Если у меня нумеруется все с ID и даты, то как написать в INSERT, чтобы Cells(1,1).Value было третьим по счету, а sss 5 и ddd 7)??

Вот как тут написать?
INSERT INTO RRR VALUES( , ,Cells(1,1).Value , ,sss, ,ddd)" что ли...? ))

Вот такой вопрос...)

http://www.sql.ru/forum/1284080/vstavit-dannye-v-access-iz-excel-posledovatelno-i-iz-yacheyki


Вернуть при импорте из Excel формат ячейки

Среда, 31 Января 2018 г. 12:07 + в цитатник
День добрый.
Есть файл Excel, выгрузка отчета из 1С с группировкой. Можно ли вернуть значение количества отступов ячейки или уровень группировки и если можно то как?
В самом Ексельном листе это не сложно сделать, сделал, но хочется без промежуточных напрягов......
Спасибо.

http://www.sql.ru/forum/1284005/vernut-pri-importe-iz-excel-format-yacheyki


SQL Запрос с нарастающим итогом

Вторник, 30 Января 2018 г. 21:04 + в цитатник
Господа, помогите составить SQL Запрос. Без VBA. Что-то бьюсь – не получается.
Логистика.
Машина вышла из Города_1 и объехав насколько населенных пунктов попала в Город_6. В каждом из городов она выгрузилась привезенным для него грузом и загрузилась грузами для городов которые она будет посещать по своему маршруту. При этом каждый из складов не обязательно принимает или отправляет груз. Но какая нибудь операция на нем присутствует обязательно. И еще. Склад если отгружает груз, то не обязательно во все последующие города маршрута.
Задача. Составить запрос в котором бы отображалась масса груза на каждом участке маршрута от города до города.
Спасибо

http://www.sql.ru/forum/1283957/sql-zapros-s-narastaushhim-itogom


Редактирование результата запроса на выборку

Вторник, 30 Января 2018 г. 11:54 + в цитатник
туплю по полной.
Создал запрос на выборку из двух связанных таблиц.
Связаны по двум полям типа один к одному.
В одной таблицы поля галочки и код записи, в связанной по коду записи поля с расшифровкой (наименование, цена....).
Теперь пытаюсь редактировать записи в запросе а оно не даётся.
Это так и должно быть что ли?

------------------------------------------------------------------------
Спасибо за ответ.

http://www.sql.ru/forum/1283903/redaktirovanie-rezultata-zaprosa-na-vyborku


Как подсчитать количество конкретных значений в ячейки?

Вторник, 30 Января 2018 г. 08:41 + в цитатник
Необходом вывести в отчете, общее количество конкретных значений в значений в поле.
То есть, есть отчет, в нем группированные по Регионам значения строк из таблицы 1, подскажите пожалуйста формулу для подсчета общего числа значений поля "Идентификаторы" таблицы 1, по каждому региону отдельно.
Пример БД: https://yadi.sk/d/r0EvhTaS3RuJHB

http://www.sql.ru/forum/1283886/kak-podschitat-kolichestvo-konkretnyh-znacheniy-v-yacheyki


Как правильно связать?

Понедельник, 29 Января 2018 г. 20:29 + в цитатник
При выборе организации на Form1 необходимо чтобы из Копия Лист3 выбирались только те документы, которые относятся к выбранной организации. (надеюсь правильно описал) http://www.cyberforum.ru/attachments/905434d1516903972 ссылка на базу

http://www.sql.ru/forum/1283862/kak-pravilno-svyazat


VBA как программно сохранить определенную папку как RAR-архив?

Понедельник, 29 Января 2018 г. 14:55 + в цитатник
Доброго времени Гуру Акса!
Подскажите пожалуйста, как программно сохранить определенную папку как RAR-архив?
Спасибо заранее за любую помощь!

http://www.sql.ru/forum/1283822/vba-kak-programmno-sohranit-opredelennuu-papku-kak-rar-arhiv


Дублирование записей при выводе списка

Понедельник, 29 Января 2018 г. 11:14 + в цитатник
Добрый день, помогите пожалуйста разобраться с дублированием в списке. Возникает только при добавлении столбца с группировкой ФИО: [фам_уч] & " " & [им_уч] & " " & [отч_уч]
Distinct не помогает.
Скорее всего проблема в связи таблиц работы_участников > участники т.к. в первой таблице есть повторяющиеся значения. (см скрины).
Можно ли изменить связь в обратную сторону без потери данных, или просто скрыть дублирующиеся записи. ФИО вообще требуется только при выгрузке в exel.
Прошу прощения что немного сумбурно написано, задавайте вопросы )
+
Картинка с другого сайта.
Картинка с другого сайта.

http://www.sql.ru/forum/1283789/dublirovanie-zapisey-pri-vyvode-spiska


Непонятное сообщение от Аксесс

Воскресенье, 28 Января 2018 г. 21:45 + в цитатник
Начало появляться это сообщение. Закономерность не пойму. Иногда на вызов макроса, иногда на переключение между записями в форме. Кто нибудь знает что оно значит?

http://www.sql.ru/forum/1283762/neponyatnoe-soobshhenie-ot-aksess


Проверка на присутствие значения

Воскресенье, 28 Января 2018 г. 10:42 + в цитатник
Имеется таблица TABL_1
В ней несколько записей.

Возможны два варианта состояния записей
1 Поле KOD_MES - не заполнено
2 Поле KOD_MES - заполнено

В тоже время всегда присутствуют записи, в которых данное поле не заполняется ни когда,
это например строки, где заполнены поля:
DOGOVOR_NUMBER
DOGOVOR_DATA

Как быстро проверить, что в некоторых записях поле KOD_MES - всё же заполнено,
учитывая условие отбора "DOGOVOR_NUMBER = D_N" ?
Это что бы знать, что вновь добавлять записи и заполнять эти поля не требуется,
заполнение уже производилось ранее.
------------------------------------------------------------------------

------------------------------------------------------------------------
Спасибо за ответ.

http://www.sql.ru/forum/1283727/proverka-na-prisutstvie-znacheniya


Нарушение связей

Воскресенье, 28 Января 2018 г. 06:37 + в цитатник
1. Не заполняется поле Дистрибутив таблицы Комплект при вводе значений в форму Основная форма.
Не пойму как исправить схему данных.
2. Как обновить на форме поле банки после обновления поля дистрибутив
Спасибо.

http://www.sql.ru/forum/1283722/narushenie-svyazey


Помогите упростить код

Суббота, 27 Января 2018 г. 21:46 + в цитатник
Нарисовал описание в форму, но нутром чувствую есть способ эффективнее

+
[spoiler]
'Окна и балконы падежи и множественное число
 Select Case Окна_Ф
 Case 1
   eofa = "окно"
   eofm = "окно"
 Case 2, 3, 4
   eofa = "окна"
   eofm = "окна"
 Case Else
   eofa = "окон"
   eofm = "окна"
End Select
 Select Case Окна_Тор
 Case 1
   eotr = "окно"
   eotrm = "окно"
 Case 2, 3, 4
   eotr = "окна"
   eotrm = "окна"
 Case Else
   eotr = "окон"
   eotrm = "окна"
End Select
 Select Case Окна_Тыл
 Case 1
   eot = "окно"
   eotm = "окно"
 Case 2, 3, 4
   eot = "окна"
   eotm = "окна"
 Case Else
   eot = "окон"
   eotm = "окна"
End Select
 Select Case Балк_Ф
 Case 1
   ebf = "балкон"
   ebfm = "балкон"
   ebfz = ", " & [Балк_Ф_Заст]
   ebfsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Ф_Смежн] = "не смежный", ", не смежный", ", смежный " & [Балк_Ф_Смежн]), "")
 Case 2, 3, 4
   ebf = "балкона"
   ebfm = "балконы"
   ebfz = IIf([Балк_Ф_Заст] = "застеклён", ", застеклены", IIf([Балк_Ф_Заст] = "не застеклён", ", не застеклены", ""))
   ebfsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Ф_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Ф_Смежн]), "")
 Case Else
   ebf = "балконов"
   ebfm = "балконы"
   ebfz = IIf([Балк_Ф_Заст] = "застеклён", ", застеклены", IIf([Балк_Ф_Заст] = "не застеклён", ", не застеклены", ""))
   ebfsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Ф_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Ф_Смежн]), "")
End Select
 Select Case Балк_Тор
 Case 1
   ebtr = "балкон"
   ebtrm = "балкон"
   ebtrz = ", " & [Балк_Тор_Заст]
   ebtrsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тор_Смежн] = "не смежный", ", не смежный", ", смежный " & [Балк_Тор_Смежн]), "")
 Case 2, 3, 4
   ebtr = "балкона"
   ebtrm = "балконы"
   ebtrz = IIf([Балк_Тор_Заст] = "застеклён", ", застеклены", IIf([Балк_Тор_Заст] = "не застеклён", ", не застеклены", ""))
     ebtrsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тор_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тор_Смежн]), "")
 Case Else
   ebtr = "балконов"
   ebtrm = "балконы"
   ebtrz = IIf([Балк_Тор_Заст] = "застеклён", ", застеклены", IIf([Балк_Тор_Заст] = "не застеклён", ", не застеклены", "2"))
   ebtrsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тор_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тор_Смежн]), "")
End Select
 Select Case Балк_Тыл
 Case 1
   ebt = "балкон"
   ebtm = "балкон"
   ebtz = ", " & [Балк_Тыл_Заст]
   ebtsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тыл_Смежн] = "не смежный", ", не смежный", ", смежный " & [Балк_Тыл_Смежн]), "")
   Case 2, 3, 4
   ebt = "балкона"
   ebtm = "балконы"
   ebtz = IIf([Балк_Тыл_Заст] = "застеклён", ", застеклены", IIf([Балк_Тыл_Заст] = "не застеклён", ", не застеклены", "3"))
   ebtsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тыл_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тыл_Смежн]), "")
   Case Else
   ebt = "балконов"
   ebtm = "балконы"
   ebtz = IIf([Балк_Тыл_Заст] = "застеклён", ", застеклены", IIf([Балк_Тыл_Заст] = "не застеклён", ", не застеклены", "4"))
   ebtsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тыл_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тыл_Смежн]), "")
End Select
'Окна фасад
 Select Case Окна_Ф
 Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20
     resh100 = 1
     Select Case Окна_Ф_Реш
     Case "решётки", "ролставни"
     resh101 = 2
       resh103 = IIf([Окна_Ф_Блок] = "отсутствует" Or IsNull([Окна_Ф_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh101 = 3
 Case Else
 resh101 = 4
End Select
End Select
'Окна торец
 Select Case Окна_Тор
 Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20
     resh110 = 1
     Select Case Окна_Тор_Реш
     Case "решётки", "ролставни"
     resh111 = 2
       resh113 = IIf([Окна_Тор_Блок] = "отсутствует" Or IsNull([Окна_Тор_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh111 = 3
 Case Else
 resh111 = 4
End Select
End Select
'Окна тыл
 Select Case Окна_Тыл
 Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20
     resh120 = 1
     Select Case Окна_Тыл_Реш
     Case "решётки", "ролставни"
     resh121 = 2
       resh123 = IIf([Окна_Тыл_Блок] = "отсутствует" Or IsNull([Окна_Тыл_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh121 = 3
 Case Else
 resh121 = 4
End Select
End Select
      
      
'Балконы фасад
 Select Case Балк_Ф
 Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20
     resh130 = 1
     Select Case Балк_Ф_Реш
     Case "решётки", "ролставни"
     resh131 = 2
       resh133 = IIf([Балк_Ф_Блок] = "отсутствует" Or IsNull([Балк_Ф_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh131 = 3
 Case Else
 resh131 = 4
End Select
End Select
'Балконы торец
 Select Case Балк_Тор
 Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20
     resh140 = 1
     Select Case Балк_Тор_Реш
     Case "решётки", "ролставни"
     resh141 = 2
       resh143 = IIf([Балк_Тор_Блок] = "отсутствует" Or IsNull([Балк_Тор_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh141 = 3
 Case Else
 resh141 = 4
End Select
End Select
'Балконы тыл
 Select Case Балк_Тыл
 Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20
     resh150 = 1
     Select Case Балк_Тыл_Реш
     Case "решётки", "ролставни"
     resh151 = 2
       resh153 = IIf([Балк_Тыл_Блок] = "отсутствует" Or IsNull([Балк_Тыл_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh151 = 3
 Case Else
 resh151 = 4
End Select
End Select
'Окна фасад
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Окна_Тор & " " & eotrm & " на торец " & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а также торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & " и " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ",   а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh15 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebfa & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebfa & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.") & ",   а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh15 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ",
	        
	        
	        

Как из VBA при определённых условиях, в форме, присваивать координаты полю

Суббота, 27 Января 2018 г. 17:26 + в цитатник
Здравствуйте, очередная задача (по моим знаниям не выполнимая), как можно указать координаты полю в форме, если к примеру значение А=1 то координаты сверху 4 слева 5, а при А=2 координаты сверху 2 слева 1.
Заранее спасибо.

http://www.sql.ru/forum/1283702/kak-iz-vba-pri-opredelyonnyh-usloviyah-v-forme-prisvaivat-koordinaty-polu


Сочетание CTRL+BREAK на ущербной клавиатуре...

Суббота, 27 Января 2018 г. 16:10 + в цитатник
Ребят, подскажите, весь интернет и хелпы облазил... Сами понимаете, в нашем деле без CTRL+BREAK никуда... Особенно, если случайно забыл сделать Next в цикле в процедуре формы на запуск Аксесс... Есть может кто, кто работает на такой же клаве? Штатные и хелповские варианты сочетаний не работают...

http://www.sql.ru/forum/1283698/sochetanie-ctrl-break-na-ushherbnoy-klaviature


Обработка ошибок при вызове процедуры из процедуры

Суббота, 27 Января 2018 г. 16:04 + в цитатник
Народ, доброго всем времени суток! Понимаю, тема скорее всего изъезженная, но чего-то то ли я не могу нормальный контекст в поиске забить, то ли может я чего не догоняю... Вобщем, запускается процедура. В ней написан обработчик ошибок: On Error Go To, выход, метки и т.д. Из этой процедуры запускается вторая процедура. В ней тоже есть свой собственный обработчик ошибок. Вопрос: при срабатывании ошибки во второй процедуре, обработчик отрабатывает из первой процедуры... Помню, кажется, Саныч говорил, что Акс так делает то ли всегда, то ли по умолчанию... А всегда ли? Нет вариантов сделать так, что если ошибка в первой процедуре, то срабатывает ее обработчик, если во второй, то, соответственно, обработчик второй?

http://www.sql.ru/forum/1283697/obrabotka-oshibok-pri-vyzove-procedury-iz-procedury


Помогите открыть базу данных с паролем

Суббота, 27 Января 2018 г. 01:46 + в цитатник
Всем доброго времени суток.

Помогите, пожалуйста, открыть базу данных Access с паролем. Она моя, но пароль я не помню, перепробовала уже все пароли, что могли быть. Знаю, что по правилам форума такие вопросы обсуждать нельзя, поэтому готовых помочь за какие-то скромные денежки - прошу в личку, адрес почты есть в профиле. Базу могу выслать на почту, она такая старая, что уже ценности никакой не представляет. Там просто куча таблиц, которые я за каким-то чертом несколько лет назад запаролила(((

http://www.sql.ru/forum/1283665/pomogite-otkryt-bazu-dannyh-s-parolem


Выбор всех записей в основной таблице на основе подчиненной таблицы

Пятница, 26 Января 2018 г. 23:15 + в цитатник
Здравствуйте!
Есть две таблицы: (слева основная, справа подчиненная, связь один-ко-многим, поле id основное, поле "номер" - подчиненное)

idимя.........................номер задача
1 петров1 задача111
2 иванов1 задача222
3 сидоров2 задача333
4 итд3 задача444
3 задача555
3 задача666
2 задача777
4 итд

Подскажите пожалуйста, как запросом найти всех сотрудников у которых, допустим 2 задачи (3 задачи, 5 задач, итд...) ?
то есть, чтобы при выполнении запроса на экран вывело:
idимя
1петров
3иванов

заранее спасибо!

http://www.sql.ru/forum/1283659/vybor-vseh-zapisey-v-osnovnoy-tablice-na-osnove-podchinennoy-tablicy


контекстное меню

Пятница, 26 Января 2018 г. 19:41 + в цитатник
Всем добрый вечерь!
Сделал контекстное меню на подчиненную форму, всё отлично работает.
Но когда подчинённую форму копирую на обычную форму выдаёт ошибку:
первая окошка:
"Run-time error '91'"
"object variable or with block variable not set"
вторая окошка:
"Run-time error '5'"
"invalid procedure call or argument"
Везде искал не нашёл ответ...
Помогите решить эту проблему!
Спасибо!

http://www.sql.ru/forum/1283647/kontekstnoe-menu


Как отучить юзверей оставлять заблокированные записи?

Пятница, 26 Января 2018 г. 15:30 + в цитатник
Ситуация: пользователь вводит документ (например оформляет накладную). ввел несколько символов и ушел курить (или языком чешет)...
запись при этом осталась заблокированной и другие не могут с ней работать...
Длины линеек бить по рукам уже не хватает.

Ничего умнее запускать по таймеру обновление формы в голову не приходит (все таки пятница...).
Но на все формы не наделаешься...
Что бы такое сделать?

http://www.sql.ru/forum/1283614/kak-otuchit-uzverey-ostavlyat-zablokirovannye-zapisi


Формы при переходе на Acces 2010 в виде закладок

Пятница, 26 Января 2018 г. 13:59 + в цитатник
Здравствуйте. Обнаружил, что в Акс-2010 формы представлены в основном окне в виде закладок.

Можно ли от этого избавиться в пользовательском экземпляре БД. Т.к. пользователь должен иметь возможность "работать" только с последней (верхней) открытой формой и не "вторгаться" в предыдущие открытые формы?

http://www.sql.ru/forum/1283601/formy-pri-perehode-na-acces-2010-v-vide-zakladok



Поиск сообщений в rss_sql_ru_access_programming
Страницы: 353 ... 294 293 [292] 291 290 ..
.. 1 Календарь