Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Access VBA

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Открыть новую тему     Написать ответ в эту тему

Guest

BANNED
Редактировать | Цитировать | Сообщить модератору
   
 
Обсуждаем вопросы только по Access VBA
(программирование макросов, скриптов, пользовательских функций и т.п.).
Приветствуются ссылки на ресурсы и справочную литературу по теме.

 

NB! Дублирующая тема VBA for Access закрыта во избежание путаницы. Оставлена эта, как более ранняя и имеющая больше сообщений.

Смежные темы:
Помощь в создании SQL-запросов: SQL запрос
Программы » Microsoft Office 2019 & 365 | 2016 | 2013 | 2010 | 2007 | 2003
Программы » OneNote | Outlook 2013 & 2016 & 2019 | Outlook 2010 | Microsoft Mathematics & Math Solver
Программы » Word FAQ | Excel FAQ | Access FAQ
Прикладное программирование » Word VBA | Excel VBA
Андеграунд » Microsoft Office 2019 | 2016 | 2013 | 2010 | 2007 | 2003
Андеграунд » OneNote | Visio | SharePoint Server | Project Server | Exchange Server
Андеграунд » Надстройки (add-ins) и коммерческие макросы Excel
Андеграунд » Самостоятельная сборка дистрибутивов Оffice 2007/2010/2013/2016 | MUI для Office 2007
----------
Как в Access перместить запись из одной таблицы в другую (допустим по нажатию кнопки на форме)?

Отправлено: 18:31 05-09-2002 | Исправлено: ALeXkRU, 17:14 03-08-2021
dneprcomp



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
xz111
Видимо timestamp напрямую в Access не принимается. Да и нет в Access такого data type, если я не ошибаюсь.
http://msaccess.tribe.net/thread/92e9d966-b650-48bb-aef0-b0d56c1a5f14

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 05:53 14-02-2010 | Исправлено: dneprcomp, 05:55 14-02-2010
PrWork1

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кстати, это поле, несмотря на название, никакого отношения к дате не имеет и используется SQL для опреденения, какое изменение было сделано раньше.

Всего записей: 582 | Зарегистр. 15-12-2005 | Отправлено: 08:32 14-02-2010
Almest



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем добрый день!
Ребятки. может было уже много таких ворпосов, сильно не критикуйте, решил выучить Access, с чего начать и какие учебники посоветуйте?
Всем спасибо.

Всего записей: 3 | Зарегистр. 16-02-2010 | Отправлено: 17:20 25-02-2010
dneprcomp



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Almest
Спроси в  
Компьютерные (IT) книги на АНГЛИЙСКОМ
Компьютерные (IT) книги на РУССКОМ языке

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 01:44 26-02-2010
Almest



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо, нужно узнать.

Всего записей: 3 | Зарегистр. 16-02-2010 | Отправлено: 07:38 26-02-2010
Anton T

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Здравствуйте.
Раньше обсуждали про фильтры на форме (см. соседную тему) так все получится и работает хорошо, а теперь надо сделать "Отчеты" из формы (короче форма в запрос, а запрос в отчет), которые вы вводили.
Создал запрос:

Код:
SELECT *
FROM Клиент
WHERE (((Клиент.Ф) Like [Формы]![КлиентФорма]![Поле1] & "*") AND ((Клиент.И) Like [Формы]![КлиентФорма]![Поле3] & "*") AND ((Клиент.О) Like [Формы]![КлиентФорма]![Поле5] & "*") AND ((Клиент.Г) Like [Формы]![КлиентФорма]![Поле7] & "*") AND ((Клиент.А) Like [Формы]![КлиентФорма]![Поле9] & "*") AND ((Клиент.Д) Like [Формы]![КлиентФорма]![Поле11] & "*") AND ((Клиент.Кв) Like [Формы]![КлиентФорма]![Поле13] & "*") AND ((Клиент.К1) Like [Формы]![КлиентФорма]![Поле15] & "*") AND ((Клиент.К2) Like [Формы]![КлиентФорма]![Поле17] & "*") AND ((Клиент.С) Like [Формы]![КлиентФорма]![Поле19] & "*"))
ORDER BY Клиент.Ф;
 

Этот запрос построил кнопку на форме:

Код:
Private Sub Кнопка33_Click()
On Error GoTo Err_Кнопка33_Click
 
    Dim stDocName As String
 
    stDocName = "Запрос1"
    DoCmd.OpenQuery stDocName, acNormal,  acReadOnly
 
Exit_Кнопка33_Click:
    Exit Sub
 
Err_Кнопка33_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка33_Click
 
На полях вводил, нажал эту кнопку и отображается некорректно или пустая строка. Что делать?
 
P.s. Я дико извиняюсь, просто SQL мало

Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 13:11 01-03-2010 | Исправлено: Anton T, 13:14 01-03-2010
Anton T

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Повторяю ответить, после отправки были глюки.

Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 21:16 01-03-2010
dneprcomp



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Anton T
Мало чего понял из описания  
Но если надо сделать отчет по результатам работы фильтра, то и SELECT для отчета должен быть точно таким же, как и для фильтра.

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 21:25 01-03-2010
Anton T

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
dneprcomp
Я, конечно, дико извиняюсь, но не умею. Пожалуйста, приведите хоть несколько примеров.

Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 16:02 02-03-2010
dneprcomp



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Anton T
Я так понимаю, что отчет делается по результатам работы той формы, для которой я давал SELECT для фильтра по нескольким полям. Если так, то и запрос для отчета должен быть точно таким же, как и запрос для фильтра по нескольким полям.

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 17:16 02-03-2010 | Исправлено: dneprcomp, 17:17 02-03-2010
vasiliy74



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
помогите разобраться с форматами не получается инпортировать данные, в Access, ошибка:  
Попытка присвоить значение Null переменной, не принадлижащей к типу Variant.
 
