[Resolvido] Colocando as colunas na vertical

Pessoal

Bom Dia

a minha duvida é a seguinte!

Tenho uma tabela com cerca de 100 colunas, todas com valores...a minha duvida é a seguinte

eu preciso exportar uma determinada linha que o usuario selecionar em um formulário, atraves desta, formatar em uma tabela auxiliar na vertical para exportar para o excel e configurar la..

exemplo.
BancoAtual( coluna 1 coluna 2 coluna 3 coluna 4 coluna 5 coluna 6 ... coluna 100 )

Preciso que seja apresentado da seguinte maneira em uma outra tabela auxiliar

coluna x | Coluna y
(Coluna 1) (valor inserido na tabela)
(Coluna 2) (valor inserido na tabela)
(Coluna 3) (valor inserido na tabela)
(Coluna 4) (valor inserido na tabela)
(Coluna 5) (valor inserido na tabela)
(Coluna 6) (valor inserido na tabela)
... ....
(Coluna 100) (valor inserido na tabela)


feito isto irei exportar para a planilha do excel e configurar um relatorio da forma que me solicitaram.

Espero que tenham compreendido

obrigado!

Ola seja be vindo ao fórum.

Veja na sala de Códigos VBA, tem lá o que precisa para a sua duvida.

Nome do Código:
Coloca as colunas de uma Tabela de Vertical para Horizontal

JPaulo

O problema é que la está da vertical para a horizontal..

e eu nao sei como fazer o contrario...

bom.. no fim das contas, estou fazendo isto, pois preciso enviar esta tabela para o excel para trabalhar la...

se puder me ajudar...obrigado

Amigão as colunas nas tabelas, por defeito já estão em Vertical, certo ?

O que eu entendo que você quer, é deitar a coluna numa nova tabela e dar um novo nome à coluna, certo ?

Esse é o código ideal..

Repare que ele, vai criar uma tabela, e nessa tabela vai colocar o campo de nome X, com o nome da sua coluna e no campo Y o valor.

É isso que quer, certo ?

elas estao na vertical, mas quando eu abro a tabela aparecem na horizontal... (digo o nome das colunas)

não é "deitar" que eu preciso é o seguinte

atualmente esta da seguinte maneira(tabela aberta)

Nome: BancoScheda

codigo | Sk n | modello | motori | allestimenti | etc | etc
01 valor 1 valor 2 valor 3 valor 4 valor 5 valor 6
02 valor 7 valor 8 valor 9 valor 10 valor 11 valor 12

preciso que seja apresentado em uma planilha da seguinte maneira:

Nome: Aux

Nomes | Valores
codigo 01
SK n valor 1
modello valor 2
motori valor 3
allestimenti valor 4
etc valor 5
etc valor 6



irá aparecer apenas referente a um codigo, de acordo com o resultado da consulta solicitada pelo usuario..

veja se deu para entender melhor agora...

Então é isso mesmo.

Qual o problema ?

As suas colunas estão na vertical.

Veja se entende o exemplo e se é isto que quer;

http://dl.dropbox.com/u/771097/adriano.mdb

Era exatamente isto JPaulo!

agora só preciso fazer algumas adaptações, pois ao inves de clicar na linha o usuario irá clikar em um botão, e ao inves de apenas adicionar na tabela temp, deverá apagar os registros da temp e inserir na tabela vazia...

vou tentar fazer aqui, qualquer coisa volto a falar com você.

Muito obrigado pela ajuda!




uma duvida...
eu vou ter que escrever esta linha abaixo 100 vezes?
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(4).Name & "','" & rst.Fields(4) & "')"

pois este é o numero de colunas...+/-

outra coisa..eu posso pegar valores de mais de uma tabela?por exemplo, pegar da tabela tblexemplo, da tblexemplo1 e da tblexemplo2?
pois todas tem o "SK Nº" em comum, é possivel fazer isto?

obrigado

Adiano bom dia;

A conclusão a que eu chego é que você não sabe o que é Vertical e Horizontal rsrsrsrs.

Brincadeira.....

