» Access VBA

---

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

---

Смежные темы:
По VBA: Excel и Word
Общие вопросы по самой программе: Access
Помощь в создании SQL-запросов: SQL запрос

----------
Как в Access перместить запись из одной таблицы в другую (допустим по нажатию кнопки на форме)?

Guest

Забавно - у тебя две таблицы с одинаковой структурой? Но тогда какой в них смысл???

Зделать то что ты хошь можно либо на SQL (тогда нужно вызывать запрос) либо Recordset-ом, тогда это будет модуль... Определись - что тебе нужно, и правильно ли ты задал вопрос?

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


Цитата:

Забавно - у тебя две таблицы с одинаковой структурой? Но тогда какой в них смысл???

Блин... Может у него база данных с жителями города-героя Волгодонска, в которой миллион записей и он делит по возрасту записи в идентичные таблицы... В одной таблице поиск по условию WHERE AGE<7 производится 30 минут, а если раскидать в разные таблицы (КИДСЫ-дети до 16, пэрэнтсы - до 50 лет и долгожители - больше 50) то можно искать сразу в таблице КИДСЫ и поиск будет занимать пять сек.

Ещё вопросы не по теме будут?

ДА у меня 2 таблицы с одной структурой и мне необходима переместить выбраную запись в другую таблицу(первая таблица -общая, а вторая типа архив или типа оборудование сдано в ремонт). Так вот кто сталкивался с такой ситуацией кинте код или на SQL или на BV.

Большое спасибо за ответы.

Dim База As Database

Set База = CurrentDb
База.Execute "INSERT INTO Таблица2 SELECT * FROM Таблица1 WHERE id = " & Me![id] & ";"
База.Execute "DELETE FROM Таблица1 WHERE id = " & Me![id] & ";"

надеюсь правильно запостил..
штука вот в чем - допустим я рисую форму для заполнения базы и отдаю ее в работу, пока идет заполнение я рисую запросики и отчетики. и тут меня немного клинит - так как access фсе хранит в одном .mdb, то как лучче будет провести процедуру обновления на новый mdb, чтоб заполненные записи в таблице сохранились??
если есть возможность, то не через экспорт / импорт..

Цитата:

то как лучче будет провести процедуру обновления на новый mdb, чтоб заполненные записи в таблице сохранились

В принципе почти как стандарт стало разделение *.mdb на 2 файла - один только таблицы с данными - второй запросы, формы, отчеты и т.д. (интерфейс).

В твоем случае - рекомендую проделать то же самое, а потом из импортировать в файл с таблицыми данные из первоначальной версии ...

merlkerry

Цитата:

разделение *.mdb на 2 файла - один только таблицы с данными - второй запросы, формы, отчеты и т.д. (интерфейс).

ну это то что нужно, только подскажи plz как..
сервис - служебные программы - разделение баз это не оно?
у меня в итоге получилось 2 mdb...

Guest
А не проще сделать таблицу Ремонт, где хранить не записи а только индекс этой записи. Не пофиг-ли в какой таблице на самом деле информация хранится? Зачем усложнять-то?

mhs

Цитата:

сервис - служебные программы - разделение баз это не оно?
у меня в итоге получилось 2 mdb...

гдето так ...

Sufferer

Цитата:

Не пофиг-ли в какой таблице на самом деле информация хранится

На самом деле не пофиг - от пофигизма хороший софт не бывает

merlkerry
пасиб, тогда получилось

Такой вопрос:

На форме есть выпадающий список берущий данные из таблицы.
В этот выпадающий список можно писать.

теперь вопрос:
Как сделать так, что если пользователь выбрал(или ввёл) уже добавленную строку, то ничего не происходило?
Если же добавил новую - то добавляет новую строку в таблицу.
При этом надо сделать без перезагрузки формы (выполняються другие функции)

Кто подскажет решение ?

Advanced_Guest я обрабатывал потерю фокуса... в процедуре делается поиск в таблице по столбцу, в котором данные для КомбоБокса. Соответственно, если результат нулевой, то добавляем данные в таблицу и обновляем её.


Добавлено
Код вобщем вот такой


Код:
Private Sub ПолеСоСписком3_GotFocus()
ПолеСоСписком3.Requery
End Sub

Private Sub ПолеСоСписком3_LostFocus()
Dim dbBase As Database
Dim dbTable As Recordset
Dim str As String

