Объединить ячейки при повторе данных

Вторник, 10 Июня 2014 г. 10:06 + в цитатник

Доброго времени суток..
Есть у меня такой код для выгрузки в Excel
Все выгружается вот таким образом (см.рис)

+

Private Function Oplaty()
Dim XL As Object, XLBook As Object, XLSheet As Object
    Dim ClientDir As String, TmplFile As String, OutputDir As String, OutputFile As String, Pos As Long, df As String
    Dim rst As Object, SubRst As Object, StrN As Long
    Dim opl As String
    Dim LogN As Integer, VzakN As Integer, Nach As Integer
 
'    Set rst = CurrentDb.OpenRecordset("SELECT * FROM ОплатыДаты ORDER BY Номер", dbOpenDynaset, dbSeeChanges)
 
Set rst = CurrentDb.OpenRecordset("SELECT Заказ.Номер, Заказ.Поставщик, Заказ.НомерВэд, Оплата.Сумма, Оплата.Подписан, " _
& " Оплата.Получены, [Итоговая сумма заказа].сумм, [Сумма]/[сумм] AS Проценты" _
& " FROM (Заказ INNER JOIN Оплата ON Заказ.Номер = Оплата.Заказ)" _
& " INNER JOIN [Итоговая сумма заказа] ON Заказ.Номер = [Итоговая сумма заказа].Номер", dbOpenDynaset, dbSeeChanges)
 
    TmplFile = "\\server.a\Data\Отдел\! ABS\Шаблоны\Оплаты.xlsx"
 
    sPatchtDir = Environ("ALLUSERSPROFILE") & "\Оплаты"
        If Dir$(sPatchtDir, vbDirectory) = "" Then
        MkDir sPatchtDir
    End If
 
    OutputFile = sPatchtDir & "\Оплаты.xlsx"
    FileCopy TmplFile, OutputFile
           ''Создать объекты Excel
           
'On Error GoTo OLEError
    Set XL = CreateObject("Excel.Application")
 
'On Error GoTo AnyError
    Set XLBook = XL.Workbooks.Open(OutputFile)
 
           ''Вывод в конкретный шаблон
 
           ''1-й лист Заполняем шапку
        Set XLSheet = XLBook.Worksheets(1)
        XLSheet.Activate
        XLSheet.Cells(1, 1).value = "Название компании"
        XLSheet.Cells(1, 2).value = "Контактное лицо"
        XLSheet.Cells(1, 3).value = "№ заказа"
        XLSheet.Cells(1, 4).value = "Инвойс по проекту"
        XLSheet.Cells(1, 5).value = "Сумма инвойса"
        XLSheet.Cells(1, 6).value = "Сумма к оплате"
        XLSheet.Cells(1, 7).value = "процентная часть"
        XLSheet.Cells(1, 8).value = "Дата подачи счета менедрером ОМЗ"
        XLSheet.Cells(1, 9).value = "Дата подтверждения инвойса Стройковым М.М."
        XLSheet.Cells(1, 10).value = "Дата передачи подтвержденного инвойса в отдел ВЭД"
        XLSheet.Cells(1, 11).value = "Дата оплаты"
        XLSheet.Cells(1, 12).value = "Дата получение оплаты"
 
           ''Выгрузка заказов
 
        StrN = 2
        Do While Not rst.EOF
'        XLSheet.Cells(StrN, 1) = rst![ЮридическоеНазвание]
        XLSheet.Cells(StrN, 2) = rst![Поставщик]
        XLSheet.Cells(StrN, 3) = rst![НомерВЭД]
        XLSheet.Cells(StrN, 4) = rst![Подпроект]
        XLSheet.Cells(StrN, 5) = rst![сумм]
        XLSheet.Cells(StrN, 6) = rst![Сумма]
        XLSheet.Cells(StrN, 7) = rst![Проценты]
        XLSheet.Cells(StrN, 8) = rst![СчетПодан]
        XLSheet.Cells(StrN, 9) = rst![Подписан]
        XLSheet.Cells(StrN, 10) = rst![ДатаПередачиВЭД]
        XLSheet.Cells(StrN, 11) = rst![ДатаПП]
        XLSheet.Cells(StrN, 12) = rst![Получены]
        Postavshik = rst![Поставщик]
            rst.MoveNext
            StrN = StrN + 1
        Loop
    
    XLBook.Save
    XLBook.Application.ActiveWorkbook.RefreshAll
    XL.Visible = True
    Oplaty = True
    Exit Function
 