A tabela vazia é a temp a tabela de origem é tblExemplo.

pra mim vertical eh | e horizontal é ---- ... ¬¬'

se nao for isso realmente eu nao sei..hehe


ve ai a duvida acima!

Então estamos desde o inicio a falar a mesma lingua;

Código:

 Vertical = codigo | Sk n
              01    valor 1

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

            Nomes | Valores
Horizontal = codigo    01
              SK n  valor 1

"Erro de compilação

Sub ou function nao definida"

Ta dando isto em: If TableExists("temp") Then



alterei a seguinte linha do codigo

Set dbs = CurrentDb
'abre o recordset correspondente à sua linha
Set rst = CurrentDb.OpenRecordset("Select * from BancoScheda Where BancoScheda.[SK Nº]='" & Me.txtscheda & "'")


Legenda: BancoScheda é o banco onde estao todas as informações.
Sk nº é o campo principal(como o campo codigo da sua tabela)

txtscheda é o nome do txtbox onde fica a sk nº.

Você copiou tambem o código de ver se a tabela temp existe ?

havia me esquecido da segunda parte..hehe

agora deu certo sim, obrigado mais uma vez...


a minha duvida agora é a seguinte...

eu terei que escrever a linha que insere na tabela temp 100 vezes? pois este é +/- o numero de colunas que existe na tabela...

outra coisa..

posso pegar informações devarias tabelas, e inserí-las na tabela temp junto com as outras informações?

Na primeira duvida, vai ter de copiar tantas linhas quantos campos tiver.

Na segunda duvida, este código não está preparado para isso, mas se você disser o que pretende, poderemos ver isso.

A minha necessidade é a seguinte

Eu tenho um formulário com alguns subformulários, todos os subformulários estao ligados a "SK Nº" correspondente a ele..

por exemplo...

o formulario principal tem um sub formulário, onde a "sk nº" esta vinculada diretamente com o formulario principal, mas como cada subformulário tem uma tabela diferente, eu preciso que ele pegue das outras tabelas também o que corresponde aquela "SK Nº".


deu pra entender? nao sei se expliquei direito xD

Sim é possivel;

Esse código tem de estar em botões diferentes, e tem de mudar o:

Set rst = CurrentDb.OpenRecordset("Select * from tblExemplo BancoScheda.[SK Nº]='" & Me.txtscheda & "'")

JPaulo

Será que se eu fizer da seguinte maneira da certo?

Private Sub BtnExportar_Click()

'By JPaulo Maximo Access
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim tdfNova As TableDef
On Error Resume Next

CurrentDb.Execute "Drop table temp"


Set dbs = CurrentDb
Set rst = CurrentDb.OpenRecordset("Select * from BancoScheda Where BancoScheda.[SK Nº]='" & Me.txtscheda & "'")

On Error Resume Next
'cria a tabela temporaria de nome temp
Set tdfNova = dbs.CreateTableDef("temp")
'cria dois campos de nomes X e Y em formato texto
With tdfNova
.Fields.Append .CreateField("X", dbText)
.Fields.Append .CreateField("Y", dbText)

End With

dbs.TableDefs.Append tdfNova
dbs.TableDefs.Refresh
'faz o insert na tabela temp, com o nome da coluna e o valor
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(0).Name & "','" & rst.Fields(0) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(1).Name & "','" & rst.Fields(1) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(2).Name & "','" & rst.Fields(2) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(3).Name & "','" & rst.Fields(3) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(4).Name & "','" & rst.Fields(4) & "')"
MsgBox "Tabela criada com sucesso..."
End If
Set rst = Nothing

Set dbs = CurrentDb
Set rst = CurrentDb.OpenRecordset("Select * from [Tabela Carta de Modificações] Where [Tabela Carta de Modificações].[SK Nº]='" & Me.txtscheda & "'")

On Error Resume Next
'cria a tabela temporaria de nome temp
Set tdfNova = dbs.CreateTableDef("temp")
'cria dois campos de nomes X e Y em formato texto
With tdfNova
.Fields.Append .CreateField("X", dbText)
.Fields.Append .CreateField("Y", dbText)

