Boa Noite, vbmaniacos!

 

Bom estou com o seguinte problema:

 

Criei um sistema de Controle de Estoque, na firma onde trabalho.

 

Nesse sistema tem um SSTAB1, onde há CADASTRO DE PRODUTOS, ENTRADA DE MERCADORIAS, CONTROLE DE ESTOQUE E CADASTRO DE FORNECEDORES. Bom o problema é o seguinte:

 

Qdo eu clico na aba ENTRADA DE MERCADORIAS (nessa aba tem Data de Entrada, QTDE, DBCombo com os produtos cadastros, DBGrid que seria relação de produtos no estoque e tres botoes Incluir, Gravar e Cancelar).  Só q qdo eu seleciono o produto q chegou, digito o nº da Nota Fiscal e QTDE e clico em Gravar acontece o seguinte:

 

No DBGrid não aparece o Nome do Produto, e no CADASTRO DE PRODUTOS, ele repete ficando assim:

 

CODIGO                PRODUTO

    1                     FOLHA A4

    2                     ESPIRAL 9MM

    3                     FOLHA A4

 

Tipo repete os dados, e no momento q eu cadastrei no codigo 1 era pra aparecer DISQUETE.... ou seja ta misturando tudo. e na aba ENTRADA DE MERCADORIAS não esta gravando a mercadoria q chegou (só o nome do produto). 

Olá Pessoal!

 

Bom consegui na raça, acabar com a metade dos problemas, q relatei nesse tópico porém, estou com um outro problema e mais grave. Qdo eu clico no botão gravar da ABA ENTRADA DE MERCADORIAS, dá a seguinte mensagem: O Mecanismo de banco de dados não pode encontrar o caminho especificado... '3011'... alguém podria me dar uma sugestão, de como contornar esse problema?

Bom gente agora está dando o seguinte erro:

 

Run Timer '3251' operação Não suportada para este objeto.

 

O q q eu faço?

 

Eis o Código:

 

Private Sub cmdGravarBD_Click()

Dim Criterio As String
Data1.RecordSource = "SELECT * FROM Produtos Order By Produto"
Criterio = "Produto = " & txtLista.Text & "'"
Data1.Recordset.FindMin Criterio
Data1.Refresh
If Data1.Recordset.NoMatch = True Then
    MsgBox "Produto não Cadastrado, selecione um na lista dentro da caixa1. Ação Cancelada.", vbOKOnly + vbCritical, Me.Caption
    Data2.Recordset.CancelUpdate
    Exit Sub
Data2.UpdateRecord
Data2.Recordset.Bookmark = Data2.Recordset.MaxModified
Data1.Recordset.Edit
Data1.Recordset("qtde") = Data1.Recordset("qtde") + Data2.Recordset("qtde")
Data1.UpdateRecord
    End If
End Sub