[resolvido] Gerar Tabela

Moderador: Avelino Sampaio

mapssilva
Mensagens: 11
Registrado em: 20 Jul 2016, 12:02

[resolvido] Gerar Tabela

Mensagempor mapssilva » 04 Jan 2018, 17:29

Boa tarde!


Amigo Avelino, poderia me dar uma informação, tem como replicar dados de uma tabela alterando somente a data?


Ex: data - Campo1 - Campo2
01/01/2018 06:00 07:10
Atualizar 02/01/2018 06:00 07:10
Atualizar 03/01/2018 06:00 07:10 e assim por diante, datas diferentes utilizando os mesmos dados dos campos.


Att
Marcos

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 2214
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Gerar Tabela

Mensagempor Avelino Sampaio » 08 Jan 2018, 14:04

mapssilva,

segue um exemplo. Abra o formulário de teste e clique no botão para gerar os registros.

O código é este:

Código:
Private Sub Comando3_Click()
Dim rs As DAO.Recordset
Dim strSql$, k(3)
strSql = "SELECT * FROM tblteste WHERE dataT = dmax('dataT','tblTeste')"
'carrega o registro com a maior data (considerei aqui que não haverá repetição de data nesta tabela)
Set rs = CurrentDb.OpenRecordset(strSql)
'passa para matriz os valores dos campos
k(0) = rs!dataT
k(1) = rs!campo1
k(2) = rs!campo2
'aliementa a tabela com novos registros, com data crescente
For j = 1 To Me!txtReg
rs.AddNew
rs!dataT = k(0) + j
rs!campo1 = k(1)
rs!campo2 = k(2)
rs.Update
Next
rs.Close
Set rs = Nothing
MsgBox "Abra a tabela tblTeste e verifique os registros que foram lançados...", vbInformation, "Aviso"
End Sub


Aguardamos
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

mapssilva
Mensagens: 11
Registrado em: 20 Jul 2016, 12:02

Re: Gerar Tabela

Mensagempor mapssilva » 10 Jan 2018, 13:34

Bom dia mestre Avelino,

Sim! e basicamente isso, so um puco diferente,

Ex: no dia 01/01/2018 tenho todo esse conjunto de dados, quero gerar todos esses dados para o dia seguinte 02/01/2018,ou qualquer outra data de referencia, ou seja, pega todos os dados do dia 01/01/2018 e faz uma copia para 02/01/2018.

id data horario linha cod codtab
1 01/01/2018 05:00 0.512 001 14.1
2 01/01/2018 05:20 0.513 001 14.1
3 01/01/2018 06:10 0.600 001 14.1
4 01/01/2018 06:00 0.501 001 14.1

5 02/01/2018 05:00 0.512 001 14.1
6 02/01/2018 05:20 0.513 001 14.1
7 02/01/2018 06:10 0.600 001 14.1
8 02/01/2018 06:00 0.501 001 14.1
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Avatar do usuário
Avelino Sampaio
Mensagens: 2214
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Gerar Tabela

Mensagempor Avelino Sampaio » 10 Jan 2018, 14:30

silva,

segue exemplo.

Aguardamos
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


mapssilva
Mensagens: 11
Registrado em: 20 Jul 2016, 12:02

Re: Gerar Tabela

Mensagempor mapssilva » 10 Jan 2018, 15:12

Blz, isso mesmo, Avelino muito obrigado

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Tabelas”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante