[Resolvido]Modificar o código - pesquisar nas colunas

Amigão... Fiquei ate com dor na consciência, talvez possa ter entendido mal algo que falei, perdoe-me se lhe pareceu assim..

Seguindo sua necessidade enviada a mim via MP, sobre a questao do INTI...

Esta ai... Agora atualiza diretamente pelo numero do funcionário..

A INTI serve apenas para o delimitar o numero de Loop's....


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



Veja se lhe sai a contento... em havendo dúvida crie novo tópico e irei com todo prazer ajudá-lo lá...
So não o faça neste tópico pois creio que o objetivo do mesmo foi alcançado em todas as soluções aqui postadas..


Pois bem.. veja o exemplo e se quiseres mais alterações crie novo tópico com a duvida específica e sempre seja bastante detalhista na explanação de tua necessidade

os melhores cumprimentos.

Boas Harysohn

Não há problema, é normal. Estamos escrevendo e não falando...as vezes andamos a falar um para cada lado lol

O importante é que estamos a chegar a uma conclusão.

No ficheiro que me enviou fata apenas uma coisa. Aquele pormenor da data que falamos.

Por exemplo:

Na tblEmpregados tenho o empregado nº 1234 com dataref = 01-08-2011 e 08-08-2011.

Na tblDados tenho 3 registos do empregado nº 1234 com datas:

01-08-2011
05-08-2011
09-08-2011

Na tblEmpregados o somatorio das horas devia de ser:

Para o registo com dataref = 01-08-2011 o valor de totalhorasdeproducaonormal devia de ser 8,3.
Porque a pesquisa devia de ser feita apartir do dia 01-08-2011 + 6 dias. Terminando assim no dia 07-08-2011.
Portanto todos os registo entre 01-08-2011 e 07-08-2011 deviam ser somados.

Para o registo com dataref = 08-08-2011 o valor de totalhorasdeproducaonormal devia de ser 3.
Porque a pesquisa devia de ser feita apartir do dia 08-08-2011 + 6 dias. Terminando assim no dia 14-08-2011.
Portanto todos os registo entre 08-08-2011 e 14-08-2011 deviam ser somados.

Compreendeu?

Envio o ficheiro com estas datas, teste e veja os valores que apare no campo totalhorasdeproducaonormal em tblEmpregados.

http://www.4shared.com/file/632nD5em/Empregados.html?

Pensei em criar um textbox onde o código pega-se na data da coluna dataref e soma-se mais 6 dias. O loop quando fosse fazer a pesquisa para a data do campo dataref sabia que tenha que fazer a pesquisa entre a data do campo até á data da textbox...

É uma ideia...

Abrcs e obrigado

P.s. eu não abri mais tópico pois só falta este pormenor para encerrar este assunto hehehhe

O maior problema aqui mesmo é entender a logica da utilizacao disto... mas ai vai mais um

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


Cumprimentos

Não está funcionando...

Olhe...para resolver isto de uma vez Consegue-se criar esta rotina no código?

Se Dataref for igual a 01-08-2011 ele pesquisa desta forma:

Todos os registos que tenham coluna Ddata (na tblDados) = a:

01-08-2011
02-08-2011
03-08-2011
04-08-2011
05-08-2011
06-08-2011
07-08-2011

Assim escrevo no código todas as pesquisas que preciso de fazer. Ao carregar no botão ele executa todas as pesquisas.

E voila!

Nesta parte configuro o tipo de horas:

StrSql = "SELECT * FROM Dados WHERE numero = " & Me.txtID & " And tax='Normal' And tipodeserviço='produção'"

Nesta configuro as datas:

StrHoras

Assim já não precisa de usar a textbox para as datas. O que acha?

Amigao...
Se data em qual tabela???

eu ja to é confundindo tudo.....


Se Dataref for igual a 01-08-2011 ele pesquisa desta forma:
Essa data acima é em qual das tabelas?

Todos os registos que tenham coluna Ddata (na tblDados) = a:

