Заполнение ячеек Excel из Access |
http://www.sql.ru/forum/1119893/zapolnenie-yacheek-excel-iz-access
|
Быстродействие Access |
|
Загонный вопрос про табличную форму. |
http://www.sql.ru/forum/1119846/zagonnyy-vopros-pro-tablichnuu-formu
|
Как преобразовать к типу Дата? |
http://www.sql.ru/forum/1119834/kak-preobrazovat-k-tipu-data
|
Запрос - расчет накопления по времени |
http://www.sql.ru/forum/1119833/zapros-raschet-nakopleniya-po-vremeni
|
Добавление данных из excel в соответствующую строку таблицы БД |
http://www.sql.ru/forum/1119808/dobavlenie-dannyh-iz-excel-v-sootvetstvuushhuu-stroku-tablicy-bd
|
Код для подстановки значения в поле ленточной формы |
& " AS [q]"
, то показывает значение которое есть в первой записи, в остальных ошибка. Public Function LastMeeting(kod) Dim s s = "SELECT Min([дата_заседания]) " _ & " FROM (SELECT Заседания.дата_заседания " _ & " FROM Данные INNER JOIN Заседания ON Данные.код = Заседания.код_записи " _ & " WHERE (((Заседания.дата_заседания)>=Date()) " _ & " And ((Данные.код)=" & kod & "))) AS [q]" LastMeeting = CurrentDb.OpenRecordset(s).Fields(0) End Function
Public Function ArbitrName(kod) Dim Ar Ar = "SELECT ФИО.[фио] " _ & " FROM ФИО inner join Данные On ФИО.Код=Данные.фио " _ & " WHERE Данные.код=" & kod & " AS [q]" ArbitrName = CurrentDb.OpenRecordset(Ar).Fields(0) End Function
http://www.sql.ru/forum/1119767/kod-dlya-podstanovki-znacheniya-v-pole-lentochnoy-formy
|
Модернизация БД |
|
Коннект из аксесса в SQL Server |
http://www.sql.ru/forum/1119646/konnekt-iz-aksessa-v-sql-server
|
Не выходит импортировать xsd в Access |
http://www.sql.ru/forum/1119636/ne-vyhodit-importirovat-xsd-v-access
|
Ошибка Определено слишком много полей |
http://www.sql.ru/forum/1119529/oshibka-opredeleno-slishkom-mnogo-poley
|
Макрос-выбор значений |
|
При вызове через Eval функция из модуля формы выполняется дважды? |
+ |
Option Compare Database Option Explicit Dim k1 As Integer, _ m1 As Integer, _ m2 As Integer Private Sub Form_Open(Cancel As Integer) k2 = 0 End Sub Private Sub Butt_Eval1_Click() m1 = m1 + 1 FF1 = Nz(FF1) & vbCrLf & m1 & ". " & Eval("Forms!" & Name & ".Start1") End Sub Private Sub Butt_Eval2_Click() m2 = m2 + 1 FF2 = Nz(FF2) & vbCrLf & m2 & ". " & Eval("Start2()") End Sub Function Start1() As Integer k1 = k1 + 1 Start1 = k1 End Function |
+ |
Option Compare Database Option Explicit Public k2 As Integer Function Start2() As Integer k2 = k2 + 1 Start2 = k2 End Function |
+ |
![]() |
|
If KeyCode = vbKeySubtract Then |
If KeyCode = vbKeySubtract Then
http://www.sql.ru/forum/1119333/if-keycode-vbkeysubtract-then
|
Форматирование текста выводимого в Word через VBA |
.Bookmarks.Item("сумма_долга1").Range.Text = Nz(Format(Forms!Данные!Сумма_долга, "# ### ##0,00"))
http://www.sql.ru/forum/1119327/formatirovanie-teksta-vyvodimogo-v-word-cherez-vba
|
2013 + 64 |
|
Вывод информации в документ Word из Access |
http://www.sql.ru/forum/1119311/vyvod-informacii-v-dokument-word-iz-access
|
Подсчет количества дней в запросе |
|
http://www.sql.ru/forum/1119050/podschet-kolichestva-dney-v-zaprose
|
Помогите разобраться с кодом |
dbModule.TableStore.Append; if InputForm.ShowModal=mrOk then begin dbModule.TableStore.FieldByName('S_Quantify').AsFloat := 0; dbModule.TableStore.Post; end else dbModule.TableStore.Cancel;
http://www.sql.ru/forum/1118871/pomogite-razobratsya-s-kodom
|