Sub Кнопка3_Щелчок()
Dim x As Single, y As Single
x = Range("A7").Value
If (x <= 0 And x > 0 And x <= 7 And x > 10) Then
           If (x > 7 And x <= 10) Then
                     y = (x ^ 2) + 3
                     Range("C7").Value = y
           Else
                     Range("C7").Value = "Функция не определена"
           End If
Else
           If x = 0 Then
                     Range("C7").Value = "Функция не определена"
           Else
                     y = LNx
                     Range("C7").Value = y
Else
           If x = 0 Then
                     Range("C7").Value = "Функция не определена"
           Else
                     y = КОРЕНЬx
                     Range("C7").Value = y
           End If
End If
End Sub

Помогите исправить ошибку Compile Error: Else without if

http://www.sql.ru/forum/1069184/oshibka-compile-error-else-without-if

Добрый день!

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

Спасибо!

http://www.sql.ru/forum/1069171/otkryt-formu-kak-okno-s-izmenyaemymi-razmerami

Добрый день!

При выборе строки из элемента "Поле со списком" автоматически выделяется текст выбранной строки и остается выделенным, пока не будет выбран другой элемент на форме.

Как сделать, чтобы после выбора строки из "Поля со списком" сразу убиралось выделение выбранной строки?

Спасибо!

http://www.sql.ru/forum/1069162/pole-so-spiskom-bez-vydeleniya

Прошу помочь с выводом просуммированных полей таблиц в одно представление с помощью SQL-запроса. Для наглядности примера задачку накидал и прикрепил файл.

Для создания представления и вывода одного столбца из одной таблицы для конкретного автомобиля формула есть:
для работ: SELECT m.ID AS MainID, IIf(ISNULL(SUM(l.LAmount)), 0, SUM(l.Amount)) AS LabourSUM FROM tblLabour AS l INNER JOIN tblMain AS m ON l.LMainID = m.ID GROUP BY m.ID
для материалов: SELECT m.ID AS MainID, IIf(ISNULL(SUM(mso.MAmount)), 0, SUM(mso.MAmount)) AS MaterialSUM FROM tblMaterial AS mso INNER JOIN tblMain AS m ON mso.MMainID = m.ID GROUP BY m.ID

Как оба столбца вывести в одно представление?

http://www.sql.ru/forum/1069075/sozdanie-predstavleniya-s-prosummirovannymi-dannymi-iz-dvuh-tablic

Добрый день!

Нужно сделать в таблице выпадающий список в поле типа Boolean.

В прилагаемом примере, дожен быть выбор - Черный или Белый.
Вместо "Белый" получаю -1.

В чем ошибка не могу разобраться

http://www.sql.ru/forum/1069054/spisok-v-pole-tipa-boolean

private Sub InfENot() 'информация цветом текста кнопки


If Nz(Me("zakaz"), "") = "" Then 'изменение цвета надписи на кнопке
Me.Kn5.ForeColor = vbBlack
Else
Me.Kn5.ForeColor = RGB(0, 153, 51) 'зеленый
End If

End Sub

Вот такая процедура есть в нескольких формах (около 10). Есть ли возможность сделать подобную процедуру с параметрами, чтобы она была одна (и поместить ее в модуль)? Как обратиться к контролам формы, в данном случае к me.Kn5 ч-з параметр процедуры подскажите пожалуйста!

http://www.sql.ru/forum/1069047/procedurka

Всех с наступившим! Дико извиняюсь, но я искал и к сожалению нормального, подходящего по моим параметрам ответа не нашел, вроде бы банальная вещь, но не работает ..
Итак, есть две базы. Одна базы уже давно была создана, в ней была сделана небольшая доработка в виде кода:

Private Sub Form_Current()
 Dim strsql, rst As DAO.Recordset
 
 strsql = "SELECT ПараметрыБазы.*, ПараметрыБазы.ИмяОбъекта" _
  & " FROM ПараметрыБазы" _
  & " WHERE (((ПараметрыБазы.ИмяОбъекта)='Форма_ВыпискиСчета'))" _
  & " ;"
 Set rst = CurrentDb.OpenRecordset(strsql)
 
 Forms!НаВыезде_Кал!ЧасМО.DefaultValue = rst.Fields("ЧасМО")
 Forms!НаВыезде_Кал!ОбоснованиеЦены.DefaultValue = rst.Fields("ОбоснованиеЦены")
