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

[Aleksandr H.]

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

На нужно чтоб он добавлял в той же строке в которой я ввожу Штрих-код

Аватар дело говорит о UPDATE, ето для Вас "добавление", для access - это "обновление"

[nikolaynn2008]

Я только учусь...по этому попробую....

[nikolaynn2008]

Вот, что то нашел похожее...теперь бы здесь разобраться(((

Private Sub Штрих_код_Click()
Dim strSQL As String
' процедура обновления соответствующей записи в таблице
If Not IsNull(Me.Штрих_код.Value) Then
    strSQL = "UPDATE Товар SET Список ON Товар.Описание = Список.Описание AND Товар.ЛМ = Список.ЛМ WHERE [Штрих-код] = " & Штрих_код & ";"
    CurrentDb.Execute strSQL
    ' обновим список
    Me.ЛМ.Requery
    Me.Описание.Requery
Else
    MsgBox "Введите Штрих-код", vbExclamation, "Штрих-код не выбран"
End If
End Sub

[nikolaynn2008]

Матерится

Private Sub Штрих_код_Click()
Dim sql As String
' процедура обновления соответствующей записи в таблице
If Not IsNull(Me.Штрих_код.Value) Then
    sql = "UPDATE Товар SET Описание AND ЛМ " & _
         "INNER JOIN Список ON Товар.Описание = Список.Описание AND Товар.ЛМ = Список.ЛМ " & _
         "WHERE [Штрих-код] = '" & Штрих_код & "';"
    DoCmd.RunSQL sql
    ' обновим список
    Me.ЛМ.Requery
    Me.Описание.Requery
Else
    MsgBox "Введите Штрих-код", vbExclamation, "Штрих-код не выбран"
End If
End Sub

Помогите сформировать код, люди добрые)))

[nikolaynn2008]

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

Private Sub Штрих_код_Click()
Dim sql As String
' процедура обновления соответствующей записи в таблице
If Not IsNull(Me.Штрих_код.Value) Then
    sql = "UPDATE Товар [Описание] AND [ЛМ] SET Товар.Описание = Список.Описание Товар.ЛМ = Список.ЛМ WHERE [Штрих-код] = '" & Штрих_код & "';"
    DoCmd.RunSQL sql
    ' обновим список
    Me.ЛМ.Requery
    Me.Описание.Requery
Else
    MsgBox "Штрих-код не выбран", vbExclamation, "Введите Штрих-код"
End If
End Sub

[Aleksandr H.]

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

а так?

[nikolaynn2008]

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

[nikolaynn2008]

Во вложении сам файл..
Чего то все ровно не хватает...

И еще как можно сделать чтоб вносил данные только ту строку в которой я вписываю Штрих-код...
И еще он засланец Код вставляет с другой таблицы "Список"

[Aleksandr H.]

мерзкая схема данных. Код привязать к ШтрихКоду, додуматься только

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

[nikolaynn2008]

Согласен....в таблице Код не уникален...это выгрузка с базы...
Но что то не работает(((