[Resolvido]Atualizar um campo em uma outra tabela através de Comando SQL

Boa Tarde, senhores!!
Já tentei vários exemplos aqui postados e não estou conseguindo inserir uma Instrução SQL
em um botão de comando para atualizar um campo de uma tabela diferente do formulário corrente.
Tenho um tabela como o Nome Cadastro de Software por Micro(tabela do formulário) e uma outra
chamada Modelo do computador (tabela que quero atualizar),as duas estão relacionadas pelo campo "NP"
e possuem um campo em comum que se chama "Soft_Cadastrado", que é um campo Sim/Não para certificar
que o software foi cadastrado nas Tabelas.

No meu formulário eu tenho uma caixa de combinação que lista os campos da tabela Modelo do Computador
que desejo inserir na tabela Cadastro de Software por Micro e tenho várias caixas de seleção com os
softwares que desejo cadastrar.
Após selecionar o micro desejado, eu seleciono os softwares das caixas de seleção que desejo cadastrar
e clico no botão confirmar para que crie um novo registro na tabela Cadastro de Software por Micro e altere os
flags(campo) "Soft_Cadastrado" de ambas as tabelas para Sim.

Porém aparece Erro em tempo de execução 3144, Erro de systaxe na Instrução UPDATE.
Segue o Código para que alguém possa me ajudar.
O Erro está na Instrução SQL, o restante está funcionando.

Private Sub Cmd_Confirmar_Click()
Soft_Cadastrado.Value = -1

Dim StrSQL As String
DoCmd.SetWarnings False
StrSQL = "UPDATE Modelo do Computador SET Modelo do Computador.Soft_Cadastrado= -1 WHERE Modelo do Computador.NP = " & Me.NP
CurrentDb.Execute (StrSQL)
DoCmd.SetWarnings True

If txtCampos.Value <> "" Then
txtCampos = ""

End If

Dim CBox As Control

For Each CBox In Me.Controls
If CBox.ControlType = acCheckBox Then
If CBox.Value = -1 Then
If IsNull(Me.txtCampos) Or Me.txtCampos.Value = "" Then
Me.txtCampos = CBox.Name
Else
Me.txtCampos = Me.txtCampos & "," & CBox.Name
End If
End If
End If
Next

Me.txtCampos.SetFocus
Me.Cmd_Confirmar.SetFocus

End Sub

Talvez assim:

CurrentDb.Execute "UPDATE Modelo do Computador SET Soft_Cadastrado= 1 WHERE NP = " & Me.NP & ";"

Cumprimentos.

Continua dando o mesmo erro, não resolveu.

Podes enviar o BD?


Saudações.

Ha sim...

Retire os espaços do nome da tabela


CurrentDb.Execute "UPDATE ModeloDoComputador SET Soft_Cadastrado= 1 WHERE NP = " & Me.NP & ";"

ou tente assim:

CurrentDb.Execute "UPDATE [Modelo Do Computador] SET Soft_Cadastrado= 1 WHERE NP = " & Me.NP & ";"

Tentei a opção de baixo e o erro mudou.
CurrentDb.Execute "UPDATE [Modelo Do Computador] SET Soft_Cadastrado= -1 WHERE NP = " & Me.NP & ";"
Estou anexando o Banco para ficar mais fácil o entendimento da questão.

Qual o tipo de dados do campo NP?


Saudações.

é somente o tipo de dados:

CurrentDb.Execute "UPDATE [Modelo do Computador] SET Soft_Cadastrado = -1 WHERE NP = '" & Me.NP & "';"


Se esta atualizando apenas uma tabela, não há necessidade de repetir o nome da tabela na frente do campo.


Saudações.

Já encontrei o problema foi falha minha, pois os campos relacionados estavam com o tamanho dos campos diferentes,
na tabela Modelo do Computador o campo estava com o tamanho 15 e na tabela Cadastro de Software por Micro estava com o
tamanho 50, depois que acertei o tamanho dos campos funcionou perfeitamente.

Obrigado!!

Estou com uma outra dúvida que até agora ninguém conseguiu resolver, se puder me ajudar a dúvida
encontra-se neste tópico:
http://maximoaccess.forumeiros.com/t8725-imprimir-valores-de-um-campo-por-linha-retirando-as-virgulas

Amigão o que eu quis dizer não é com relação a isso, e sim no critério...

Tipo de dados texto ou numero

O campo NP é do tipo texto, portando fica entre aspas simples e duplas:
WHERE NP = '" & Me.NP & "';"

Se fosse do tipo número entre aspas duplas:
WHERE NP = " & Me.NP & ";"

Faltou o resolvido no Tópico, desta vez eu coloco.

Cumprimentos.

Obrigado pela explicação mais uma vez!!
Se consegui resolver este meu outro tópico eu agradeço.

Amigão... Está com um melhores naquele tópico... Ele é um Mestre!!! Observe la... A solução dele está correta.


Porque tirou o resolvido deste tópico?

Retiraste o resolvido do Tópico?

Resolvido, Obrigado!!

O Fórum agradece o retorno.