[Resolvido]Código para acrescentar dados a uma tabela

pjjpm Qua 03 Out 2018, 12:54 pm

pjjpm: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 80
Registrado : 17/09/2014

Mensagem nº1

[Resolvido]Código para acrescentar dados a uma tabela

Mensagem pjjpm Qua 03 Out 2018, 12:54 pm

Olá Pessoal,

Necessito da Vossa ajuda com o seguinte:

Tenho um formulário xxxx aberto (com origem na tabela detalhefichprep)

Pretendo com o seguinte código acrescentar nessa tabela codfichprep =0 ; CodMp = codmp de um campo do formulário, quantidade = caiza de texto37 do formulário

Código:: Private Sub TransfereAcerto_Click() Dim Rst As DAO.Recordset If MsgBox("Confirma a transferência do Acerto?" & vbCr & NomeManip, vbYesNo + vbDefaultButton2) = vbYes Then 'acrescenta na tabela DetalheFichprep DoCmd.RunSQL "INSERT INTO DetalheFichPrep (CodFichPrep,CodMp,Quantidade,Estado) SELECT '0'CodMP,Texto37,Estado FROM xxx" End If Set Rst = Nothing Dim stDocName As String Dim stLinkCriteria As String MsgBox "Concluido", vbInformation, "Aviso" DoCmd.Close stDocName = "Acertos" DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.GoToRecord , , acLast End Sub

obrigado

Última edição por Alexandre Neves em Qui 04 Out 2018, 6:49 pm, editado 1 vez(es) (Motivo da edição : Título alterado: de 'Código para acrecsentar dados a uma tabela' para 'Código para acrescentar dados a uma tabela')

**Marcelo David** Qua 03 Out 2018, 1:05 pm

Marcelo David

Marcelo David: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 3928
Registrado : 21/04/2011

Mensagem nº2

Re: [Resolvido]Código para acrescentar dados a uma tabela

Mensagem Marcelo David Qua 03 Out 2018, 1:05 pm

Seu código está meio confuso, há variáveis declaradas que não são usadas...

Poderia disponibilizar o sistema com as partes envolvidas para averiguarmos?

.................................................................................

Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]

Access e VBA - Formulário Desacoplado - [Passo a passo]
[Resolvido]Código para acrescentar dados a uma tabela Yt_16x10

Conheça meu canal no Youtube e se inscreva.
[Resolvido]Código para acrescentar dados a uma tabela Marcel11

pjjpm Qui 04 Out 2018, 12:03 am

pjjpm

pjjpm: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 80
Registrado : 17/09/2014

Mensagem nº3

Re: [Resolvido]Código para acrescentar dados a uma tabela

Mensagem pjjpm Qui 04 Out 2018, 12:03 am

Olá boa noite,

Tem razão. Vou tentar ser mais explícito

Tenho um formulário xxxx aberto (com origem na tabela detalhefichprep) e contém um sub formulário com origem numa consulta

Pretendo com o seguinte código acrescentar na tabela detalhefichprep os seguintes campos:

Codfichprep =0 (valor fixo)
CodMp = codmp de um campo com o mesmo nome do formulário aberto
Quantidade = caiza de texto37 do formulário aberto
Estado = data actual

Tentei então o seguinte ao clicar no botão:

Código:: Private Sub TransfereAcerto_Click() Dim Rst As DAO.Recordset `surge uma mensagem de confirmação If MsgBox("Confirma a transferência do Acerto?" & vbCr & NomeManip, vbYesNo + vbDefaultButton2) = vbYes Then 'acrescenta na tabela DetalheFichprep DoCmd.RunSQL "INSERT INTO DetalheFichPrep (CodFichPrep,CodMp,Quantidade,Estado) SELECT '0',CodMP,Texto37,date FROM xxxx" End If Set Rst = Nothing Dim stDocName As String Dim stLinkCriteria As String `mensagem a confirmar que o procedimento foi concluído MsgBox "Concluido", vbInformation, "Aviso" `fecha o formulário xxxx e abre o formulário acertos com o último registo DoCmd.Close stDocName = "Acertos" DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.GoToRecord , , acLast End Sub

Amanhã disponibilizo aqui esta farte da bd

obrigado

**Marcelo David** Qui 04 Out 2018, 1:06 am

Marcelo David

Marcelo David: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 3928
Registrado : 21/04/2011

Mensagem nº4

Re: [Resolvido]Código para acrescentar dados a uma tabela

Mensagem Marcelo David Qui 04 Out 2018, 1:06 am

Substitua seu código por esse e veja se funciona:

Spoiler:

.................................................................................

Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]

Access e VBA - Formulário Desacoplado - [Passo a passo]
[Resolvido]Código para acrescentar dados a uma tabela Yt_16x10

Conheça meu canal no Youtube e se inscreva.
[Resolvido]Código para acrescentar dados a uma tabela Marcel11

pjjpm Qui 04 Out 2018, 9:18 am

pjjpm

pjjpm: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 80
Registrado : 17/09/2014

Mensagem nº5

Re: [Resolvido]Código para acrescentar dados a uma tabela

Mensagem pjjpm Qui 04 Out 2018, 9:18 am

Obrigado!

Vou testar

Smile

pjjpm Qui 04 Out 2018, 9:27 am

pjjpm

pjjpm: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 80
Registrado : 17/09/2014

Mensagem nº6

Re: [Resolvido]Código para acrescentar dados a uma tabela

Mensagem pjjpm Qui 04 Out 2018, 9:27 am

Ainda não foi desta

Dá erro nº de campos não coincide

Acho que falta inserir no campo estado a data atual

pjjpm Qui 04 Out 2018, 9:52 am

pjjpm

pjjpm: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 80
Registrado : 17/09/2014

Mensagem nº7

Re: [Resolvido]Código para acrescentar dados a uma tabela

Mensagem pjjpm Qui 04 Out 2018, 9:52 am

Vou testar o seguinte:

Código:: Private Sub TransfereAcerto_Click() Dim Rst As DAO.Recordset If MsgBox("Confirma a transferência do Acerto?" & vbCr & NomeManip, vbYesNo + vbDefaultButton2) = vbYes Then 'acrescenta na tabela DetalheFichprep CurrentDb.Execute "INSERT INTO DetalheFichPrep (CodFichPrep,CodMp,Quantidade,Estado) Values('0','" & CodMp & "','" & Texto37 & "',#" & Date & "#)", dbFailOnError End If Set Rst = Nothing Dim stDocName As String Dim stLinkCriteria As String MsgBox "Concluido", vbInformation, "Aviso" DoCmd.Close stDocName = "Acertos" DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.GoToRecord , , acLast End Sub

**Alvaro Teixeira** Qui 04 Out 2018, 11:03 am

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7962
Registrado : 15/03/2013

Mensagem nº8

Re: [Resolvido]Código para acrescentar dados a uma tabela

Mensagem Alvaro Teixeira Qui 04 Out 2018, 11:03 am

Olá a todos,

Pedro, o Access tem destas coisa.
Outra é que em SQL nas datas o Access é "Patriota" (idioma neutro), sendo muitas vezes necessário formatar a data à "Americana", ou seja:

Format(CampoData,"mm/dd/yyyy")

No caso do último código, fica assim:

Código:: CurrentDb.Execute "INSERT INTO DetalheFichPrep (CodFichPrep,CodMp,Quantidade,Estado) Values('0','" & CodMp & "','" & Texto37 & "',#" & Format(Date, "mm/dd/yyyy") & "#)", dbFailOnError

Outra coisa, deve evitar o utilização de palavras reservadas (Date), confira no tópico abaixo:
https://www.maximoaccess.com/t198-palavras-reservadas-do-access

Abraço

pjjpm Qui 04 Out 2018, 11:13 pm

pjjpm

pjjpm: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 80
Registrado : 17/09/2014

Mensagem nº9

Re: [Resolvido]Código para acrescentar dados a uma tabela

Mensagem pjjpm Qui 04 Out 2018, 11:13 pm

Obrigado pelas dicas Smile

Acho que agora vai ficar a funcionar direitinho.

Quero testar em pcs com outras versões do Access e também com o Runtime

Vou ter muito mais cuidado com os nomes dos campos das tabelas

Bom fim de semana