Дорогие мои коллеги, милые женщины, девушки, жены и бабушки!

От всей души поздравляю вас с праздником 8 Марта! Желаю вам всего самого доброго, любви и счастья!!!

Творческих и коммерческих успехов!!!

Всегда ваш, Ukraina

http://www.sql.ru/forum/1146017/s-prazdnikom-8-marta-vas-milye-predstaviteli-prekrasnoy-poloviny-chelovechestva

ДД! У меня периодически возникает проблема при открытии формы с критерием отбора.

stLinkCriteria должно отбирать 'Id=219' Вместо этого открывается все что угодно. только не 219.

Иногда бывает что значение DataEntry магическим образом становится True и тогда форма открывается для новой записи. Как это лечить я знаю-устанавливаю False и все ОК. а вот когда открывает не по тому критерию не могу понять в чем дело. Да, DataEntry стоит Fаlse. Я ее даже программно принудительно устанавливаю на всяк случай.

код приблизительно такой.

Dim stLinkCriteria As String

stLinkCriteria='Id=' & me.IdField
DoCmd.OpenForm "frNl", , , stLinkCriteria, acFormEdit, acWindowNormal, varOpenArgs
Forms![frmN].DataEntry = False

Может кто сталкивался с такой проблемой?

http://www.sql.ru/forum/1145951/linkcriteria-perestal-otbirat-zapis-pri-otkrytii-formy

Таблица excel открыта в Access, используя "Внешние данные".
Что сделать, чтобы можно было её корректировать в Access?
База в монопольном режиме.
Преобразовать в локальную таблицу не предлагать.

Спасибо

http://www.sql.ru/forum/1145876/korrektirovka-vneshnih-dannyh

есть две таблицы
таблица № 1 отправления

город	тариф	вес	объем	стоимость
Пермь	авиа	10	0,3	10000
Ростов	авто	450	2,3	200000

таблица №2 тарифы

грузоперевозчик	город	тариф	min	плотн.	до 50	 до 100	до 300	до 500	страх%
компания1	Пермь	авто	200	200	10	9	8	7	0,1
компания1	Пермь	авиа	30	167	20	18	16	14	0,2
компания2	Ростов	авто	50	200	15	12	10	9	0,1
компания2	Ростов	авиа	30	167	30	24	20	19	0,15

где:
плотн. - плотность отправления. Если плотность отправления меньше значения плотн. то вес= объем*плотн., иначе вес = вес
min - минимальный вес, если вес отправления (с учетом плотности) меньше min, то вес отправления = min
до 50, до 100 и .... - тарифы за килограмм отправления , соответственно если общий вес отправления до 50 кг , до 100 кг и т.д.
страх% - страховой сбор , % от стоимости отправления


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

http://www.sql.ru/forum/1145866/podchinennye-zaprosy

http://www.sql.ru/forum/1145865/help-me-please

Access 2010 ругается на код

Private Declare Function CallWindowProc Lib "user32" Alias _
   "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal Hwnd As Long, _
   ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long



'HOOK
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function GetFocus Lib "user32" () As Long
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal Hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Declare Function MoveWindow Lib "user32.dll" (ByVal Hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Public Declare Function GetWindowRect Lib "user32.dll" (ByVal Hwnd As Long, lpRect As Rect) As Long
Public Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINT_TYPE) As Long

http://www.sql.ru/forum/1145765/perestal-rabotat-datepicker

Господа, выгружаю данные из MySQl, го вместо "Петя привет!" у меня ??????????. Как это лечится?

http://www.sql.ru/forum/1145672/problema-s-kodirovkoy-pri-vygruzki-dannyh-iz-mysql

