Копирование данных из Таблицы в Таблицу - MS Access

[Aleksandr H.]

Сообщение от nikolaynn2008

Но что то не работает(((

Так напишите что есть а что должно быть. например: Имею форму - ищу код 1234567 - меняю последнюю цифру на 8 - в поле описание получаю такую строку.


А то 2 страницы

Сообщение от nikolaynn2008

Ругается)))

Сообщение от nikolaynn2008

Изменил...да...действительно не хватало...
Но он мне добавляет новую строку...
На нужно чтоб он добавлял в той же строке в которой я ввожу Штрих-код

Сообщение от nikolaynn2008

Матерится

Сообщение от nikolaynn2008

И так тоже матерится(((

Сообщение от nikolaynn2008

Теперь не ругается....но что то не хватает ему....Он просит ввести значения этих полей которых он должен брать с другой таблицы

Сообщение от nikolaynn2008

Но что то не работает(((

а что не работает и как должно работать кроме вас никому не известно

[nikolaynn2008]

Сейчас работает...Это то что как раз мне нужно...
Но как теперь добавить чтоб он два поля обновлял?
sql = "UPDATE Список INNER JOIN Товар ON Список.[Штрих-код] = Товар.[Штрих-код] SET Товар.Описание = [список].[Описание] AND Товар.ЛМ = [список].[ЛМ]" & _
" WHERE (Список.[Штрих-код]='" & Me.Штрих_код & "' AND Товар.Код= " & Me.Код & " );"
Пробую вот так, ругается)))
И еще чтоб он вставил нужно нажать F5 и после этого он выдает сообщение о конфликте, которое во вложении...Как от него можно избавится?
И вставляет только если нажать Копировать в буфер...

[nikolaynn2008]

Со вторым полем разобрался...

sql = "UPDATE Список INNER JOIN Товар ON Список.[Штрих-код] = Товар.[Штрих-код] SET Товар.Описание = [список].[Описание], Товар.ЛМ = [Список].[ЛМ]" & _
                    " WHERE (Список.[Штрих-код]='" & Me.Штрих_код & "' AND Товар.Код= " & Me.Код & " );"

Работает...только вот от сообщений избавится...чтоб он его обходил...и просто вставлял данные...
1. Просит подтвердить одновление
2. Конфликт записи

[nikolaynn2008]

Вот как они выглядят...

[nikolaynn2008]

Слишком много задачь)))

Вот еще одну проблему нашел...
Он хорошо работает в зуществующей записи...
Когда добавляю новую запись...он по чему то пишет "Будет обновлено следующее число записей 0"
То-есть в новую запись не копирует данные с другой таблицы...

[Aleksandr H.]

такой костыль тыкали?

Private Sub Штрих_код_AfterUpdate()
 If IsNull(Me.Штрих_код) Or Me.Штрих_код = "" Then
        MsgBox ("Введите Штрих-код")
    Else
        Dim entry As String
        entry = Me.Штрих_код
        'Me.Requery
        Dim sql As String
        sql = "UPDATE Список INNER JOIN Товар ON Список.[Штрих-код] = Товар.[Штрих-код] SET Товар.Описание = [список].[Описание]" & _
                    " WHERE (Список.[Штрих-код]='" & Me.Штрих_код & "' AND Товар.Код = " & Me.Код & " );"
        Me.Recordset.MoveNext
        DoCmd.SetWarnings False
        DoCmd.RunSQL sql

        Me.Recordset.MovePrevious
        DoCmd.SetWarnings True
    End If
End Sub

[nikolaynn2008]

Огонь!
Благодарю Александр

[nikolaynn2008]

У самого до такого костыля знаний не хватило...по другому пробовал))

[nikolaynn2008]

Александр, последний вопрос по этой теме...
Данные которые он обновляет...берутся с Сервера...
И так как эта таблица подключена через ODBC, она не обновляема...
И в связи с этим возникает еще один конфликт...
Можно ли как то обмануть его?
По сильнее так сказать костыль

Преоброзовывал ее в локальную...все работает...
А вот именно когда она работает как линк...ругается

[Aleksandr H.]

Сообщение от nikolaynn2008

И так как эта таблица подключена через ODBC, она не обновляема...
И в связи с этим возникает еще один конфликт...
Можно ли как то обмануть его?

Накрывайте поляну для сисадмина, пускай даст свой пароль и, в макросе, с ним подключайтесь к базе, обновляйтесь, отключайтесь и работайте со своего юзверя