[Resolvido]Do Excel para o Access

Pois, ja testei isso mas da-me erro

Da erro de compilador

Não entendi.

Não vou por variaveis! Para que né?

so preciso de defenir estes passos:

StrSql = "SELECT * FROM Dados WHERE numero = " & Me.txtID & " And tax = "Normal" And tipodeserviço = "Produção" And data = "11-08-2011" or "12-08-2011" or "13-08-2011";"

Da-me erro nos valores que estou em ""

Normal
Produção
13-08-2011

Abra novo tópico utilizando a primeira SQL que te enviei.. eu tive problemas com ela... não posso fazer isto agora...

StrSql = "SELECT * FROM Dados WHERE numero = " & Me.txtID & " And Tax = '" & Me.txtTax & "' And data >=#" & Me.DataInicial & "# And data <= #" & Me.DataFinal & "#;"

O código ficou assim:

Mas só carrega zeros


Option Compare Database


Private Sub CboEmpregado_AfterUpdate()
Me.txtID = Me.CboEmpregado.Column(0)
End Sub

Private Sub Atualizar()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim ws As DAO.Workspace
Dim StrSql As String
Dim StrHoras As Double

Set ws = DBEngine.Workspaces(0)
Set Db = ws.OpenDatabase(CurrentProject.Path & "\Empregados_2.accdb", False, False, "MS Access;PWD=senha")

StrSql = "SELECT * FROM Dados WHERE numero = " & Me.txtID & " And tax = '" & Normal & "';"

Set Rs = Db.OpenRecordset(StrSql)

If Rs.RecordCount = 0 Then
'MsgBox "sem registro selecionado", vbInformation, "Atenção"
Else
StrHoras = 0

Do While Not Rs.EOF
StrHoras = StrHoras + Rs!horas
Rs.MoveNext
Loop
End If
CurrentDb.Execute "UPDATE Empregados SET totalhorasdeproducaonormal= '" & StrHoras & "' WHERE Numero =" & Me.txtID & ";"
End Sub
Private Sub Comando16_Click()
On Error GoTo TrataErro
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim ws As DAO.Workspace
Dim StrSql As String
Dim StrHoras As Double
Dim StrNumFunc As String
Dim inti As Integer


'If IsNull(txtTax) = True Or Me.txtTax = "" Then
'MsgBox "Preencha o tipo de Hora", vbInformation, "Atenção"
' Exit Sub
'Else

Set ws = DBEngine.Workspaces(0)
Set Db = ws.OpenDatabase(CurrentProject.Path & "\Empregados_2.accdb", False, False, "MS Access;PWD=senha")

StrSql = "SELECT * FROM Empregados"

Set Rs = Db.OpenRecordset(StrSql)

StrNumFunc = DCount("*", "[Empregados]")
'MsgBox StrNumFunc
inti = 0

fInLoop = True
fExitLoop = False

Do Until inti >= StrNumFunc Or fExitLoop

DoEvents

inti = inti + 1
Me.txtID = inti
Call Atualizar
Loop

fInLoop = False
Exit Sub
'End If

TrataErro:
If Err.Number = 2220 Then
MsgBox "XXXXX"
Else
Resume Next
End If

End Sub

Amiguinho.. voce é teimoso... em, um post anterior eu falei que assim não dá certo


tente assim:

StrSql = "SELECT * FROM Dados WHERE numero = " & Me.txtID & " And tax='normal';"

A SQL Completa com o critério utilizando as datas nas caixa texto do Form:

Código:

 StrSql = "SELECT * FROM Dados WHERE numero = " & Me.txtID & " And tax='normal' And (data >=#" & Format(Me.DataInicial, "mm/dd/yyyy") & "# And data <= #" & Format(Me.DataFinal, "mm/dd/yyyy") & "#)"


Com criterios de data funcionando

http://dl.dropbox.com/u/26441349/Flashed_23_08_11.rar

Boa muito bom mesmo:)

Estou encalhado na data...

StrSql = "SELECT * FROM Dados WHERE numero = " & Me.txtID & " And tax='Extra' And data ='10/08/2011')"

Não assume o valor...

continuo a querer meter tudo no codigo

Cumps

Cara... essas datas não mudarão nunca??????????

Pra que isso se podes selecioná-las na caixa texto...

Deixa de ser cabeça dura.. do jeito que está, está totalmente funcional!!!

Para mim o que quer fazer é errado...

eu não sou cabeça dura rsrsrs Aiiii!

eu ja te explico o porque....pera!

da-me um segundo

Bem...

Vou ter a necessidade de criar varias tabelas destas para diferentes datas.
O objectivo de por a data no código é porque a data naquela tabela vai ficar fixa.

Por exemplo:

Tabela 1 com datas: 10/08/2011 a 15/08/2011
tabela 2 com datas: 16/08/2011 a 20/08/2011

Assim quando tiver umas 50 tabelas por exemplo, basta criar um botão (num form mestre) que corra um código que execute todos os form! Assim todas as vezes que os dados da tabela Dados mudarem eu atualizo todas as tabelas de uma só vez.

Da forma que está feito teria que abrir tabela uma a uma.

O meu proximo passo é criar um form mestre que execute os codigo de todas as tabelas.

Percebem?
Cumps

E pra que tanta tabela.. se pode ser apenas uma.. com datas diferentes... ai atualiza a data que desejar..

Não entendi pra que tanta tabela...

Mas... Boa Sorte...

Este tópico por mim esta totalmente encerrado, pois todas as duvidas pretentidas foram elucidadas...

Bom trabalho e até a próxima

lol assim fica mais simples;)

Como fazo com as datas?

StrSql = "SELECT * FROM Dados WHERE numero = " & Me.txtID & " And tax='Extra' And data ='10/08/2011')"

O que estou a afazer mal?

Amigo.. voce não percebe que tambem terá que ter 50 códigos para as tuas 50 tabelas??????????

se colocar a data em código pra utra data.. outro codigo... isso está errado...

E sei que mais tarde vais se arrepender disto...

Abra novo tópico com esta dúvida... Este Tópico está encerrado...

Saudações

Então como voce sugeria?

Eu por ano tenho que fazer 40 tabelas destas! Todos os anos as tabelas são iguais.

Ao logo do ano atualizo a tblDados umas 60 vezes e tenho a necessidade de cada vez que actualizo tblDados actualizar tambem as tabelas criadas para tras.

O objectivo de ter tanta tabela é para depois fazer relatorio das mesmas com as pessoas separadas por equipas...

cump

O Tópico, está resolvido?

Ainda não!...eu não sei é tirar o resolvido....

Está a ficar muito extenso e acaba confundindo quem procurar ajuda similar.

Posso fazer uma sintese no final...tipo resumo

Este tópico com relação ao assunto inicial esta resolvido Flashed... Não podemos tratar de todo um trabalho em apenas um tópico...

Tabelas são justamente para servir de receptáculo de dados, para ver os dados utiliza-se relatorios filtrados...

Estes (Relatorios) podem ser filtrados por nome, data, valores e etc....

essa sua logica de criar tabelas esta totalmente equivocada....

basta apenas uma.. e vai inserindo os dados todos na memas.. com a respectiva data...

Para consultar.. basta o relatorio filtrado, seja por nome, seja por data...

Entendeu?

Entendi...Então vamos abrir uma coluna que será "data dos registo" por exemplo.

Que terá a data dos valores calculados ne?

Assim quando quiser um relatorio da data 15/08/2011 até 20/08/2011 basta fazer um apartir dos resgisto na tabela empregados que tenham o campo "data dos registo" = a 15/08/2011 até 20/08/2011.

é essa a sua ideia?
Eu vou abrir outro tópico.

E isso ai amigão...
Tente fazer assim...
Qualquer duvida abra outro tópico..

Este com relação ao assunto.. volto a repetir esta resolvido...

Saudações

Harysohn só mais uma questão, para fechar de vez este tópico..