Office 2003 корявые шрифты, что делать?
//s019.radikal.ru/i632/1503/3c/bf13e39d13cc.png
Пробовал proflwiz.exe /d не помогло :(
пробовал 16\32 бита ставить- не помогло :(

http://www.sql.ru/forum/1145624/office-2003-koryavye-shrifty-chto-delat

День добрый.
Запускаю:

DoCmd.OutputTo acOutputReport, "Rpt", acFormatPDF, "Rpt.pdf", True

События Report_Current(), Report_Activate(), которые отлично отрабатываются при запуске отчета вручную не отрабатываются при использовании DoCmd.OutputTo acOutputReport. В чем проблема?? Спасибо.

http://www.sql.ru/forum/1145623/docmd-outputto-acoutputreport-i-sobytiya-report

Здравстуйте.
Пытаюсь программно удалить один столбец в нескольких файлах:

Function ryhsdryh()
Dim strFile As String
  Dim xlApp As Excel.Application
  Dim xlBook As Excel.Workbook
  Dim xlSheet As Excel.Worksheet
    strFile = Dir("C:\тест\")
    Do Until strFile = ""
        If (Right(strFile, 3) = "xls") Or (Right(strFile, 4) = "xlsx") Then
            Set xlApp = CreateObject("Excel.Application")
            Set xlBook = xlApp.Workbooks.Open("C:\тест\" & strFile)
            Set xlSheet = xlBook.Worksheets(1)
            xlSheet.Activate
            With xlSheet
                Columns("B:B").Select
                Selection.Delete
            End With
            xlBook.Save
            xlBook.Close
            Set xlSheet = Nothing
            Set xlBook = Nothing
            Set xlApp = Nothing
        End If
        strFile = Dir
    Loop
End Function

Удаляется столбец только в первом перебираемом файле и всё. На втором вылетает ошибка, указывающая на строку с Columns("B:B").Select, типа Global Failed.
Помогите, пожалуйста, найти ошибку.
Заранее спасибо.

http://www.sql.ru/forum/1145620/udalenie-stolbca-v-neskolkih-faylah-excel

Вспоминаю акцесс после 15ти летнего перерыва. Требуется сделать калькулятор стоимости для типографии. Пока загвоздка в следующем: есть 2 таблицы, в первой параметры заказа - "ТИРАЖ_а", "красочность", "бумага" и т.д., во второй всего два важных столбца: "ТИРАЖ_б" (с шагом 10экз) и "стоимость печати" (с шагом 0,05у.е). Как сделать, что бы при заполнении некой формы, в момент ввода параметра "ТИРАЖ_а" он сравнивался с параметром "ТИРАЖ_б" из таблицы 2 и в свободном поле отобразилось соответствующее ему значение "стоимость печати"

http://www.sql.ru/forum/1145599/pomogite-s-vyborkoy

Дано
В одной таблице есть номера телефонов вида 8ХХХХХХХХХХХХХХ разных операторов: локальные, междугородние, международные и пр.
В другой таблице (а-ля классивикатор) есть данные вида - префикс оператора (вида 8903, 81090, 890366) полезная инфа1, полезная инфа2. Всего около 1000 строк.

Задача: Необходимо по номеру из первой таблицы выцепить полезную инфу из другой таблицы и отправить в третью.
Я acssess сегодня первый раз увидел, и пока не очень понимаю внутреннюю кухню. На данный момент директива решения данной задачи складывается из того что номер проверяется на вхождение в классификаторе, с последующим отчекрыживанием правой крайней цифры, побеждает наиболее полное вхождение. (синтаксис VBA - отдельная песня).
Вопрос оптимальный ли это способ? есть ли вариант через регулярки решить эту задачу. В качестве инструментов можно использовать разные решения и среды.

http://www.sql.ru/forum/1145571/kak-optimalnee-proizvesti-vyborku

Есть база MySql в базу MS ACCESS 2010 через ODBC добавлены связанные с MySQL таблицы.

Если открыть любую таблицу, то можно редактировать или удалять записи.

Делаю запрос на выборку, в котором связываю две таблицы. В итоге при попытке редактировать получаю "запрос объект recordset не является обновляемым"

Подскажите, как побороть?

http://www.sql.ru/forum/1145568/zapros-obekt-recordset-ne-yavlyaetsya-obnovlyaemym-access-odbc-mysql

Здравствуйте, уважаемые формучане.

Такая проблема. Есть готовое приложение на акссес (код писал не я). Стабильно работало пол года до сегодняшнего дня. Сегодня непонятно по каким причинам перестала открываться одна форма. Пользователи говорят что ничего особенного не делали. Смотрю отладчиком что происходит при открытии, и вижу что приложение падает на строке:
'N1 = .RecordsetClone!RestUS - .RecordsetClone!LostUS + .RecordsetClone!IncomeUS'
с ошибкой "Run-time error '94': Invalid use of null", а именно на значении LostUS.
Внимание вопрос! Откуда взялся в этом поле null, если в запросе и таблице, которые лежат под формой никаких null нет. Там стоят максимум нолики. И второй вопрос как эту беду победить? Ставить проверку полей на null?

Заранее благодарю.

http://www.sql.ru/forum/1145563/znachenie-polya-null-v-recordsetclone

В форме есть три флажка, два из них состоят в группе, а третий отдельно.
Флажки в группе имеют своим значением поле формы. По клику каждый заносит в поле своё значение (15 или 25). Третий по клику делает доступным это поле формы и позволяет внести произвольное значение.
Нужно по открытию формы, по переходу по записям чтобы флажки отображали реальное состояние поля. То есть при значении 15 - был включенным первый флажок, при 25- второй, при любом другом - третий, при нулевом - все выключены.

Как вариант код (не рабочий). Ошибка "не возможно присвоить значение". Может из-за того что изначально форма запускается защищенной от редактирования?

Private Sub Form_Current()

Select Case Me.ПлДеньПлатежа
    Case Is = Null
        Me.ФлДеньПлатежа1 = False
        Me.ФлДеньПлатежа2 = False
        Me.флИное = False
    Case Is = 15
        Me.ФлДеньПлатежа1 = True
        Me.ФлДеньПлатежа2 = False       
        Me.флИное = False
    Case Is = 25
        Me.ФлДеньПлатежа1 = False    
        Me.ФлДеньПлатежа2 = True
        Me.флИное = False    
    Case Else
        Me.ФлДеньПлатежа1 = False
        Me.ФлДеньПлатежа2 = False
        Me.флИное = True
End Select

End Sub

http://www.sql.ru/forum/1145536/vkluchenie-i-vykluchenie-flazhkov-po-znacheniu-polya

Все привет!
Есть БД MySQL. Я с ней соединяюсь таким вот образом

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String
'connect to MySQL server using Connector/ODBC
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 Unicode Driver};" & "SERVER=localhost ;" & " DATABASE=test;" & "UID=root;PWD=; OPTION=3"
conn.Open

теперь вопрос: как как установить соединение при загрузке формы???
Прописал в событие в лоадФорм, но соед. не устанавливается((
Как автоматизировать соединение?

http://www.sql.ru/forum/1145499/kak-avtomaticheski-soedinyatsya-s-bd

Есть база данных db2-d.mdb на Access на сервере и клиентская db2.mdb у пользователя, выступающая в роли интерфейса для работы с базой db2-d.mdb. Путем преобразования стандартным способом в Access: Сервис-Служебные программы-Мастер преобразования в формат SQL Server. Какую базу нужно преобразовывать: db2-d.mdb или db2.mdb? Если преобразовывать db2-d.mdb, то будет два файла: db2-d.mdf на сервере и db2-d.adp у пользователя на ПК. Соответственно нет возможности работать с пользовательским интерфейсом. Хотя данные основные в db2-d. Но больше толку от преобразования db2.mdb. Некоторые формы работают, таблицы открываются с данными. Но сказать, что полностью корректно работает, нельзя. В чем причина? Как правильно перенести базу из Access в MS SQL? Какую базу при этом преобразовывать?

Модератор: Тема перенесена из форума "Microsoft SQL Server".

http://www.sql.ru/forum/1145490/perenos-bazy-iz-access-v-ms-sql

Здравствуйте!
Подскажите, пожалуйста, как можно решить следующую проблему:
есть форма, в которой большинство строк заполняются вручную, но нужно сделать так, чтобы названия, которые вводились ранее сохранялись и выпадали в виде списка в следующий раз.
Заранее спасибо!

http://www.sql.ru/forum/1145485/obnovlyaemye-spravochniki

Всем ,здравствуйте!
Суть проблемы вот в чем:
есть форма на ней подчиненная таблица и 2 поля(ФИО,Организация) и один флажок.
все это должно помочь пользователю отсеят нужные ему записи,я сделал поиск по фамилии и организации,и написал запрос при котором если на форме флажок=true то выполнялся поиск всех записей у которых в графе соглашение стоит галка.Но вот как объеденить эти запросы-это проблема,пробовал с Union и ничего нормального не получилось:

(SELECT Запрос1.№, Запрос2.[Тип подписи], Запрос2.ФИО, Запрос1.[Дата], Запрос2.Выражение1, Запрос1.Организация, Запрос1.Соглашение, Запрос1.Актуальность
FROM Запрос1, Запрос2
WHERE (((Запрос1.№)=[Запрос2].[№])))
UNION
(SELECT Запрос12.№, Запрос12.[Тип подписи], Запрос12.ФИО, Запрос12.[Дата], Запрос12.Выражение1, Запрос12.Организация ,Запрос12.Соглашение, Запрос12.Актуальность
FROM Запрос1, Запрос12
WHERE ((Запрос1.№)=Запрос12.№) AND ((Запрос1.Соглашение)=True) AND (Forms.ГФ.Флажок23=True) /*если нажат на форме то выполнить*/
)
ORDER BY Запрос1.№;
Первая часть ищет записи по введенным аргументам а вторая все записи с галкой,в итоге выводиться все,а надо чтоб выводились те люди из первого запроса у которых стоит флажок.

http://www.sql.ru/forum/1145462/access-sql-obedenenie

Первое выражение и сразу зашквар, ну почему ему не нравится! "Ошибка синтаксиса во введенном выражении"

Предположим
IIf(IsNull([Брак]), "1", "2")

Что не так-то?

http://www.sql.ru/forum/1145320/glupyy-vopros-pro-iif