End Sub

все отлично работает, без ошибок, но существует вторая база, созданная копированием первой и немного переделанная для другого отдела, но вот проблемка, после этих переделок прошло больше полугода и вот пытаюсь добавить во вторую базу аналогичный код из VBA первой базы, при открытии формы выдает ошибку "Run-time error '13': Type mismatch" и указывает на строчку где элементу формы присваивается значение по умолчанию:

Forms!НаВыезде_Кал!ЧасМО.DefaultValue = rst.Fields("ЧасМО")

До этого как то тоже пытался кое-что переделать, увязать с 1Ской сделал все на своем компьютере в копии второй базы и код VBA работал, но только я попытался воспроизвести все свои изменения на компьютере с актуальной базой (там же где и сейчас возникают проблемы), то у меня снова были аналогичные проблемы, тогда времени разбираться с этим не было, закинул идею ..
Потерянных библиотек нету, и подключено одинаковое количество что в первой что во второй базе.
Подскажите пожалуйста в чем проблема может быть??
ЗЫ: в VBA я не силен ..

http://www.sql.ru/forum/1069046/oshibka-vba-no-v-drugoy-baze-rabotaet

С НГ!
Подскажите, у меня на одной форме по Enter открывается еще одна форма (информативная), при нажатии Enter еще раз она закрывается.
Вся проблема в том, что при таких манипуляциях один столбец становится невидимым.
Пример бд прикрепил

http://www.sql.ru/forum/1069045/problemka-pri-otkrytii-formy

Добрый день.Я начинающий и прошу помощи у знатоков.
А2000.

Есть таблицы: Таблица1, Таблица2, Таблица3 с различной структурой.
Есть ПодчиненнаяТаблица.

На уровне таблиц они никак не связаны.


На уровне форм:

Форма Таблица1 с подчиненной формой ПодчиненнаяТаблица.
Форма Таблица2 с подчиненной формой ПодчиненнаяТаблица.
Форма Таблица3 с подчиненной формой ПодчиненнаяТаблица.

Все бы ничего, но путаются записи т.к. некоторые ключи
(поля счетчик "главных" таблиц и ключевое поле ПодчиненнаяТаблица) совпадают.


Скажите пожалуйста, какие существуют решения для исключения таких ошибок и
правильной работы интерфейса?

http://www.sql.ru/forum/1069037/problema-s-strukturoy

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

http://www.sql.ru/forum/1068966/istochnik-zapisey-formy

Здравствуйте, уважаемые!
Вот никак не могу решиться, как фиксировать в базе пересортицу, обнаруженную при инвентаризации.
Первая мысль - оформить как списание-приход. Тогда вопрос - по каким ценам? Если по нулевым, то отчетность (например, по прибыли) будет врать: убыток от списания - вот он, а когда еще будет продажа от "появившегося" товара, которая компенсирует этот псевдоубыток - неизвестно. Если по закупочным, то какое же это списание?
Вводить еще один вид операции? Но тогда надо еще одну таблицу создавать, связывать ее с таблицей операций, учитывать ее при запросах и пр. Громоздко.
Как это делается "по классике", не подскажете?
Спасибо.

http://www.sql.ru/forum/1068791/kak-otrazit-peresorticu

Дай себе, прежде чем дать другим!

http://www.sql.ru/forum/1068771/s-nastupaushhim-novym-2014-godom-gospoda

Приложение в Access 2010 с базой на MSSQL 2005. Открывается нормально - без ошибок. Таблицы на просмотр открываются, но при открытии любой таблицы в конструкторе - серое поле и ни одного поля таблицы. Обращения к полям из форм есть - выбираются и данные отображаются. При попытке открыть схему данных - картина та же, таблицы и связи рисуются, а полей нет. При попытке внести изменения в схему, Access вываливается с ошибкой.
При этом под XP с Access 2007 - открывается нормально и таблички показывает. На другой Win 7 с Office 2010, тоже открывается нормально и поля таблиц видны. Чую проблема на конкретной машине где-то какой-то галки не хватает или ещё чего. А вот чего и где - не понимаю. Уже везде облазил. Все вроде всё на машинах совпадает, а полей в таблицах как не было так и нет. Может где-то свёрнутые или за пределами экрана могут находится эти самые поля, прямо и не знаю.
Если кто с этим сталкивался или знает ответы, где копать - подскажите.