Estas datas abaixo é em qual tabela?
01-08-2011
02-08-2011
03-08-2011
04-08-2011
05-08-2011
06-08-2011
07-08-2011

Sinceramente amigão.. eu não sei mais o que fazer....
Ja fiz vários.. ou voce nao esta sabendo explicar ou eu não estou realmente entendendo isto tudo

Ja estou a desistir.....

Mais um... Creio que é isso...


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

Amigo..calma



Se Dataref for igual a 01-08-2011 ele pesquisa desta forma:
Essa data acima é em qual das tabelas?
R:. É na tabela Empregados - Dataref é o campo!

Todos os registos que tenham coluna Ddata (na tblDados) = a:

Estas datas abaixo é em qual tabela?
01-08-2011
02-08-2011
03-08-2011
04-08-2011
05-08-2011
06-08-2011
07-08-2011

É na tabela Dados.

Siga a lógica.

Na tabela Empregados tenho vários empregados com a data no campo DataRef diferente.

Ao carregar no botão do form ele pega nessa data e vai á tabela Dados e procura na coluna Ddata a data que pegou e mais os seis dias há frente.

Feito.

Nesse ultimo ficheiro que mandou ele está a somar todas as horas, nao passa no criterio data. Tive a olhar no codigo e acho que é na parte do Rs!horas

Cumps

Mas lembre-se que voce havia pedido pra somar as horas... se lembra?

Para somar as horas refentes aquela data:

Para a data 01-08-2011 o total de horas é: 8.3
Para a data 08-08-2011 o total de horas é: 3

To entendendo mais nada.. sinto...
Voce quer somar o que afinal?

leia isto s.f.

Para assim perceber.

Na tblEmpregados tenho o empregado nº 1234 com DataRef = 01-08-2011 e 08-08-2011.

Na tblDados tenho 3 registos do empregado nº 1234 com datas:

01-08-2011
05-08-2011
09-08-2011

Na tblEmpregados o somatorio das horas devia de ser:

Para o registo com DataRef = 01-08-2011 o valor de totalhorasdeproducaonormal devia de ser 8,3.
Porque a pesquisa devia de ser feita apartir do dia 01-08-2011 + 6 dias. Terminando assim no dia 07-08-2011.
Portanto todos os registo entre 01-08-2011 e 07-08-2011 deviam ser somados.

Para o registo com DataRef = 08-08-2011 o valor de totalhorasdeproducaonormal devia de ser 3.
Porque a pesquisa devia de ser feita apartir do dia 08-08-2011 + 6 dias. Terminando assim no dia 14-08-2011.
Portanto todos os registo entre 08-08-2011 e 14-08-2011 deviam ser somados.

Compreendeu?

Envio o ficheiro com estas datas, teste e veja os valores que apare no campo totalhorasdeproducaonormal em tblEmpregados.

http://www.4shared.com/file/632nD5em/Empregados.html?

Abrcos

Minha cabeça ja está a fazer voltas depois de tantas modificações que fiz pra ti... confesso que ja cheguei no meu limite...

Segue este modelo... Observe o código.. creio que voce mesmo saberá modificá-l0 pois para voce que entende a lógica do uso é mais facil.. estude o codigo.. marque os codigos em tempo de execução e va executando e observando as alterações nas tabelas...


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



Cumprimentos

Estamos lá perto

Falta é somar os registos seguintes. No lugar de 5,3 devia estar 8,3..falata somar o valor 3.

Vou analisar o código e ver o que sai

digo já alguma coisa..
abrcs

Esta parte do código ele não está a fazer nada...

senão adicionava mais um á data né?

CurrentDb.Execute "UPDATE Empregados SET totalhorasdeproducaonormal= '" & StrHoras & "' WHERE Numero =" & Me.txtID & " And DataRef =#" & Format(Me.txtDataLoop, "mm/dd/yyyy") & "#+1;"

Cumps

é isso ai que voce quer..

Teste agora

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

Estava a pensar criar 6 textbox.