'OLEError:
'    MsgBox "Microsoft Excel - не установлен.", , "Ошибка вывода формы " & TmplName
'    Oplaty = False
'    Exit Function
'
'AnyError:
'    MsgBox "Неопознанная ошибка.", , "Ошибка вывода формы " & TmplName
'    Oplaty = False
'    Exit Function
End Function

Подскажите, как можно объединить ячейки с повторяющимися данными
т.е чего бы в итоге получить хотелось бы, если в столбце в ячейках идет повторение, тогда объединить эти ячейки если пустая ячейка тогда просто пропустить её

http://www.sql.ru/forum/1099469/obedinit-yacheyki-pri-povtore-dannyh

Комментарии (0)

Аналог событий для форм, применимый к таблицам

Понедельник, 09 Июня 2014 г. 16:46 + в цитатник

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

http://www.sql.ru/forum/1099357/analog-sobytiy-dlya-form-primenimyy-k-tablicam

Комментарии (0)

Где в access увеличить timeout, чтобы запрос к SQL SERVER 2000 мог производиться дольше?

Понедельник, 09 Июня 2014 г. 16:38 + в цитатник

На кнопку на форме access повешен запрос к БД MS SQL SERVER 2000.
Если запрос длится слишком долго, процедура завершается с ошибкой.
Как увеличить timeout?

http://www.sql.ru/forum/1099354/gde-v-access-uvelichit-timeout-chtoby-zapros-k-sql-server-2000-mog-proizvoditsya-dolshe

Комментарии (0)

Controls.Add - Method of Data member not found

Понедельник, 09 Июня 2014 г. 15:23 + в цитатник

Всем привет,

хочу добавить Textbox на существующею форму. Код ниже:

Private Sub Command0_Click()
    
   
    Set cControl = Me.Controls.Add("Forms.TextBox.1", "MyTextBox", True)
     
    With cControl
        .Width = 150
        .Height = 50
        .Top = 20
        .Left = 20
        .ZOrder (0)
    End With
    
End Sub

Выдает ошубку "Method of Data member not found" на Controls.ADD.

Подскажите, что нужно сделать, чтобы он понемал функцию ADD???

http://www.sql.ru/forum/1099336/controls-add-method-of-data-member-not-found

Комментарии (0)

SendEMail. Учетная запись.

Понедельник, 09 Июня 2014 г. 14:40 + в цитатник

Добрый день.
Для отправки почты пользуюсь функцией SendEMail. Вот она:

Global Const SUCCESS_SUCCESS = 0
Global Const MAPI_USER_ABORT = 1
Global Const MAPI_E_FAILURE = 2
Global Const MAPI_E_LOGIN_FAILURE = 3
Global Const MAPI_E_DISK_FULL = 4
Global Const MAPI_E_INSUFFICIENT_MEMORY = 5
Global Const MAPI_E_BLK_TOO_SMALL = 6
Global Const MAPI_E_TOO_MANY_SESSIONS = 8
Global Const MAPI_E_TOO_MANY_FILES = 9
Global Const MAPI_E_TOO_MANY_RECIPIENTS = 10
Global Const MAPI_E_ATTACHMENT_NOT_FOUND = 11
Global Const MAPI_E_ATTACHMENT_OPEN_FAILURE = 12
Global Const MAPI_E_ATTACHMENT_WRITE_FAILURE = 13
Global Const MAPI_E_UNKNOWN_RECIPIENT = 14
Global Const MAPI_E_BAD_RECIPTYPE = 15
Global Const MAPI_E_NO_MESSAGES = 16
Global Const MAPI_E_INVALID_MESSAGE = 17
Global Const MAPI_E_TEXT_TOO_LARGE = 18
Global Const MAPI_E_INVALID_SESSION = 19
Global Const MAPI_E_TYPE_NOT_SUPPORTED = 20
Global Const MAPI_E_AMBIGUOUS_RECIPIENT = 21
Global Const MAPI_E_MESSAGE_IN_USE = 22
Global Const MAPI_E_NETWORK_FAILURE = 23
Global Const MAPI_E_INVALID_EDITFIELDS = 24
Global Const MAPI_E_INVALID_RECIPS = 25
Global Const MAPI_E_NOT_SUPPORTED = 26
Global Const MAPI_E_NO_LIBRARY = 999
Global Const MAPI_E_INVALID_PARAMETER = 998