Set dbBase = DBEngine.Workspaces(0).Databases(0)
Set dbTable = dbBase.OpenRecordset("Таблица1")

str = ПолеСоСписком3.Text

dbTable.Index = "PrimaryKey"

dbTable.Seek "=", str
If dbTable.NoMatch Then
dbTable.AddNew
dbTable![Поле1] = str
dbTable.Update
End If
End Sub

Подскажите, как заставить курсор автоматически устанавливаться в первую позицию поля при клике мышкой (в поле с маской ввода) как это происходит при переходе по TAB.

Felix
не работает
сначала спотыкаеться на
> Dim dbBase As Database
(user-defined type not defined)
если коментирую строку, то на строке:

> if dbTable.NoMatch then
ошибка: member or datamember not found.


Но в Helpе к Access всё написанно так как ты сказал
В чём может быть ошибка ?
(У меня Access XP, VB6-7 не установлен.)


Kashel
Если нужно выделить весь текст в ячейке то вот код:


Код: Private Sub Text9_Click()
Text9.SelStart = 0
Text9.SelLength = Len(Text9.Text)
End Sub

Help!!! F1 !!! Как определить глобальную переменую до загрузки формы

Lucefer
пиши в самом начале файла (1-2 строки, если надо можешь подвинуть.)
Главное до каких нибудь функций.

или пиши в Form_load (выполняеться при загрузке формы в оперативной памяти)

Подскажите, где можно найти лит-ру по Access для "чаиника"

Здесь:
http://forum.ru-board.com/topic.cgi?forum=35&topic=10769&start=560#lt

возможно ли узнать кто создавал на самом деле файл *мдб (аксесс)
я изменил имя создателя в(file..properties )
если да , то как изменить чтоб не узнали ?
умоляю , пожалуста срочно ответьте .

Запрос на добавление

Код: INSERT INTO таблица ( поле )
SELECT [поле запроса]
FROM запрос;

bobsON

попробуй:

limit 1
или
where id='номер'

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

vamp проще написать на VB: есть функция Seek, которая ищет по указанному индексу интересующую(ие) запись/записи.
Делается обыкновенный условный оператор, где проверяется наличие результата поиска и если запись существует, то этому полю присваиваешь значение, а если нет, то добавляешь.
А вот с запросом поинтереснее, может я ошибусь, но в голову конструкция с UPDATE и INSERT одновременно не приходит...

INSERT INTO TABLE1
(FIELD1, FIELD2, FIELD3, FIELD4 ... FIELDN)
SELECT FIELD1, FIELD2, FIELD3, FIELD4 ... FIELDN
FROM TABLE2
WHERE NOT FIELD1 IN (SELECT FIELD1 FROM TABLE1)

FIELD1 - предположительно, PRIMARY KEY.

Если добавлять нужно не все записи, то после WHERE добавить
AND FIELD1 = 12
или
AND FIELD1 BETWEEN 10 AND 15.

Есть таблица, в ней поле с записями типа:
1
2
3
4
11
22
33
44

надо напсать два запроса один строгий:

"select * from table where pole="1""

второй не строгий:

"select * from table where pole like "*1*"",

так вот как сделать так, чтобы второй запрос НЕ выбрал те записи, которые выбрал первый запрос? Я делал так:

"select * from table where pole like "*1*" and not exists (select * from table where pole="1")",

но это не работает, второй запрос вообще ничего не выбирает:(( Где грабли, что делаю не так?..

griin


Код:
select * from table where pole like "*1*" and pole <> "1";

Подскажите плз. Нужно сохранить отчёт но если сохранять в виде RichText то не сохраняются линии, если SnapShot то нельзя редактировать, html тоже не подходит.
Как сохранить и текст и линии и чтоб редактировался ?

Народ... подскажите как с помощью SQL в Access сделать связь многие ко многим???

Uska
Это мечта каждого разработчика - корректный экспорт отчетов в разные форматы для последующего редактирования. К сожалению, я не видел ни одного генератора отчетов, который бы полностью корректно в этим справлялся. (разве что экспорт в .bmp /типа шутка /)

Individ84
Так же, как и в любой другой СУБД, ничего специфичного. Не будет ли лишним напомнить, что из двух таблиц такая связь не реализуется?