Como fazo para fazer os calculos para as outras colunas?
tentei copiar este codigo para os outro criterios mas não dá...tenho que criar private sub novos?

StrSql = "SELECT * FROM Dados WHERE numero = " & Me.txtID & " And tax='Normal' And (data >=#" & Format(Me.DataInicial, "mm/dd/yyyy") & "# And data <= #" & Format(Me.DataFinal, "mm/dd/yyyy") & "#)"

Cumps

Primeiro voce tem que deficnir o formato final que sua tabela terá amigão... para não ficarmos andando a voltas com codigos e mais códigos...

O Exemplo que te enviei funciona perfeitamente e é a forma correta de fazer... Selecionar o tipo de hora em uma combo..

Esta a querer meter isto diretamente no código... ai terá que fazer um código para cada tipo de hora.. o que é errado

O certo é como te enviei e esta funcionando perfeitamente...


Agora voce tem que definir se vai deixar os dados todos em uma tabela apenas, o que é o correto.. ou fazer isso de ficar criando tabelas desnecessariamente....


Pense direito no que quer fazer...

Para este tópico o exemplo que te enviei funcionou perfeitamente...

Saudações

Esse ai é somente para uma coluna...

Para outra coluna é outra sub modificando logicammente a referencia a coluna,... substituindo pela outra

Ao meter no código basta carregar no botão que ele atualiza logo os 4 tipos de horas. Porque que é errado?

Vou deixar os dados todos numa tabela : tblempregados com o tal campo "data dos registo".

Uma coisa que me preocupa.
depois terei varias datas de atualização de registo né! Como fazo para as atualizar todas?

por exemplo: Tenho o empreg. 5 com as seguintes datas no campo "data dos registos":

05/08/2011 a 10/08/2011
11/08/2011 a 20/08/2011
24/08/2011 a 31/08/2011

Se quiser atualizar os registos com estas datas terei que escolher as datas todas na combo né?

e estou-me a esquecer de que o objectivo de criar uma tabela para cada semana é poruqe cada semana os empregados são diferentes e tem diferentes horários..

não dá amigo, teremos que criar uma semana para cada filtro de data. Mas a data tem que estar no código, para ser só executar os códigos e é tudo actualizado de uma vez só.

Que acha?

Só se criar um form onde escolha os empregados que vão duplicados, para nova semana, e possa adicionar os novos.

exemplo:

Tenho o joaquim
João
Joana para a semana1

Na semana 2 tenho mais o luis:

Abro o form, copio os numeros e respectiva info dos empreg avaliados na semana anterior e por fim adiciono o luis dentro da tabela (á mão).

Assim consegue-se manter tudo numa tabela...Que acha?

Amigo... as datas poderão ser atualizadas em periodo entre datas...

Se observou no exemplo que te enviei... as duas caixa texto para datas no form... é para escolher uma data inicial e uma data final... ele abrangerá todas as datas contidas entre a data inicial e a data final

Amigão.. tuas dúvidas estão fugindo totalmente do objetivo deste tópico... lembrando que no fórum á para resolvermos as dúvidas passo a passo Cada tópico para uma dúvida,, e não tratar da composição total do teu sistema...

Voce ja deveria ter o form onde se cadastra o empregado com a sua devida data de registro...

Para atualizar a tabela por data de registro.. é so aplicar solução semelhante a dos campos datas do exemplo que te enviei...

Va fazendo e testando o teu sistema conforme lhe convier.. e surgindo as duvidas va postando em novos tópicos.. é assim que funciona

Caro amigo Flash, essa sua lógica está equivocada. Você precisa de apenas uma tabela e depois é só consultar a data pretendida nessa tabela. Ora veja bem que o Access tem limite de número de tabelas. Se for criar uma tabela para cada semana, logo logo terá atingido o número máximo de tabelas e ficará com seu banco engessado.
Como esse tópico se delongou acima das expectativas, vou encerrá-lo. Caso tenha mais dúvidas, favor abrir outro tópico.
Cumprimentos.