End With

dbs.TableDefs.Append tdfNova
dbs.TableDefs.Refresh
'faz o insert na tabela temp, com o nome da coluna e o valor
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(0).Name & "','" & rst.Fields(0) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(1).Name & "','" & rst.Fields(1) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(2).Name & "','" & rst.Fields(2) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(3).Name & "','" & rst.Fields(3) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(4).Name & "','" & rst.Fields(4) & "')"
MsgBox "Tabela criada com sucesso..."
End If
Set rst = Nothing


Set dbs = CurrentDb
Set rst = CurrentDb.OpenRecordset("Select * from [Relação de Pendências] Where [Relação de Pendências].[SK Nº]='" & Me.txtscheda & "'")

On Error Resume Next
'cria a tabela temporaria de nome temp
Set tdfNova = dbs.CreateTableDef("temp")
'cria dois campos de nomes X e Y em formato texto
With tdfNova
.Fields.Append .CreateField("X", dbText)
.Fields.Append .CreateField("Y", dbText)

End With

dbs.TableDefs.Append tdfNova
dbs.TableDefs.Refresh
'faz o insert na tabela temp, com o nome da coluna e o valor
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(0).Name & "','" & rst.Fields(0) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(1).Name & "','" & rst.Fields(1) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(2).Name & "','" & rst.Fields(2) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(3).Name & "','" & rst.Fields(3) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(4).Name & "','" & rst.Fields(4) & "')"
MsgBox "Tabela criada com sucesso..."
End If
Set rst = Nothing

Impossivel essa repetição toda dos Recordset`s apenas num botão.

e se eu fizesse uma consulta que criasse uma tabela, com as informações agrupadas de todas as outras tabelas?

O que você pode fazer é transformar o código em Sub`s, por exemplo:

'..................................................................
Private Sub BtnExportar_Click()
Call ExportaA
Call ExportaB
Call ExportaC
End Sub

'..................................................................

Public Sub ExportaA()
'By JPaulo Maximo Access
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim tdfNova As TableDef
On Error Resume Next

CurrentDb.Execute "Drop table temp"


Set dbs = CurrentDb
Set rst = CurrentDb.OpenRecordset("Select * from BancoScheda Where BancoScheda.[SK Nº]='" & Me.txtscheda & "'")

On Error Resume Next
'cria a tabela temporaria de nome temp
Set tdfNova = dbs.CreateTableDef("temp")
'cria dois campos de nomes X e Y em formato texto
With tdfNova
.Fields.Append .CreateField("X", dbText)
.Fields.Append .CreateField("Y", dbText)

End With

dbs.TableDefs.Append tdfNova
dbs.TableDefs.Refresh
'faz o insert na tabela temp, com o nome da coluna e o valor
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(0).Name & "','" & rst.Fields(0) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(1).Name & "','" & rst.Fields(1) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(2).Name & "','" & rst.Fields(2) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(3).Name & "','" & rst.Fields(3) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(4).Name & "','" & rst.Fields(4) & "')"
MsgBox "Tabela criada com sucesso..."
End If
Set rst = Nothing
End Sub

Public Sub ExportaB()
'By JPaulo Maximo Access
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim tdfNova As TableDef
On Error Resume Next

CurrentDb.Execute "Drop table temp"


Set dbs = CurrentDb
Set rst = CurrentDb.OpenRecordset("Select * from [Tabela Carta de Modificações] Where [Tabela Carta de Modificações].[SK Nº]='" & Me.txtscheda & "'")
On Error Resume Next
'cria a tabela temporaria de nome temp
Set tdfNova = dbs.CreateTableDef("temp")
'cria dois campos de nomes X e Y em formato texto
With tdfNova
.Fields.Append .CreateField("X", dbText)
.Fields.Append .CreateField("Y", dbText)

End With

dbs.TableDefs.Append tdfNova
dbs.TableDefs.Refresh
'faz o insert na tabela temp, com o nome da coluna e o valor
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(0).Name & "','" & rst.Fields(0) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(1).Name & "','" & rst.Fields(1) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(2).Name & "','" & rst.Fields(2) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(3).Name & "','" & rst.Fields(3) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(4).Name & "','" & rst.Fields(4) & "')"
MsgBox "Tabela criada com sucesso..."
End If
Set rst = Nothing
End Sub

Public Sub ExportaC()
'By JPaulo Maximo Access
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim tdfNova As TableDef
On Error Resume Next

CurrentDb.Execute "Drop table temp"


Set dbs = CurrentDb
Set rst = CurrentDb.OpenRecordset("Select * from [Relação de Pendências] Where [Relação de Pendências].[SK Nº]='" & Me.txtscheda & "'")
On Error Resume Next
'cria a tabela temporaria de nome temp
Set tdfNova = dbs.CreateTableDef("temp")
'cria dois campos de nomes X e Y em formato texto
With tdfNova
.Fields.Append .CreateField("X", dbText)
.Fields.Append .CreateField("Y", dbText)

End With

dbs.TableDefs.Append tdfNova
dbs.TableDefs.Refresh
'faz o insert na tabela temp, com o nome da coluna e o valor
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(0).Name & "','" & rst.Fields(0) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(1).Name & "','" & rst.Fields(1) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(2).Name & "','" & rst.Fields(2) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(3).Name & "','" & rst.Fields(3) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(4).Name & "','" & rst.Fields(4) & "')"
MsgBox "Tabela criada com sucesso..."
End If
Set rst = Nothing
End Sub

mas neste caso a linha:

CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(0).Name & "','" & rst.Fields(0) & "')"

tem que ir aumentando de acordo com cada coluna adicionada, certo?

CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(0).Name & "','" & rst.Fields(0) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(1).Name & "','" & rst.Fields(1) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(2).Name & "','" & rst.Fields(2) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(...).Name & "','" & rst.Fields(...) & "')"
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(150).Name & "','" & rst.Fields(150) & "')"

correto?

Bem eu consegui alterar o código para você não ter de adicionar manualmente tantas linhas.

Teste primeiro o novo código, sendo que a sua tabela tem 100 campos, o For nIndex = 0 To 99, terá de terminar em 99 como está.

A tabela temp não pode ser deletada, para facilitar o teste.


Private Sub BtnExportar_Click()
'By JPaulo Maximo Access
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim tdfNova As TableDef
On Error Resume Next

Set dbs = CurrentDb
'abre o recordset correspondente à sua linha
Set rst = CurrentDb.OpenRecordset("Select * from BancoScheda Where BancoScheda.[SK Nº]='" & Me.txtscheda & "'")

'percorre todos os 100 campos, sendo que o primeiro começa em 0
For nIndex = 0 To 99
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(nIndex).Name & "','" & rst.Fields(nIndex) & "')"
Next
rst.MoveNext

Set rst = Nothing

MsgBox "Registos adicionados com sucesso..."
End Sub

Veja o exemplo que é mais fácil;

http://dl.dropbox.com/u/771097/adriano_II.mdb

Vixi...

nao sei pq mais ele nao esta exportando todos os campos...somente alguns..por sinal somente os campos ond estao o checkbox...

sabe o que pode ser?

Chekbox ?

No exemplo que lhe passei não tem checkbox.

Coloque aqui o seu código já alterado, para eu ver.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' INICIO DA EXPORTAÇÃO '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub BtnExportar_Click()
Call ExportaA
'Call ExportaB
'Call ExportaC
End Sub

Public Sub ExportaA()
'By JPaulo Maximo Access
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim tdfNova As TableDef
On Error Resume Next

CurrentDb.Execute "Drop table temp"


Set dbs = CurrentDb
Set rst = CurrentDb.OpenRecordset("Select * from BancoScheda Where BancoScheda.[SK Nº]='" & Me.txtscheda & "'")

If TableExists("temp") Then

'percorre todos os 97 campos, sendo que o primeiro começa em 0
For nIndex = 0 To 96
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(nIndex).Name & "','" & rst.Fields(nIndex) & "')"
Next
rst.MoveNext

MsgBox "Registo adicionado com sucesso..."
Exit Sub
Else
On Error Resume Next
'cria a tabela temporaria de nome temp
Set tdfNova = dbs.CreateTableDef("temp")
'cria dois campos de nomes X e Y em formato texto
With tdfNova
.Fields.Append .CreateField("X", dbText)
.Fields.Append .CreateField("Y", dbText)

End With

dbs.TableDefs.Append tdfNova
dbs.TableDefs.Refresh
'faz o insert na tabela temp, com o nome da coluna e o valor
'percorre todos os 97 campos, sendo que o primeiro começa em 0
For nIndex = 0 To 96
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(nIndex).Name & "','" & rst.Fields(nIndex) & "')"
Next
rst.MoveNext

MsgBox "Tabela criada com sucesso..."
End If
Set rst = Nothing
End Sub

Não sei como está a sua tabela, mas o código não adiciona campos vazios.

No minimo terão de ter um zero por defeito.

Não tem como ele exportar os campos vazios também nao? pois realmente é isso que esta acontecendo...pois os usuarios ainda nao utilizaram para preencher..

eu precisava que ele enviassa pelo menos os nomes dos campos..

Dá sim com a função Nz

Nz(rst.Fields(nIndex), 0)

Veja:

Public Sub ExportaA()
'By JPaulo Maximo Access
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim tdfNova As TableDef
On Error Resume Next

CurrentDb.Execute "Drop table temp"


Set dbs = CurrentDb
Set rst = CurrentDb.OpenRecordset("Select * from BancoScheda Where BancoScheda.[SK Nº]='" & Me.txtscheda & "'")

If TableExists("temp") Then

'percorre todos os 97 campos, sendo que o primeiro começa em 0
For nIndex = 0 To 96
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(nIndex).Name & "','" & Nz(rst.Fields(nIndex), 0) & "')"
Next
rst.MoveNext

MsgBox "Registo adicionado com sucesso..."
Exit Sub
Else
On Error Resume Next
'cria a tabela temporaria de nome temp
Set tdfNova = dbs.CreateTableDef("temp")
'cria dois campos de nomes X e Y em formato texto
With tdfNova
.Fields.Append .CreateField("X", dbText)
.Fields.Append .CreateField("Y", dbText)

End With

dbs.TableDefs.Append tdfNova
dbs.TableDefs.Refresh
'faz o insert na tabela temp, com o nome da coluna e o valor
'percorre todos os 97 campos, sendo que o primeiro começa em 0
For nIndex = 0 To 96
CurrentDb.Execute "INSERT INTO [temp] (X,Y) VALUES ('" & rst.Fields(nIndex).Name & "','" & Nz(rst.Fields(nIndex), 0) & "')"
Next
rst.MoveNext

MsgBox "Tabela criada com sucesso..."
End If
Set rst = Nothing
End Sub

JPaulo

xD

Ta quase tudo certo..hehe


Vou fazer uns testes aki e volto para informar.

de qualquer forma, muito obrigado pelo tempo desperdiçado!

Antes de mais fiz mais um teste para você não ter o trabalho de colocar a quantidade de campos à mão.

Mude esta linha:
For nIndex = 0 To 96

Para esta:
For nIndex = 0 To (rst.Fields.Count - 2)

Com esta nova instrução, não mais você precisa de informar a quantidade de campos, ele mesmo vê isso.

Deu quase tudo certo xD

Quando estou agrupando a terceira tabela, esta aparecendo a seguinte mensagem:

"Erro Tempo de execução 3601"
"Parametros insuficientes.Eram esperados 1."

voce sabe me dizer o que pode ser?

Veja com atenção, porque essa mensagem é da falta de algum parametro ou nome incorreto.

Sem pressas...

Realmente...havia um campo incorreto, mas ja acertei e deu tudo certo agora!

Muito muito obrigado JPaulo!

você ajudou muito mesmo....

abraços!

Valew precisando estamos aqui.

Caro, j Paulo estive vendo este tópico e tenho algo parecido que preciso fazer e gostaria de sua ajuda.