Global Const MAPI_ORIG = 0
Global Const MAPI_TO = 1
Global Const MAPI_CC = 2
Global Const MAPI_BCC = 3

Global Const MAPI_UNREAD = 1
Global Const MAPI_RECEIPT_REQUESTED = 2
Global Const MAPI_SENT = 4


'***********************
' FLAG Declarations
'***********************
Global Const MAPI_LOGON_UI = &H1
Global Const MAPI_NEW_SESSION = &H2
Global Const MAPI_DIALOG = &H8
Global Const MAPI_UNREAD_ONLY = &H20
Global Const MAPI_ENVELOPE_ONLY = &H40
Global Const MAPI_PEEK = &H80
Global Const MAPI_GUARANTEE_FIFO = &H100
Global Const MAPI_BODY_AS_FILE = &H200
Global Const MAPI_AB_NOMODIFY = &H400
Global Const MAPI_SUPPRESS_ATTACH = &H800
Global Const MAPI_FORCE_DOWNLOAD = &H1000

Global Const MAPI_OLE = &H1
Global Const MAPI_OLE_STATIC = &H2

Type MapiRecip
   Reserved As Long
   RecipClass As Long
   Name As String
   Address As String
   EIDSize As Long
   EntryID As Long 'Originally String
End Type

Type MAPIFileTag 'Not used at all now
   Reserved As Long
   TagLength As Long
   tag() As Byte
   EncodingLength As Long
   Encoding() As Byte
End Type

Type MapiFile
   Reserved As Long
   Flags As Long
   Position As Long
   PathName As String
   FileName As String
   FileType As Long 'Originally MAPIFileTag
End Type

Type MAPIMessage
   Reserved As Long
   Subject As String
   NoteText As String
   MessageType As String
   DateReceived As String
   ConversationID As String
   Flags As Long ' Swapped with Originator
   Originator As Long ' Swapped with Flags
   RecipCount As Long
   Recipients As Long
   FileCount As Long ' Swapped with Files
   Files As Long ' Swapped with Filecount
End Type


Declare Function MAPILogon Lib "c:\program files\outlook express\msoe.dll" _
(ByVal UIParam&, ByVal User$, ByVal Password$, _
ByVal Flags&, ByVal Reserved&, Session&) As Long
Declare Function MAPILogoff Lib "c:\program files\outlook express\msoe.dll" _
(ByVal Session&, ByVal UIParam&, ByVal Flags&, _
ByVal Reserved&) As Long
Declare Function MAPISaveMail Lib "c:\program files\outlook express\msoe.dll" _
(ByVal Session As Long, ByVal UIParam As Long, _
Message As MAPIMessage, ByVal Flags As Long, _
ByVal Reserved As Long, MsgID As String) As Long
Declare Function MAPISendMail Lib "c:\program files\outlook express\msoe.dll" _
(ByVal Session As Long, ByVal UIParam As Long, _
Message As MAPIMessage, ByVal Flags As Long, _
ByVal Reserved As Long) As Long
Declare Function MAPIAddress Lib "c:\program files\outlook express\msoe.dll" _
(lInfo&, ByVal Session&, ByVal UIParam&, _
Caption$, ByVal nEditFields&, Label$, nRecipients&, Recip() _
As MapiRecip, ByVal Flags&, ByVal Reserved&) As Long
Declare Function MAPIDeleteMail Lib "c:\program files\outlook express\msoe.dll" _
(ByVal Session&, ByVal UIParam&, ByVal MsgID$, _
ByVal Flags&, ByVal Reserved&) As Long
Declare Function MAPIDetails Lib "c:\program files\outlook express\msoe.dll" _
(ByVal Session&, ByVal UIParam&, Recipient As MapiRecip, _
ByVal Flags&, ByVal Reserved&) As Long
Declare Function MAPIFindNext Lib "c:\program files\outlook express\msoe.dll" _
(ByVal Session&, ByVal UIParam&, MsgType$, SeedMsgID$, _
ByVal Flag&, ByVal Reserved&, MsgID$) As Long
Declare Function MAPIReadMail Lib "c:\program files\outlook express\msoe.dll" _
(lMsg&, nRecipients&, nFiles&, ByVal Session&, _
ByVal UIParam&, MessageID$, ByVal Flag&, _
ByVal Reserved&) As Long
Declare Function MAPIResolveName Lib "c:\program files\outlook express\msoe.dll" _
(ByVal Session&, ByVal UIParam&, ByVal UserName$, _
ByVal Flags&, ByVal Reserved&, Recipient As MapiRecip) As Long
Declare Function MAPISendDocuments Lib "c:\program files\outlook express\msoe.dll" _
(ByVal UIParam&, ByVal DelimStr$, ByVal FilePaths$, _
ByVal FileNames$, ByVal Reserved&) As Long