http://www.sql.ru/forum/1068711/gluk-v-access-2010-propali-polya-tablic

Добрый день всем посетителям данного форума.

Очень долго мучался и все же решил обратиться за помощью на форум. Отыскать нужную тему не смог (тоже потратил очень много времени на это)

Вопрос у меня следующий:
Есть 3 таблицы:
1. Таблица, с ФИО сотрудников и другими данными по сотрудникам (его руководитель, график работы и т.д.)
2. Таблица, с данными по работе сотрудников за каждый месяц (фио сотрудника, списое мероприятий, статус мероприятий и т.д.)
3. Таблица, с данными по времени прихода на работу (фио сотрудника, время прихода с работы и время ухода с работы, за каждый день недели)

Во всех таблицах одно одинаковое поле это "ФИО сотрудника". Делаем связь 1 к 1 таблиц 2 с 1 и 3 с 1. Связь готова, но при добавлении нового сотрудника в таблицу 1 (данные по сотрудникам), в таблицах 2 и 3 он не появляется, его необходимо ручками вбивать в эти таблицы, что бы он был. Как этого избежать? Мне нужен единый список сотрудников, который будет обновлять этот список в других связанных таблицах, т.к. в перспективе ожидается добавление новых таблиц, связанных с первой таблицей.

Помогите, о мозги данного форума.

http://www.sql.ru/forum/1068694/obnovlenie-svyazannyh-tablic

Или - категорически нет, и надо весь код перекидывать в NodeClick?

http://www.sql.ru/forum/1068674/sobytie-mousedown-v-treeview-mozhno-li-uznat-po-kakoy-node-kliknuli

Имеется некая таблица tbl1 со следующими значениями:

t0
t11
t12
t40
...

Мне нужно SQL запросом вытащить в одну строчку "t0,t11,t12,t40.."

http://www.sql.ru/forum/1068667/summa-tekstovyh-znacheniy

Или - категорически нет, и надо весь код перекидывать в MouseDown?

http://www.sql.ru/forum/1068665/sobytie-nodeclick-mozhno-li-uznat-kakoy-klavishey-kliknuli

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

Есть форма в которой при событии "после обновления" поля [Uchet1] (формат поля "длинное целое") обновляются некоторые поля из таблицы [тБаза].
Для обновления текстовых полей (например [Ruk_grupp]) работает такая функция:

[Ruk_grupp].Value = DLookup("[Ruk_grupp]", "[тБаза]", [Uchet1] = [Uchet1])

А вот никак не могу сделать такое же обновление для числового поля [Uchet2] (формат этого поля "длинное целое" и в форме и в таблицах), в этом поле есть и пустые значения (Null)
Попытался сделать так:
[Uchet2].Value = DLookup([Uchet2], "[тБаза]", [Uchet1] = [Uchet1])
И так:

[Uchet2].Value = Nz(DLookup([Uchet2], "[тБаза]", [Uchet1] = [Uchet1]), 0)

Выдает RunTime error 94. Invalid use of null.

Делал ещё какие-то варианты, но там просто в поле [Uchet2] на форме просто вставлялся 0 (нуль) независимо от значения поля [тБаза].[Uchet2]

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

Подскажите, как можно решить эту проблему?

http://www.sql.ru/forum/1068607/dlookup-dlya-obnovleniya-chislovogo-polya

Объясните неучу, почему X и Y в функциях типа "Private Sub CONTROL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)" десятичное а не длинное целое? Ни разу не видел запятых в "debug.? x,y"

http://www.sql.ru/forum/1068584/pochemu-singl-a-ne-long

Есть запрос Select p1 from T1 where p1 In (Select p2 from T2) здесь будут выбиратся записи полностью совпадающие и в p1 и p2, а как нужно изменить запрос чтобы из p1 выбирались записи даже частично совпадающие с p2. Например p1-123456 p2-245, соответственно запись из p1 выводится

http://www.sql.ru/forum/1068570/vyborka-po-chasti-polya-drugoy-tablicy