Tabela não busca todos dados do listbox

Olá, consegui colocar os dados de registros de ponto importados de um txt que vem na vertical para horizontal. Nessa importação aparece somente os registros que foram coletados do ponto biométrico em dias úteis, sem os fins de semana. Então preciso criar uma outra tabela com o mês de competência completo para emissão do espelho dos registros. O que fiz até agora:

- Carreguei os dados em um listbox (Origem: tbRegistros2);
- Executo uma função que carrega todos os dias do mês em outra tabela(tblCalendario);
- E finalmente teria de copiar do listbox para tabela tblCalendario os horários conforme a data de cada um.

Entretanto, não sei no que estou errando, pois está capturando somente a metade dos dados do listbox. Segue parte do bd para verificação...Deixei fixo os dados de exemplo para melhor entendimento.Blza..

Alan

Mas você está fazendo um update ao invés de um insert. Poderia explicar melhor?

Boa tarde.
Orientação no editor
Eita marcelo, atualizamos o topico junto.

Olá Marcelo, talvez tenha feito errado, pois imaginei: se já foi incluído dados na tabela ao criar calendário, então ao capturar os dados do listbox a tabela será atualizada (update):

Call CurrentDb.Execute("insert into tblCalendario " & _
"values (""" & dtBase & """,'" & txtZero & "'" & "," & txtMatricula & ");")

Onde tem txtZero inclui zeros no Campo Horario ao criar o calendário, pois pra mim da erro se não informar valor ao gerar. Com o listbox carregado com os registros da tbRegistros2, estou tentando capturar os horários(column(1)) e atualizar tblCalendario:

Sub UpdateTabela()
Dim i As Integer
For i = 0 To Me.ListBox1.ListCount - 1

CurrentDb.Execute "UPDATE tblCalendario SET Horario = '" & Me.ListBox1.Column(1, i) & "' WHERE dtBase = #" & Me.ListBox1.Column(0, i) & "# AND Matricula = " & Me.ListBox1.Column(1, i) & "# AND Horario = " & Me.ListBox1.Column(2, i) & ""

Next i
MsgBox "Registros atualizados com sucesso!"
Exit Sub
End Sub

Bem, estou tentando fazer assim: do listbox para a tabela. Agora, se tem como atualizar da tbRegistros2 direto para tblCalendario seria melhor, agradeço desde já opções..

Alan

Esse exemplo é que eu te passei, e está funcionando  conforme falou.
Está somente no cmdCriaMes

Opa crysostomo, com o duplo teria de fazer dia por dia? Pois estava tentando um laço For para capturar os horários do listbox conforme as datas e jogar na tabela conforme as mesmas datas criadas pelo calendário, ok...

Alan

Com o duplo clique ele lança os horarios para o campo do Formulário para você não precisar de copiar e colar e no botão criarMês ele inseri junto com a crianção dos dias,
O Loop eu já adicionei a inserção do horario conforme você colocou aí na mensagem 4

Sei não, pois dessa forma ao clicar ele insere os horarios da linha selecionada no listbox em todos dias, fica tudo igual. Não tá capturando data por data...??

Alan

No caso seria um loop, mas qual a semelhança desse txtZero.

um facil para você, copia de uma tabela e cola  assim

Código:

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbRegistros2(Horario) SELECT Horarios FROM tblCalendario"


rápido . ciudados com os nomes

Vejam bem, todas as vezes que consigo enviar do listbox para tabela, fica assim, somente a metade:


Todos esses horários das datas que estão aparecendo está correto, inclusive os dias 20/8 ; 21/8 e 27/8 e 28/8 que estão com zero pois se trata de fim de semana, portanto sem horários. A dúvida que persiste é porque não carrega do dia 1º ao dia 14/8 , por último usei esse código:

Sub UpdateCalendario()
Dim i As Integer

   For i = 0 To Me.Listbox2.ListCount - 1
 
   CurrentDb.Execute "UPDATE tblCalendario SET Horario = '" & Me.Listbox2.Column(1, i) & "' WHERE dtBase = #" & Me.Listbox2.Column(0, i) & "# AND Matricula = " & Me.Listbox2.Column(2, i) & ""
   
     Next i

MsgBox "Registros atualizados com sucesso!"
Exit Sub

É isso ai...sigo na luta..

Alan

Alan boa tarde:

Olá, consegui colocar os dados de registros de ponto importados de um txt que vem na vertical para horizontal.

Antes de verificar o que vc realmente precisa, algumas coisas precisam ser revistas.
Pelo que eu entendi vc faz um controle de apontamento de horas, e de forma equivocada.
Você colocou todas as marcações em um único campo? É isso mesmo?

Os horário devem estar separados, do contrário, vc não vai conseguir trabalhar/calcular as horas trabalhadas e horas extras tmb.

Sugestão de layout de tabela




Att,

Alexandre Fim

Olá Alexandre, coloquei tudo em um só campo pois não consegui separar os registros em colunas(campos) para fazer edições e cálculos com o uso de caixas de texto. Com isso preciso:
- converter os registros da tabela tbRegistros2 de vertical para horizontal por data;
- gravar esses registros em uma nova tabela com o calendario do mês inteiro e ignorando os fins de semana;
- e depois emitir um espelho de frequência.
Entretanto estou trancado nessa questão de importar todos os registros do listbox para essa nova tabela de acordo com a data do registro.
Sendo assim sigo na busca.

Alan

Olá, continuo na luta, consegui exibir os registros de horários na horizontal, entretanto todos em um só campo(ListBox2). Depois extrai desses campos concatenados com a ConsultaExtraiHorarios separar todos horários em colunas separadas e depois carreguei no ListBox4. Pra finalizar preciso copiar esses dados do listbox4 em uma tabela (tbRegistros) com todos os dias do mês de acordo com o dia e também exibindo os fins de semana sem registros. Só que quando faço a seleção no listbox4 o laço as vezes copia só a primeira linha e outras vezes nada. Segue cópia do bd.

Para testar abrir o form frmTeste ; digitar a matricula 32751; selecionar competência 08/2022 e clicar no botão Concatena e Grava na Tabela. Vai exibir oas horarios concatenados no listbox2 e executa as funções: fncBotaData (cria o calendario na tbRegistros) e a função InsereHoras(que copia os horários do listbox4 para tbRegistros de acordo com a data e coluna.

Alan