tenho uma tabela que apresenta os dados da seguinte forma:
Data Horario tipo
10/02/2010 07:00 Inicio
10/02/2010 11:00 Almoço
10/02/2010 13:00 Retrono
10/02/2010 18:00 Fim
O problema é que para gerar um relatório com inúmeras marcações não caberá em uma pagina, pois haverão estas marcações todos os dias.
Há como criar uma consulta ou relatório que fique dessa forma: Ou algo que vc possa sugerir.

Data: 10/02/2010 Horario: 07:00 Tipo: Inicio Data: 10/02/2010 Horario: 11:00 Tipo: Almoço

ou seja colocar dois registros da horizontal para ganhar em espaço.
Fico no aguardo. Abraço Hernandes

Concerteza que sim, eu arranjo isso.

Só necessito que você coloque em site publico, um banco vazio com essa tabela, para eu poder ver a estrutura e fazer testes.

Obrigado pela atenção a tabela é Horario

http://www.ziddu.com/download/8736682/Ponto.rar.html

Aí está amigão.

Veja se é o que pretende.

IMPORTANTE:
Tem de ter um campo Autonumeração na tabela horario, para o Código poder percorrer todos os Recordsets.

Download

Ok, era quase isso, há como colocar dois registros na horizontal ex.:

no dia 09/02/2010 a várias marcações ex.:
mdia Entrada tipo
09/02/2010 07:00 inicio
09/02/2010 11:00 almoço
09/02/2010 13:00 retorno almoço
09/02/2010 18:00 fim
gostaria que ficasse assim:
mdia: 09/02/2010 entrada: 07:00 tipo inicio mdia:09/02/2010 entrada: 11:00 tipo:almoço

O máximo que lhe consigo fazer é isto;

http://dl.dropbox.com/u/771097/Ponto_OLD_II.rar

Caro JPaulo, o segundo exemplo que tu me passou não está pegando todos os registros da tabela, mas tudo bem, vou utilizar o primeiro exemplo, será que é possível fazer de uma forma que consiga colocar os registros na horizontal e agrupar por data, através do relatório a como só que os registros quando tu coloca na horizontal vem em apenas um campo há como colocar os resgitros na horizontal porém com o campo mdia separado?

JPaulo, otutro detalhe eu acrescentei na tabela horario, dois campos EntradaAl e TipoAl, note que na tabela no dia 09/02/2010 a um registro com o tipo almoco, há como pegar o registro da hora no caso 11:00 do campo entrada e o tipo almoco e colocar nos campos entradaal e tipoal só que na linha onde consta o tipo inicio ex.: na tabela está da seguinte forma:

Mdia entrada tipo entradaal tipoal
09/02/2010 07:54 inicio
09/02/2010 11:00 almoco

gostaria que ficasse assim:
Mdia entrada tipo entradaal tipoal
09/02/2010 07:54 inicio 11:00 almoco
09/02/2010 11:00 almoco

Para a primeira duvida;

http://dl.dropbox.com/u/771097/Ponto_OLD_III.rar

Para a segunda coloque de novo o banco só com a nova tabela;

Este é o link
http://www.ziddu.com/download/8746366/Ponto_OLD_II.rar.html

Para o que você quer esta consulta chega ???

Veja a consulta qryConsolidacao
http://dl.dropbox.com/u/771097/Ponto_OLD_IV.rar

Perfeito JPaulo, muito obrigado Parabéns!!!, só não consegui descobrir como vc fez, pois precisava calculcar se houve atraso, baseado na tabela funcionarios lá tem os respectivos horários que os funcionários fazem, tipo se o horário de inicio for maior que o horario de e-expediente então calcula, até sei fazer esta parte só não identifiquei como tu fez.

Depois de ver a sua ultima tabela, entendi o que você queria fazer e o que fiz foi apenas uma Consulta de Referência Cruzada.

Ok, se não for pedir demais, a como calcular se houve atrasos no inicio e no intervalo de almoço, pois ainda não fiz algo com consulta referencia cruzada.
Obrigado