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

boas

Envio o link da bd:

http://www.4shared.com/file/fGl82FCY/Empregados_3.html

Neste link envio-vos um ficheiro que tem a tblEmpregados e tblDados.

Através do frmData consigo actualizar os campos na tblEmpregados através do module Actualizar.
No frmData escolho as datas na textbox´s e o código actualiza os registos consoante as datas na tblDados.

O que preciso é alterar o código para que os registos sejam actualizados através das datas das colunas "datainical" e "datafinal" e não pelas datas escolhidas nas textbox´s.

Resumo:

Abro frmData, carrego no botão e ele executa uma pesquisa do empregado numero 1 (joão)á tblDados onde na coluna data tenha uma data igual ou maior ou menor á que está nas colunas "datainical" e "datafinal" da tblEmpregados.

Compreenderam? Caso não tenha explicado bem digam que eu esclareço..

Cumps

Ih, não entendi muito bem não. Você tem duas textbox com as datas. Mas datainicial e datafinal vem de onde? Não é nessas textbox que você as digita?

A datainicial e dafinal vem do frmTabela_de_Empregados.

Se voce digitar la as datas (nas textbox) e carregar no botão ele copia para a tblEmpregados os empregados com as datas que voce escolheu nas textbox.

Depois ao abrir o frmData deverá bastar carregar no botão para actualizar os registos todos em tblEmpregados em função das datas (campos datainical e datafiinal).

Os dados em tblEmpregado são calculados a partir da tblDados.

cumps

Vamos la Flash.. explique passo a passo o que pretende....

Boas

Na bd que criamos anteriormente o código actualizava os registos apartir das datas que escolhiamos nas textbox. Neste base de dados que te mando quero que se actualize os registos apartir das datas que estou nos campos "datainicial" e "datafinal" .

Se reparar na tabela Empregados tenho vários registos dos mesmo func mas com datas diferentes.

Percebeu?
cumps

Seja especifico quando a que tabela.. que form... o passo a passo amigao...

Harysohn

Eu quero que o form FrmData atualize o campo "totalhorasdeproducaonormal" na tabela Empregados através das datas nos campos "datainicial" e "datafinal".

Se reparar no botão ele faz uma pesquisa a tabela Dados com as datas que escolho no textbox, agorar pretendo substituir as datas dos textbox pelas datas que tem em cada registo.

Por exemplo:

Nesse exemplo que envio não tenho mas se voce abrir o form de Tabela_de_Empregados e adicionar empregados com as seguintes datas:

22-08-2011
28-08-2011

Voce vai repara que a tblEmpregadfos vai ficar com mais dois registos. Pois só dois empregados é que estão admitidos.

Fica assim:

João

09-08-2011 a 20-08-2011

João

22-08-2011 a 28-08-2011

Joana

09-08-2011 a 20-08-2011

Joana

22-08-2011 a 28-08-2011

Preciso que o campo "totalhorasdeproducaonormal" seja actualizado através destas datas.

Percebeu?

Abrcs

Eu vou mandar um ficheiro direitinho...pera ai..

Cá vai:

http://www.4shared.com/file/dkmsncpy/Empregados.html

Repara nos empregados que estão na tabela Empregados e nos campos "datainicial" e "datafinal".

No campo ""totalhorasdeproducaonormal" tem lá os resultados que deveira aparecer caso o codigo faza a consulta e o update da tabela registos a registo (linha a linha da tabela).

Cumps

Desculpe-me não estou a entender.... Nos tinhamos feito algo... Não foi pra atualizar as horas quw fizemos???/

Nao estou condseguindo entender amigão...

Voce tem tres tabelas... Porfavor explique de forma que eu possa entender da maneira mais simples possivel.. passo a passo..

Eu não estou a enxergar o que pretende..

Preciso que o campo "totalhorasdeproducaonormal" seja actualizado através destas datas.

Percebeu?



*********** Este campo foi o que fizemos.. ele está atualizando!!!! não foi este o que fizemos????

O que quer alem?

Uma questão...

Vocer quer o que afinal?? Voce tem uma tabelaEmpregados... Uma tabela de Empregados... Puts.. pra que duas?

Seja clarro assim:

Eu quero gravar a data que esta na tabela X na tabela Y no campo XXX quando fizer a atualização...


Da forma como esta a explicar esta dificil, pois voce tem mais de uma tabela com os mesmos campos Data Inicial e final


Cumprimentos

boas

Neste ficheiro que envio só tem a tblDados e a tblEmpregados. No Form frmData tem um botão, que preciso que faza o que?!

Preciso que calcule as horas de produção normal para cada registo de empregado, através das variantes "datainicial" e "datafinal".

Como pode ver na tabela Empregados eu escrevi la há mão o resultado que deveria aparecer.

Olhe para as datas que o empregado 1 tem na tblEmpregados e depois procure na tblDados o registo do mesmo empregado mas com data igual ou inferior há data que ele tinha em tblEmpregados.

Olhe o exemplo do João (empreg = 1) na tblDados só tem registos com datas que se encaixam nas datas: 09-08-2011 e 20-08-2011 da tblEmpregados.

Alguma duvida diga...tento explicar melhor.


Link: http://www.4shared.com/file/hwA-s1xj/Datas.html?

Cumps

Olha so...:

Olhe o exemplo do João (empreg = 1) na tblDados só tem registos com datas que se encaixam nas datas: 09-08-2011 e 20-08-2011 da tblEmpregados.

Quando voce fala assim, é entre datas ou nas datas?

Porque se for entre datas.. o interessante é ter apenas uma data e na busca, buscar apenas um critério de data, buscando entre a data e Data +6 pois observei que todos os registro possuem uma diferença de 6 dias entre as datas...

Porque isso?


Porque a busca entre datas é feita em apenas um campo.... creio nao ser possivel fazer as buscas entre datas envolvendo dois campos entendeu?

O código aplicado.. ele busca pela data inicial e Final.. mas voce esta confundindo esta nomenclatura Data Inicial e Dsta final... Esta nomenclatura não tem haver com entrada e saida do empregado....

Data inicial e final é apenas o critério de pesquisa que informa ao access para encontrar os registros entre a data 1 e data 2 (inicial e final) Na mesma Coluna!!! compreendeu?

Veja se compreende e me retorne...

Quando voce fala assim, é entre datas ou nas datas?

R:. Entre datas

Porque se for entre datas.. o interessante é ter apenas uma data e na busca, buscar apenas um critério de data, buscando entre a data e Data +6 pois observei que todos os registro possuem uma diferença de 6 dias entre as datas

R:. Ponha uma diferença de 7 dias

Data inicial e final é apenas o critério de pesquisa que informa ao access para encontrar os registros entre a data 1 e data 2 (inicial e final) Na mesma Coluna!!! compreendeu?

R:.Percebi. É mesmo isso.

Substitui-se os dois campos por um. Como voce diz.

Vamos la Flash.. Segundo este ultimo exemplo que me enviou.. Explique com detalhes e passo a passo o que pretende...

Cumprimentos

Vamos la AMigão to aqui so esperando por voce.. Mais tarde estarei demasiado ocupado..

Boas

Foi como disse, mas com as alterações que você sugeriu...

Link: http://www.4shared.com/file/hwA-s1xj/Datas.html?

"boas

Neste ficheiro que envio só tem a tblDados e a tblEmpregados. No Form frmData tem um botão, que preciso que faza o que?!

Preciso que calcule as horas de produção normal para cada registo de empregado, através das variantes "datainicial" e "datafinal".

Como pode ver na tabela Empregados eu escrevi la há mão o resultado que deveria aparecer.

Olhe para as datas que o empregado 1 tem na tblEmpregados e depois procure na tblDados o registo do mesmo empregado mas com data igual ou inferior há data que ele tinha em tblEmpregados.

Olhe o exemplo do João (empreg = 1) na tblDados só tem registos com datas que se encaixam nas datas: 09-08-2011 e 20-08-2011 da tblEmpregados.

Alguma duvida diga...tento explicar melhor."

Bem... talvez não consiga explicar direito ou não estou conseguindo entender..

Segue este exemplo... Escolha a dasta 09/08/2001 na caixa texto e clique no botão e observe

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

Cunprimentos

dá erro nesta linha:

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

Amigao o Banco tem que estar com o mesmo nome que esta ai... Aqui não da erro...

já corregi.


Não aparece nada na tblEmpregados. na textbox escolho a data de ref que quero actualizar né?

Se seguir os passos que falei.. e colocar aquela data.. ele atualizara apena sos registros com a mesma

Boas

se seguir os seus passos ele dá erro na linha:

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

então modifiquei:

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

Mas mesmo assim não aparece nada na tblEmpregados :S

Amigao.. algo esta mal ai...
baixe o exemplo novamente e teste...
pois aqui esta funcionando perfeitamente

sacei novamente o ficheiro...

abro, escolho a data 09/08/2011 no form e carrego no botão.

Aparece esta linha a amarelo:

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

Baixe novamente... Acabei de testar e funcionou

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

É isso mesmo

Dá para desactivar o textbox? Ser só carregar no botão e ele actualiza logos todos os registos?!

Cumps Obrigado

Rapaz.. ai é voce que não sabe mais o que quer...
o que pediu esta feito... agora quer atualizar todos novamente...

eu não sei mais o que voce quer..

Uma hora fala uma coisa..
outra hora quer ao contrario...

Ai esta atualizando todos os registros, porem tem que escolher a data, que é o que voce queria!!!!!
Agora que quer atualizar todos.. é como estava...

Cumprimentos

para este Assunto.. Tópico Resolvido..

Cumprimentos.

No primeiro tópico eu falei:

"...O que preciso é alterar o código para que os registos sejam actualizados através das datas das colunas "datainical" e "datafinal" e não pelas datas escolhidas nas textbox´s...."

Depois você sugeriu e muito bem, por um campo chamado "dataref". E os regisot eram atualizados apartir dessa data mais 6 dias. Eu sempre falei na parte do automatico, carregar no botão e ele actualizar os registos sem ser necessario escolher a data.

Nesse exemplo eu estou actualizar apenas um tipo de registos, os que tenham data igual a 09/08/2011. Mas o que preciso é que sejam todos atualizados ao mesmo tempo.

Desculpe senão não expliquei bem mas eu falei varias vezes na parte do automático.

Cumps e Obrigado

Automatico ele atualiza todas as datas amigão...
se quiser isso é so retirar o criterio da data na SQL e excluir a caixa texto....

Se entendi mais ou menos e voce quer utilizar a data da outra tabela automaticamente sem precisar digita-la no form...

Deves carregar uma variavel com a data da outra tabela atraves do Dlookup creio e ao inves de aplicar a data da caixa na SQL aplicar esta variavel...
e por ai....

bem

No form eu digo: actualizar os registos que tem valor = 09-08-2011 no campo DataREf em tblEmpregados né?

Ele pega na data 09-08-2011 e dá mais 7 dias de intervalo. e procura na tblDados os registos com valor entre as datas escolhida e soma as horas.

Até aqui tudo bem!

Mas o que eu pretendia era não ter que dizer a data que ele devia actualizar. Devia funcionar da seguinte forma:

Abro o form, carrego no botão e ele pega na data que está no Campo DataRef de cada registo (em tblEmpregados), dá o tal intervalo de 7 dias e procura na tblDados os registos com valor entre as datas e soma as horas.

Percebeu?

Na tbl Empregados tenho o joão com a dataref = 22-08-2011. Para o atualizar terei que escolher essa data novamnete no form...eu não quero isso. Quero que ele actualize logo todos os registos.

Basicamnte está tudo certo!

Menos a parte de ter que escolher as datas.
Quer dizer está certo..mas não era essa a maneira

cumps

Se esta certo mas não era dessa maneira... Bem... foi a maneira que eu pensei... e voce disse que esta certo...

Pois bem se esta certo significa: Tópico Resolvido...

Nos vemos no próximo Tópico

Cumprimentos

Disse que estava certo, estava funcionando! foi isso que eu disse. não disse que estava como eu tinha falado no inicio...

Esses seus códigos ainda me deixam biruta Flash, kkkkkkkkkkkkkkkkk


Eis ai o teu automático:

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

Saudações

E Ponto Final neste tópico.. hehehehe

Onde você define que o código deve pesquisar mais 6 dias apartir da data da tblEmpregados?

cumps

Tem hora que nem eu mesmo entendo os códigos que fiz pra ele kkkkkkk

Eis ai



Private Sub Comando16_Click()
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




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)
'primeiro conto o numero de registros na tabela empregados para assim definir o numero de loop's a ser efetuado pelo código e carrego a variável com esse numero
StrNumFunc = DCount("*", "[Empregados]")

inti = 0

fInLoop = True
fExitLoop = False

Do Until inti >= StrNumFunc Or fExitLoop 'Aqui aplico a variável com o numero de registros na tabela para definir o numero de loop's isso é necessário para não dar erro no código que faz a atualização.. pois a cada loop é chamado a função Atualizar

DoEvents

inti = inti + 1
Me.txtID = inti 'Note que carrego uma caixa texto no form com a variável INTI e a cada loop adiciono + 1, isto é necessário pois o registro na função atualizar será utilizado utilizando o valor desta caixa texto para encontrar o código do funcionário
Call Atualizar
Loop

fInLoop = False
Exit Sub



Agora o código que faz a atualização

Private Sub Atualizar()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim ws As DAO.Workspace
Dim StrSql As String
Dim StuSql 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")

'Esta é a SQL que sera utilizada para adiquiri os dados para atualização na outra tabela, note que utiliza a caixa texto que esta sendo atualizada a cada loop no código anterior, assim filtra o sql
StrSql = "SELECT * FROM Dados WHERE numero = " & Me.txtID & " And tax='Normal' And tipodeserviço='produção'"

Set Rs = Db.OpenRecordset(StrSql)

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

Do
'Aqui vou somando as horas para ao final atualizar a outra tabela
StrHoras = StrHoras + Rs!horas
'Aqui Vou modificando a caixa texto a cada Loop com a data a ser utilizada no código abaixo que faz a atualização, assim atualiza de acordo com a data da tabela dados (DData, campo da tabela dados)
Me.txtDataLoop = Rs!Ddata
'Aqui executo a dita atualização que é feita a cada loop e com a data sendo modificada, portanto se houver data na tabela empregados condizente com a data na tabela dados, o campo será devidamente atualizado com a soma das horas correnspondentes
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


Complicado? nem me fale!!! kkkkkkkk

Cumprimentos

Amigão mais mastigado que isso impossível.. deves se esforçar ao menos para entender o que fiz...

Coloque o codigo a funcionar... e va observando... marque os codigos em tempo de execução é va executando pausadamente e observando os resultados no form e tabela...


Agora é com voce...

Agora não há mais que falar em que não esta pronto o que queria...

Topico Totalmente resolvido..

Cumprimentos.

Amigo colei esse codigo no form.

em aparece a sguinte mensagem:

Não existe nenhum registo actual

referente a esta linha:

StrHoras = StrHoras + Rs!horas

Ha amigão.... Eu te mandei o exemplo pronto...

Não sei pra que colou.. e se colou não aplicou todas as modificações...

O que vejo é que esta a fezer coisas a esmo sem procurar entender o código...

Primeiro apresa sobre o que é caixa texto, o que é variável o que é um recordset, o que é um loop.. isso se quiseres aprender... se o teu objetivo não é aprender e sim uma soloução pronta... é so abrir o que fiz...


Cumprimentos...

E se apareceu esta mensagem é porque não encontrou data compativel a atualizar... pois o codigo so atualiza se houver data correspodente na tabela de origem...

Voce simplesmente cola os códigos e não ve as outras modificações, por exemplo, na tabela eu modifiquei o campo Data para DData, pois data é uma palavra reserva do access...

Observe no código a linha do recordset que faz referencia a este campo:

Me.txtDataLoop = Rs!Ddata


Entao se simplesmente colar o código não funciona, pois uma solução envolve:
Cósigos
Form
Tabelas
Consultas
etc...

Amigo Flashed

O colega Haryshon, como outros colegas também, fazem de tudo para ajudar quem precisa. Agora, da parte de quem precisa, tem que existir boa vontade de:

1- Aprender e experimentar os códigos enviados

2- Colaborar com quem está a ajudar

3- Não esperar que façam a papinha e esperar que a coloquem na boca.

Haja bom senso.

Boas pessoal

desculpem a ausência desta dois dias mas não dei para vir ao pc.

Fui um bocadinho chato Mas é que eu não percebo nepia disto e isto já é muito á frente...Dái estar sempre a fazer perguntas e a pedir modificações!

Eu tento estudar o código mas não chego lá...neste momento ainda só sei declarar variáveis e fazer pequenos programas em vb..o que tento depois aplicar em access. Mas as linguagens são diferentes...

Quando as coisas começam a complicar fico empancando...não é não ter imaginação e simplesmente não saber destas funções que o Harysohn utiliza...nunca as vi na frente...

Mas pronto desculpem qualquer abuso e obrigado pela grande ajuda e paciência

Boa noite para todos

Estamos aqui para ajudar e só agora sabemos isso. Também tive as minhas dificuldades quando passei do VB para o Access, mas garanto que com empenho, chegamos lá. Sempre que precisar, estamos aqui, tente ser explícito e claro nas suas dúvidas. Um abraço e bom trabalho.

Obrigado pela compreensão

Sempre estamos a disposição Flash... Saudações...