Public Sub SendEMail(strEmailAddress As String, strFileName As String, strSubject As String, strBody As String)
Dim Junk As Long
Dim OESession As Long
Dim OEmessage As MAPIMessage
Dim OERecipients() As MapiRecip
Dim OEFiles() As MapiFile
Dim OERecipientCount As Long
Dim OEFileCount As Long
ReDim OERecipients(0 To 100)
ReDim OEFiles(0 To 10)

    ' Login to Outlook Express
    MAPILogon 0, "", "", MAPI_NEW_SESSION, 0, OESession
    
    ' Set subject and message text
    OEmessage.NoteText = strBody
    OEmessage.Subject = strSubject
    
    ' Set recipient address (assuming only one)
    OERecipients(0).RecipClass = MAPI_TO
    OERecipients(0).Address = StrConv("smtp:" & strEmailAddress, vbFromUnicode)
    OERecipientCount = 1
    ReDim Preserve OERecipients(0 To OERecipientCount - 1)
    OEmessage.RecipCount = OERecipientCount
    OEmessage.Recipients = VarPtr(OERecipients(0))
    
    'Attach any files (assuming only one)
    OEFileCount = 1
    OEFiles(0).PathName = StrConv(strFileName, vbFromUnicode)
    
    ReDim Preserve OEFiles(0 To OEFileCount - 1)
    OEmessage.FileCount = OEFileCount
    OEmessage.Files = VarPtr(OEFiles(0))
    
    ' Send the message
     Junk = MAPISendMail(0, 0, OEmessage, 0, 0)
     If Junk <> 0 Then MsgBox "OE SendMail failure (" & Format$(Junk) & ")"
End Sub

Она замечательно работает. Все устраивает. Но. Отправка происходит из почтового ящика заданного по умолчанию. Можно ли усовершенствовать данную функцию, добавив в нее возможность отправлять письма используя учетную запись не определенную по умолчанию.

Вин ХР. Outlook Express

Заранее спасибо

http://www.sql.ru/forum/1099316/sendemail-uchetnaya-zapis

Комментарии (0)

Запрос на объеденение

Понедельник, 09 Июня 2014 г. 12:55 + в цитатник

Здравствуйте, есть запрос:

SELECT DISTINCT База.ИНН, База.Код, База.ИНН as название, "","" as Наименование,"","","","","","","","",""
FROM База
ORDER BY  База.ИНН
Union SELECT DISTINCT База.ИНН,База.Код,  База.КоличествоРаботников, "","" as Наименование,"","","","","","","","",""
FROM База
ORDER BY  База.ИНН
UNION SELECT  База.ИНН,База.Код, База.НаименованиеОсновногоСредства, База.ГодПриобретения, База.Сумма, База.ГодИстеченияСрока, База.СрокПолезногоПользования, База.количество,  База.ПотребностьНаименованиеОС, База.Характеристики, База.ПотребностьКоличество, База.Стоимость,  Round((База.ПотребностьКоличество*База.Стоимость)/1000,3), База.ОбоснованиеПотребности
FROM База
ORDER BY База.ИНН
UNION SELECT  База.ИНН,База.Код, "Итого: ", "", Sum(База.Сумма), "","", Sum(База.количество), "", "", Sum(База.ПотребностьКоличество), "", Sum(Round((База.ПотребностьКоличество*База.Стоимость)/1000,3)), ""
FROM База
GROUP BY База.ИНН,База.Код;