Para que?!
Para utilizar o código que falei em cima mas direccionado para textbox diferentes:

abro a textbox 30.
Ao executar o código o que voce escrito na textbox txtDataLoop era escrito na textbox 30 mas mais um dia:

Texto30.Text = txtDataLoop.Text + 1

O código ficava assim:

CurrentDb.Execute "UPDATE Empregados SET totalhorasdeproducaonormal= '" ....And DataRef =#" & Format(Me.Texto30.Text, "mm/dd/yyyy") & "#;"

CurrentDb.Execute "UPDATE Empregados SET totalhorasdeproducaonormal= '" ....And DataRef =#" & Format(Me.Texto31.Text, "mm/dd/yyyy") & "#;"

CurrentDb.Execute "UPDATE Empregados SET totalhorasdeproducaonormal= '" ....And DataRef =#" & Format(Me.Texto32.Text, "mm/dd/yyyy") & "#;"

o que acha?

Ja esta ai acima o que voce quer...

É no código Val(5))) que defino o espaço de dias...

É isto mesmo

Soma todos os valores, e de diferentes empregados com diferentes numeros.

É mesmo isto Harysohn! Muito obrigado por tudo e por toda a paciência

Obrigado e desculpe ser chato...

Obrigado

UFA!!!! Amigão que batalha.... hehehe

Fico feliz... O Val(5) 5 é o numero somado a data.. para filtrar a SQL no periodo Data + 5 dias

Sim que batalha

Mas valeu não desistir
Que beleza

Obrigado por tudo

Utilize este código.. está mais limpo, retirei linhas desnecessárias..


Option Compare Database

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.accdb", False, False, "MS Access;PWD=senha")

StrSql = "SELECT * FROM Dados WHERE numero = " & Me.txtID & " And tax='Normal' And (Ddata >=#" & Format(Me.txtDataLoop, "mm/dd/yyyy") & "# And (Ddata <= #" & Format(Me.txtDataLoop, "mm/dd/yyyy") & "#+ Val(5)))"
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
CurrentDb.Execute "UPDATE Empregados SET totalhorasdeproducaonormal= '" & StrHoras & "' WHERE Numero =" & Me.txtID & " And DataRef =#" & Format(Me.txtDataLoop, "mm/dd/yyyy") & "#;"
Rs.MoveNext
Loop
End If
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 StrNumFunc As String
Dim inti As Integer



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

StrSql = "SELECT * FROM Empregados"
Set Rs = Db.OpenRecordset(StrSql)

StrNumFunc = DCount("*", "[Empregados]")

inti = 0

fInLoop = True
fExitLoop = False

Do Until inti >= StrNumFunc Or fExitLoop

DoEvents

inti = inti + 1
Me.txtInti = inti
Me.txtID = Rs!Numero
Me.txtDataLoop = Rs!DataRef

Rs.MoveNext
Call Atualizar

Loop

fInLoop = False
Exit Sub

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

End Sub





Saudações

Está mais limpo sim....Pois já não apararece as msenagens...

Obrigado uma vez mais!

Harysohn queria aprender a fazer esses códigos. Será que me pode indicar sites ou materias que me ensinem a somar campos dentro da propria tabela?

Pois vou ter que criar um campo onde me fazer a subtracção de dois campos na tabela..

Tudo que aprendi.. aprendi aqui no fórum amigão...

Cálculos entre campos é feito em VBA ou dentro da própria consulta...

Mas posso fazer as somas entre cálculos usando o vba e dentro da propria tabela, utilizando o método actualizar né?

Cumps

Neste caso a pegaria os valores participes do cálculo na tabela, faria os mesmo em VBA depois gravaria de volta na tabela via comando UPDATE...

Cumprimentos

Imagine que quero subtrair os valores da coluna1 com a coluna2.

Como escrevo o código?

Depois com o resultado do código tenho que dizer no comando update que esse valor vai actualizar a coluna resultado. né?

Nova Dúvida... Novo Töpico.. este ja está estagnado...

Cumprimentos...