вот текст запроса
INSERT INTO dbo_list ( f1
,f2
,f3
,f4
,f5 )
SELECT '2117' AS f1
,Лист1.ID as f2
,0 AS f3
,Date() AS f4
,'Imported' AS f5
FROM Лист1;
Если добавлять строки в ручную то всё работает.
можен нужно использовать функцию format() как то?
f1 - числовой
f2 - числовой
f3 - денежный
f4 - дата
f5 - текстовый
 
dbo_list - это ссылка на таблицу SQL2005
 
отдельно Select работает корректно.

Всего записей: 289 | Зарегистр. 21-02-2006 | Отправлено: 19:23 09-03-2010
dneprcomp



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vasiliy74
Похоже, что в table dbo_list больше полей, чем пытаешься добавить. Какое-то поле не принимает Null
Или Лист1.ID не определено.

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 20:32 09-03-2010
SIgor33

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vasiliy74

Цитата:
'2117' AS f1

У тебя здесь 2117 в кавычках т.е символьное значение убери их

Всего записей: 652 | Зарегистр. 03-03-2009 | Отправлено: 14:47 10-03-2010
MadFire777

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нужно каким то образом перекинуть слово в конец предложения.
Сначала я ищу это слово по определенным параметрам, вот потом только не знаю что делать,может использовать массив? (код плизз)
 
Код поиска слов в предложений в форме Поле1
 
Private Sub Кнопка2_Click()
 
Dim strMyText As String
Dim strMyTextArr() As String
 
Me.Поле1.SetFocus
strMyText = Me.Поле1.Text
 
Const strWhat As String = "ар"
 
strMyTextArr = Split(strMyText, Chr$(vbKeySpace))
 
Dim intIterator As Integer
Dim intPosition As Integer
Dim intWord As Integer
 
For intWord = LBound(strMyTextArr) To UBound(strMyTextArr)
    intPosition = 0
    For intIterator = 1 To Len(strMyTextArr(intWord))
        intPosition = InStr(intIterator, strMyTextArr(intWord), strWhat)
        If intPosition > 0 Then
            MsgBox "Найдено '" & strWhat & _
                   "' в слове №" & CStr(intWord) & _
                   ", в позиции №" & CStr(intPosition) & _
                   " '" & strMyTextArr(intWord) & "'"
            intIterator = intPosition
        End If
    Next
Next
End Sub

Всего записей: 2 | Зарегистр. 15-03-2010 | Отправлено: 15:11 15-03-2010
SIF

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравсвуйте! Подскажите пожалуйста по ключевым полям. В процессе работы с таблицей, данные удаляются, добавляются. Так вот ключевые поля нумеруются по возрастанию. Можно ли как нибудь сделать, чтоб при добавлении новых строчек использовались старые свободные ключевые поля?

Всего записей: 161 | Зарегистр. 12-12-2005 | Отправлено: 21:49 30-03-2010
dneprcomp



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SIF
 
1. Если назначение ключего поля осуществляется базой автомтически(autonumber; autoincrement), то нельзя. Если же  код, то можно перебрать значения, найти неиспользуемые и т.д.  
 
2.Но не следует.  
A eсли в других tables остались рекорды с данным ID? Связность данных будет нарушена.
 
3.У  тебя что, цифры заканчиваются? Или бережливость проснулась?

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 01:25 31-03-2010 | Исправлено: dneprcomp, 01:27 31-03-2010
SIF

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dneprcomp, спасибо за разъяснения!
Циферки слава Богу не кончаются Просто программку пишу и вот задумался о таком случае.

Всего записей: 161 | Зарегистр. 12-12-2005 | Отправлено: 14:50 31-03-2010
Anton T

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
В своем отчете я пытаюсь печатать строки. Если нет строки, хотел бы сделать "" (то есть пустая строка)

Код:
=IIf(IsEmpty([Запрос-форм.Ф] & " " & [Запрос-форм.И] & " " & [Запрос-форм.О]);"";[Запрос-форм.Ф] & " " & [Запрос-форм.И] & " " & [Запрос-форм.О])

то в отчете выдает: #Ошибка

Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 12:16 09-04-2010 | Исправлено: Anton T, 12:19 09-04-2010
dneprcomp



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Anton T
 
IsEmpty всегда будет false так как постояно добавляются  2 пробела.

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 17:19 09-04-2010 | Исправлено: dneprcomp, 17:20 09-04-2010
Dixi257



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Anton T
IsEmpty Тут совсем не к месту, то есть абсолютно.
 

Цитата:
 
IsEmpty(expression)
Возвращает значение типа Boolean, показывающее, была ли инициализирована переменная.
Expression    
Обязательный. Представляет выражение типа Variant, содержащее числовое или строковое выражение. Однако, поскольку функция IsEmpty предназначена для проверки того, была ли инициализирована конкретная переменная, в аргументе выражение обычно указывают имя переменной.
Замечания
Функция IsEmpty возвращает True, если переменная не была инициализирована или ей в явном виде было присвоено значение Empty; в противном случае возвращается False. Если аргумент выражение содержит несколько переменных, всегда возвращается значение False. Функция IsEmpty возвращает разумную информацию только для аргументов типа Variant.
 

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

Всего записей: 128 | Зарегистр. 24-08-2005 | Отправлено: 17:57 09-04-2010
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Access VBA


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru