установить фокус |
Private Sub добавить_Click() Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("выдано") With rs .AddNew !читатель = Me.читатель !автор = Me.автор !наименование = Me.наименование !количество = Me.количество !выдано= Me.выдано !возвратП= Me.возвратП .Update End With DoCmd.Close Forms!читатели!выдано.Form.Requery Set rs = Nothing End Sub
|
Проблемы при выборке данных |
|
Иконка на панели задач |
|
Вычитание значений COUNT из SUM |
SELECT Контейнеры.Контейнер, Sum([Списание контейнеров].Количество) - Count([Поступления контейнеров].УКТТИП) AS [РАЗНИЦА] FROM Контейнеры, [Списание контейнеров], [Поступления контейнеров] WHERE Контейнеры.Контейнер=[Поступления контейнеров].УКТТип AND Контейнеры.Контейнер=[Списание контейнеров].[Тип контейнеров] GROUP BY Контейнеры.Контейнер
http://www.sql.ru/forum/1153966/vychitanie-znacheniy-count-iz-sum
|
Помогите написать запрос с DSUM |
http://www.sql.ru/forum/1153960/pomogite-napisat-zapros-s-dsum
|
Помогите сделать базу, добрые люди) |
http://www.sql.ru/forum/1153910/pomogite-sdelat-bazu-dobrye-ludi
|
Помощь с созданием запросов с использованием VBA в Access |
http://www.sql.ru/forum/1153831/pomoshh-s-sozdaniem-zaprosov-s-ispolzovaniem-vba-v-access
|
Вставка изображений в документ Word |
Option Compare Database Option Explicit Private Sub button_Click() Dim app As Word.Application Dim strDOC, strDOT, strPodp1 As String Dim strPodp2 As String Dim ctl As Control Dim s As String On Error GoTo 999 With Application.CurrentProject strDOT = .path & "\" & "vipiska.doc" strDOC = .path & "\" & "vip11.doc" strPodp1 = .path & "\" & "Podp1.png" strPodp2 = .path & "\" & "Podp2.png" End With Set app = New Word.Application app.Visible = True app.Documents.Add strDOT With app.ActiveDocument On Error Resume Next For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then s = ctl.Name .Bookmarks.Item(s).Range.Text = Me(s) Err.Clear End If Next ctl .SaveAs strDOC On Error GoTo 999 End With Call Procedure1(20, strPodp1) Call Procedure1(20, strPodp2) app.Quit Set app = Nothing Exit Sub 999: MsgBox Err.Description Err.Clear app.Quit Set app = Nothing End Sub Sub Procedure1(dTop As Double, sName As String) Dim oShape As Word.Shape Set oShape = ActiveDocument.Shapes.AddPicture(sName, False, True, 10, 10) With oShape .LockAspectRatio = msoTrue '.Height = 500 .Width = 50 .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage .RelativeVerticalPosition = wdRelativeVerticalPositionPage .LayoutInCell = False .WrapFormat.AllowOverlap = True .Left = CentimetersToPoints(7.5) .Top = CentimetersToPoints(dTop) End With Set oShape = Nothing End Sub
http://www.sql.ru/forum/1153798/vstavka-izobrazheniy-v-dokument-word
|
Динамичный отчет |
|
поиск записи из формы и ее редактирование |
http://www.sql.ru/forum/1153679/poisk-zapisi-iz-formy-i-ee-redaktirovanie
|
Создание запросов на основе готовых таблиц |
http://www.sql.ru/forum/1153675/sozdanie-zaprosov-na-osnove-gotovyh-tablic
|
ОпенОфис "из под" Винды |
|
Фильтр для вложенной формы |
|
Как добраться до старых записей? |
При удалении данных в таблицах БД записи из файла БД не удаляются, а просто помечается как удаленные (удаляются логически). Т.е. стертые данные так и лежат в базе, в результате файл по мере работы постепенно растет...
http://www.sql.ru/forum/1153634/kak-dobratsya-do-staryh-zapisey
|
Источник записи в формах |
|
тип данных (ms sql) numeric(9, 4) |
http://www.sql.ru/forum/1153604/tip-dannyh-ms-sql-numeric-9-4
|
Найти коды поставщиков, у которых среднее значение минимальной партии. |
|
Найти минимальные партии товаров, кроме товаров по цене 10000. |
http://www.sql.ru/forum/1153598/nayti-minimalnye-partii-tovarov-krome-tovarov-po-cene-10000
|
Найти минимальные партии товаров, кроме товаров по цене 10000. |
http://www.sql.ru/forum/1153597/nayti-minimalnye-partii-tovarov-krome-tovarov-po-cene-10000
|
Указать название предприятий, веденных в таблицу сегодня |
http://www.sql.ru/forum/1153596/ukazat-nazvanie-predpriyatiy-vedennyh-v-tablicu-segodnya
|