А когда выполняется, то выдает непонятную сортировку. А необходимо:
Учреждение
40 человек
6377777777 1 принтер 5000,00 2005 2007 1
6377777777 1 МФУ новый**** 1 6600,00 6600,00 Неоходим
Итого: 5000,00 1 1 6600,00 6600,00

Помогите с сортировкой или нужно поправить сам запрос ?

http://www.sql.ru/forum/1099291/zapros-na-obedenenie

Комментарии (0)

Содержание папки записать в базу ссылками. VBA

Воскресенье, 08 Июня 2014 г. 21:57 + в цитатник

Проблема вот в чем: с формы, нажимая на кнопку, должно открывать окно с выбором папки. Выбирая эту папку, содержимое( а именно только изображения интересуют) должны записываться ссылки на эти картинки.
Помогите с кодом, пожалуйста. Или ткните, где можно прочитать, желательно с примерами:)

Заранее спасибо.

http://www.sql.ru/forum/1099220/soderzhanie-papki-zapisat-v-bazu-ssylkami-vba

Комментарии (0)

Помогите правильно создать логическую модель выездного ресторана

Воскресенье, 08 Июня 2014 г. 16:09 + в цитатник

Нужно 7 таблиц,как их правильно оформить. Не знаю что с поставщиками

http://www.sql.ru/forum/1099199/pomogite-pravilno-sozdat-logicheskuu-model-vyezdnogo-restorana

Комментарии (0)

XMLHttpRequest - как вявить отсутствие связи с интернетом ?

Воскресенье, 08 Июня 2014 г. 15:42 + в цитатник

Отправляю данные серверу методом POST в асинхронном режиме и жду ответа с кодом 4.
Но проблема в том, что при отсутствии интернета XMLHttpRequest тоже возвращает код 4. Бред какой-то.

http://www.sql.ru/forum/1099196/xmlhttprequest-kak-vyavit-otsutstvie-svyazi-s-internetom

Комментарии (0)

Вывести в DBGrid вместо ID названия

Воскресенье, 08 Июня 2014 г. 15:08 + в цитатник

Здравствуйте.
Есть 3 таблицы:

Тема
Поле 1- ID_Tem ID
Поле 2- Название

Пользователи
Поле 1- ID_Uch
Поле 2-Имя

Журнал
Поле 1-ID_Uch
Поле 2-ID_Tem
Поле 3-Результат

Я хочу Журнал вывести в DBGrid, но чтобы вместо ID отображались названия.
Пробую через такой SQL-запрос:

ADOQuery1->SQL->Add("SELECT * FROM Журнал INNER JOIN Користувачі ON ID_Uch = ID_Uch");

Пишет "Выражение объединение не поддерживается"
Подскажите пожалуйста.

http://www.sql.ru/forum/1099193/vyvesti-v-dbgrid-vmesto-id-nazvaniya

Комментарии (0)

Пропадает календарик в поле даты в Аccess 2007

Воскресенье, 08 Июня 2014 г. 02:40 + в цитатник

Здравствуйте. В access 2007 при вводе даты в поле даты выскакивает календарик, но как только прописываешь маску ввода, то календарик уже не появляется. Подскажите пожалуйста в чем тут может быть дело?

http://www.sql.ru/forum/1099166/propadaet-kalendarik-v-pole-daty-v-access-2007

Комментарии (0)

Подсчитать остаток вакцины для прививок

Воскресенье, 08 Июня 2014 г. 00:53 + в цитатник

База данных MS ACCESS 2003
Таблицы:
Студенты
Название вакцины
Прививки
Приход вакцины
Расход вакцины

Необходимо:
Посчитать остаток вакцины, и занести ее в таблицу "остаток вакцины".
В Таблице "приход вакцины" указывается: Название вакцины - Количество пришлой вакцины 50 (Мл)
В Таблице "Прививки" указывается: Студент которому сделана - Доза 10 (Мл)
Прививка делается каждому студенту с указанием дозы - 10 Мл
как посчитать остаток чтобы выводило Название вакцины сколько использовали, сколько было и сколько осталось?

Ребята выручайте пожалуйста, дипломный проект делаю срочно нужна помощь!!!!

Ссылка на базу данных: http://yadi.sk/d/K4HZVJSaSctRA

http://www.sql.ru/forum/1099159/podschitat-ostatok-vakciny-dlya-privivok

Комментарии (0)

Выполнение программного кода VBA из текста

Суббота, 07 Июня 2014 г. 13:14 + в цитатник

Добрый день!
Помогите пожалуйста с такой проблемой: При нажатии кнопки на форме, открывается другая форма, в двух текстовых полях которой передается имя формы и имя объекта формы (в данном случае ComboBox). Необходимо после нажатии кнопки на второй форме выполнялась процедура очистки ComboBox в первой форме.
Я поступил таким образом:

Private Sub lblClear_Click()
 Dim Форма, Объект As String
 Dim Команда As String
    DoCmd.Close
     Форма = "Form_" & txtForm_Name
     Объект = txtObiekt
     Команда = Форма & "." & Объект
End Sub

В итоге должна выполниться команда:

   Form_frmFind.cboFind = ""

Вот, как добиться выполнения этой команды?

http://www.sql.ru/forum/1099118/vypolnenie-programmnogo-koda-vba-iz-teksta

Комментарии (0)

Создание отчета в зависимости от значения в выподающей форме

Пятница, 06 Июня 2014 г. 22:27 + в цитатник

Доброго времени суток.Возникла проблема с формированием отчета(грубо говоря чека) в зависимости от значений выбранных в форме. Нашел несколько тем на форуме , но не смог понять как это сделать. Надо чтобы в форме продажи была кнопка формирования отчета по выбранным данным из формы, и также в форме поставки! спс за внимание) P.S мог что то не очень корректно написать, но надеюсь что смысл моих слов дошел)

http://www.sql.ru/forum/1099077/sozdanie-otcheta-v-zavisimosti-ot-znacheniya-v-vypodaushhey-forme

Комментарии (0)

помогите составить КРАСИВОЕ условие WHERE по нескольким полям со списком

Пятница, 06 Июня 2014 г. 20:52 + в цитатник

поля таблицы: Этап1, Этап2...ЭтапN
на форме, соответственно, поля со списком: Э1, Э2...
данные каждого списка дополнены пунктом <ВСЕ>, при этом ключевое поле списка равно 0
нужно сваять условие отбора, при этом в ситуации "выбрано <ВСЕ>" список из условия должен исключаться.
У меня получается куча однообразных строк:

If Э1 > 0 Then
strWhere = "[Этап1] =" & Э1 & " AND "
End If
If Э2 > 0 Then
strWhere = strWhere  & "[Этап2] =" & Э2 & " AND "
End If
..............
If ЭN > 0 Then
strWhere = strWhere  & "[ЭтапN] =" & ЭN & " AND "
End If
If Len(strWhere) >0 Then
strWhere = "WHERE " & Left(strWhere, Len(strWhere) - 5
End if

Другого нет способа?

http://www.sql.ru/forum/1099060/pomogite-sostavit-krasivoe-uslovie-where-po-neskolkim-polyam-so-spiskom

Комментарии (0)

Подстановка сразу в два поля

Пятница, 06 Июня 2014 г. 19:29 + в цитатник

Здравствуйте. Прошу помочь.
У меня есть таблица Услуги, в которой 2 поля [Услуга], [Цена].
Есть таблица ДопУслуги. В ней есть такие поля как: Клиент, Дата, Стоимость, Услуга, Кол-во.
Я сделал подстановку в поле услуга и теперь там выпадает список услуг из таблицы Услуги. Но мне нужно чтоб в зависимости от выбранной услуги считалась стоимость = Услуги.Цена * Кол-во.
Я в режиме конструктора в поле с подстановкой установил параметр Присоединенный столбец = 2. Так как я в мастере подстановок выбрал два столбца, чтобы в выпадающем меню рядом с услугой стояла цена для наглядности, то теперь там отображается услуга, но хранится цена, далее вычисляемое поле Стоимость и казалось бы задача решена. Но после создания запроса на выборку записей из нескольких таблиц, я обнаружил, что там уже вместо услуги отображается цена.
Теперь мне нужно найти новый способ посчитать стоимость, но я не знаю как это осуществить.

http://www.sql.ru/forum/1099040/podstanovka-srazu-v-dva-polya

Комментарии (0)

Объединение таблиц\запросов

Пятница, 06 Июня 2014 г. 18:40 + в цитатник

Здравствуйте. Прошу помочь.
У меня есть 3 таблицы. Какие-то поля у них различны, но есть и поля которые есть во всех 3-х. Такие как Клиент, Дата заказа, Дата закрытия, Стоимость.
Причем в одной из таблиц есть поле с подстановкой Услуга. В нем записан тип услуги, Услуга1, Услуга2, Услуга3. В двух других такого поля нет, т.к. они каждая для своей услуги (Услуга4, Услуга5).
Мне нужно получить таблицу или запрос: Услуга, Клиент, Дата заказа, Дата Закрытия, Стоимость.
У меня есть 3 запроса, для каждой таблицы, результат которых Услуга, Клиент, Дата заказа, Дата Закрытия, Стоимость.
Я не зная как это сделать. Не знаю как будет проще сделать запрос собирающий данные из всех таблиц или запрос объединяющий запросы.

http://www.sql.ru/forum/1099037/obedinenie-tablic-zaprosov

Комментарии (0)

Установка нужной даты

Пятница, 06 Июня 2014 г. 16:54 + в цитатник

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

http://www.sql.ru/forum/1099007/ustanovka-nuzhnoy-daty

Комментарии (0)

добавление данных в sql таблицу

Пятница, 06 Июня 2014 г. 15:51 + в цитатник

Добрый день!

имеется access табличка, состоящая примерно из 15000 строк. в этой же базе есть прилинкованная sql табличка. Данная операция будет не разовая (где-то 8-10 раз за день).

Подскажите, каким способом можно наиболее быстро добавить все данные из акцесной таблицы в sql-ую? через обычную access query иои можно еще как-то?

Заранее спасибо

http://www.sql.ru/forum/1098991/dobavlenie-dannyh-v-sql-tablicu

Комментарии (0)

как запретить изменение данных в главной таблице?

Пятница, 06 Июня 2014 г. 13:24 + в цитатник

Добрый день, есть две таблицы - "Проекты" и "Объекты"
Одному проекту соответствует несколько объектов. Пытаюсь сделать форму, в которой будут вводиться новые объекты и будет возможность с помощью выпадающего списка выбрать проект - для связи записи из таблицы "объекты" с соответствующим проектом в таблице "Проекты".
В форме будет выводиться сразу несколько записей из таблицы "объекты"
База во вложении
Пользуюсь Access 2013
Может кто направит?

http://www.sql.ru/forum/1098945/kak-zapretit-izmenenie-dannyh-v-glavnoy-tablice

LiveInternetLiveInternet

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

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

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

-Статистика

Invalid link!

Перейти к полной формеБыстрая запись

Объединить ячейки при повторе данных

Аналог событий для форм, применимый к таблицам

Где в access увеличить timeout, чтобы запрос к SQL SERVER 2000 мог производиться дольше?

Controls.Add - Method of Data member not found

SendEMail. Учетная запись.

Запрос на объеденение

Содержание папки записать в базу ссылками. VBA

Помогите правильно создать логическую модель выездного ресторана

XMLHttpRequest - как вявить отсутствие связи с интернетом ?

Вывести в DBGrid вместо ID названия

Пропадает календарик в поле даты в Аccess 2007

Подсчитать остаток вакцины для прививок

Выполнение программного кода VBA из текста

Создание отчета в зависимости от значения в выподающей форме

помогите составить КРАСИВОЕ условие WHERE по нескольким полям со списком

Подстановка сразу в два поля

Объединение таблиц\запросов

Установка нужной даты

добавление данных в sql таблицу

как запретить изменение данных в главной таблице?