[Resolvido]Do Excel para o Access

Bem pessoal para ser mais pratico é objectivo reformulei o meu pedido de ajuda.


A minha duvida é a seguinte:

Neste link: http://www.4shared.com/file/pySwxu86/Do_excel_para_o_access_Emprega.html?

Envio-vos um ficheiro de access, onde tem duas tabelas:

Empregados
Dados

Na tabela "Dados" existem vários registos, cada registo corresponde a um utilizador diferente. Cada utilizador pode ter vários registos iguais ou não para o mesmo dia.

Na tabela Empregados tenho os seguinte campos:

numero
nome
horario
horas a fazer
Total de horas de produção normal
Total de horas de produção extra
Total de horas de descanso normal
Total de horas de descanso extra

Objectivo:

A informação nos 4 primeiros campos sou eu que escrevo, nos seguintes campos a informação aparece através de cálculos.

Por exemplo:

numero=1
nome=João
horario=8:00/18:03
horas a fazer=8,3
Total de horas de produção normal=?
Total de horas de produção extra=?
Total de horas de descanso normal=?
Total de horas de descanso extra=?

O campo "Total de horas de produção normal" devera ser calculado da seguinte forma.

O access procura todos os registos com campo numero = 1 na tabela "Dados" com tax= normal e tipodeserviço= produção e por final campo data= Entre 10-08-2011 e 15-08-2011.

Nota: A data é definida no código, é fixa.

Resultado seria:

numero=1
nome=João
horario=8:00/18:03
horas a fazer=8,3
Total de horas de produção normal=8,3
Total de horas de produção extra=0
Total de horas de descanso normal=0
Total de horas de descanso extra=0

Resumindo: Os cálculos seriam feitos e mostrados na própria tabela "Empregados".
Eu fazo isso em excel, onde Dados é uma sheet e Empregados é outra. Mas estou a querer mudar para access pois o numero de dados começa a ser muito e o excel começa a empancar.

Também compreendo que o access não é o excel, dai estar na duvida de isto sera funcional. Mas no total preciso é de uma tabela onde tenha a info que eu escrevo dos Empregados e os cálculos correspondentes a cada.

Para se perceber melhor eu transquevi o exemplo que dei em cima para o ficheiro access.

Como podem ver na tabela DAdos o numero=1 só tem registo onde o campo tax=normal e tipodeserviço= produção e a data situa-se entre os dias= 10-08-2011 e 15-08-2011.

Por isso na tabela Empregados o campo Total de horas de produção normal é igual a 8,3.

Caso não percebam alguma coisa digam por favor.
Obrigado pessoal por lerem este testamento

Cumps

Vamos la Amigão...

Como eu disse no post anterio que tratava do assunto... Tabela são receptáculos de dados apenas... Todo o cálculo que pretente dever ser feito via código VBA, ai sim depois o resultado seria levando a tabela pelo comando UPDATE Sacou.??


Verei o teu bd, qualquer coisa retorno

Saudações

Boas, Obrigado

Assim fica um topico mais limpo...o outro já tinha muitas ideias... Que confusão lol
fico aguardar resposta.

cumps

Harysohn sempre dá para fazer o que falo em cima? ou +e melhor arranjar outra forma.

cumps

As minhas desculpas pela intromissão, mas o tópico anterior foi Resolvido (fechado)?

Nao tem que pedir desculpas

Não está resolvido, pois este é a continuação. Eu apenas abri um novo para o assunto ficar mais claro.
Eu ja devia ter posto o outro topico como resolvido..mas não encontro o botão Onde é?

ciumps

Amigão.. no outro poste, digite uma mensagem dizendo que o assunto esta sendo resolvido neste tópico, e ao envia observe que há um botão Resolvido.. Clique nele ai depois envie a mensagem..

Eu farei algo para voce amanha... hoje estou realmente muito atarefado.. não posso desviar o raciocinio que estou tendo com um código aqui...

Me lembre amanha ok?

Saudações

Haaa achei o botão Nunca olhei tanto para uma pagina a procura de um botão e afinal estava noutra lol

Amanha envio-lhe uma mensagem privada

Boa sorte ai no código.
Cumps

Me exlique a questão das Datas.. Poque serão fixas?
Não mudará nunca?

É assim:

Todas as semanas eu terei que criar um nova tabela de empregados. E nessa altura defino a data que os cálculos deveram abranger.
Cada tabela corresponde a uma semana do ano. Por isso para cada a tabela a data é fixa.

Cumps

Ammigão... continuo a falar... As tabelas que enviaste continuam sem relacionamentos... sem chaves primárias... Isto está Errado!!!!!

Então a tabela dados e empregados não precisam ser relacionadas?

Em que momento voce cria a tabela dados? quando cria a de empregados?

te confesso que não estou consweguindo entender sua lógica de utilização

Não sei o porque de estarem relacionada...ainda não sei bem o proposito do relacionamento

E assim:

A tabela dados é sempre fixa apenas muda os seu dados. A tabela dados é uma tabela de dados externos, de um txt.
Quando mudo o txt (que se localiza numa pasta de rede) a info muda na tabela Dados.

A tabela empregados é criada uma nova todas as semana do ano!

Por exemplo:

Empregados Semana1
Empregados Semana2

Os campos
numero
nome
horario
horas a fazer

Podem ser iguais entre as duas semanas ou ser diferentes, posso na semana 1 ter 11 empregados e na semana 2 tiver 10. já é diferente.

Percebeu? expliquei bem?
cumps

Vamos recaptular para que eu possa entender...

A tabela dados voce já tem os valores estabelecidos... data e horas... quer apenas calcular os campos e os levar para a tblFUncionários

é Isso?

Sim, os valores que eu ja tenho são:

Tabela Dados: Todos os campos, pois são os valores dos registos dos empregados

Tabela empregados:

Eu por semana decido os empregados que quero avaliar.
Então formato (apago / adiciono) os campos numero/nome/horario/horas a fazer

Os campos a serem calculados são:

totalhorasdeproducaonormal
totalhorasdeproducaoextra
totalhorasdedescansonormal
totalhorasdedescansoextra

Neste campos aparecem os calculos que são efetuados pela logica que ja falei:

Excerto do inico do tópico:

Objectivo:

A informação nos 4 primeiros campos sou eu que escrevo, nos seguintes campos a informação aparece através de cálculos.

Por exemplo:

numero=1
nome=João
horario=8:00/18:03
horas a fazer=8,3
Total de horas de produção normal=?
Total de horas de produção extra=?
Total de horas de descanso normal=?
Total de horas de descanso extra=?

O campo "Total de horas de produção normal" devera ser calculado da seguinte forma.

O access procura todos os registos com campo numero = 1 na tabela "Dados" com tax= normal e tipodeserviço= produção e por final campo data= Entre 10-08-2011 e 15-08-2011.

Nota: A data é definida no código, é fixa.


cumps

Harysohn precisa que esclareça alguma coisa? como está a correr?

thanks

Take Easy Brother!!

Vamos Lá Flashed... Preste bastante atenção e estude o exemplo...

Ele lhe servirá de base para todos os cálculos que pretender.. O fiz pra Extra e normal... de resto use a imaginação e a lógica empregada no código para os demais cálculos que pretente...

Pois bem:



Private Sub Comando16_Click()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim ws As DAO.Workspace
Dim StrSql As String 'Variável que receberá a SQL
Dim StrHoras As Double 'Variável que receberá o valor das horas calculados

Set ws = DBEngine.Workspaces(0)
Set Db = ws.OpenDatabase(CurrentProject.Path & "\Empregados_2.accdb", False, False, "MS Access;PWD=senha")
'Acima as declarações necessárias ao recordset


'Aqui carrego a variável com a SQL que é filtrada com o Empregado selecionado na Cbo no form
'Observe que o campo utlizado no filtro é o txtID, conseguido no evento após atualizar da cbo, o filtro tambem é com relação ao tipo de hora escolhida na Cbo txtTax (Normal ou Extra)
StrSql = "SELECT * FROM Dados WHERE numero = " & Me.txtID & " And Tax = '" & Me.txtTax & "';"

'Aqui carrego o Recordser com a instrução SQL contida na Variável StrSQL
Set Rs = Db.OpenRecordset(StrSql)

'Aqui se o recordset não retornar valores maiores que 0
If Rs.RecordCount = 0 Then
MsgBox "sem registro selecionado", vbInformation, "Atenção"
'Caso contrário, caso seja valor maior que 0
Else
'Carrego a variável com valor 0 para mais adiante no código fazer a adição do mesmo com os valores das horas contidas no recordset
StrHoras = 0

'Inicio do código que executará o loop no recordset para o funcionário, fazendo a somatoria das horas
Do While Not Rs.EOF
StrHoras = StrHoras + Rs!horas 'Aqui será somado as horas... Se mais de um campo.. Vai adcionando, convem frizar que a hora somada aqui depende do tipo de hora escolhida na cbo txtTax no form (Normal ou extra) se normal soma as normais, se extra soma as extras
Rs.MoveNext 'Passo ao proximo registro do recordset para a proxima hora (Normal ou extra) se existir

Loop 'Executo o Loop
End If
'Aqui executa a atualização do total de horas de produção nornal, caso esteja selecionada no form
If Me.txtTax = "Normal" Then
CurrentDb.Execute "UPDATE Empregados SET totalhorasdeproducaonormal= '" & StrHoras & "' WHERE Numero =" & Me.txtID & ";"
End If
'Aqui executa a atualização do total de horas de produção Extra, caso esteja selecionada no form
If Me.txtTax = "Extra" Then
CurrentDb.Execute "UPDATE Empregados SET totalhorasdeproducaoExtra= '" & StrHoras & "' WHERE Numero =" & Me.txtID & ";"
End If

End Sub

Experimente escolher os funcionarios e o tipo de hora e faça a atualização, depois vá na tbl Empregados e observe o resultado

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


Bom trabalho e estudo

Boas

Ficou demais. finalmente o meu projeto esta a andar

No form existe a possibilidade de eliminar as combo? Apenas escolher a data e ao carregar ele fazia os calculos para todos os numeros que tem no campo "numero" da tabela "Empregados". Não é necessário apresentar os valores que ele vai calcular.

Apenas escolher a data, carregar no botão e ele faz os calculos para os empregados.

Por exemplo: Para o campo "totalhorasdeproducaonormal" devera exister um codigo para tax= Normal e Tipo de de servico = Produção

Da forma que esta fica muito demorado, pois no exemplo tenho apenas 2 empregados mas na realidade tenho 300 empr.

Gosto do código muito bom mesmo...eu não tinha chegado lá!
Obrigado
Cumps

REparei que é necessario postar o numro do empregado para se fazer os calulos.

É por isso que usa o txtID,né?

Em vez da comobo podia-se criar um datagrid onde eram postados todos os números. Esse datagrid teria uma coluna que era de opção sim ou não.

Bastava selecionar todas as linha e o codigo:

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

vinha buscar a informação do numero ao datagrid e não ao campo txtID.

Isto para se conseguir selecionar os empregados todos.

Para este setup txtTax (que já não existe) é normal.

é apenas uma ideia..acha pratico?

cumps

Bem amigão.. a ideia principal esta ai... é so utilizar a imaginação e fazer as alterações que achar conveniente...

A ideia de selecionar é válida sim...

A questão é voce tem que ter paramentros para identificar qual funcionario terá a linha atualizada...

Se todos tivessem horas tipo iguais seria façil, não precisaria combo.. mas como são diferentes.. como o código iria saber qual a atualizar entendeu?

Por isso é necessário ter o txtID do funcionério, que é para justamente fazer os calculos pertinentes a este, posto que são diferentes de um funcionario para outro...

Todos os funcionaris terão a linha atualizada quando eu carregar no botão

O objectivo é atualizar todos. Não dá para por o código a atualizar todos os números que estejam no campo numero da tblDados?
Ou precisa sempre do txtID? Eu dei a ideia da dtagrid mas se houver uma opção mais simples tmbm serve.

cumps

Creio que este tópico está resolvido...

Nova Dúida, Novo Tópico, pois o tópico não deve tratar do desenvolvimento completo do sistema e sim da dúvida em si...

Siga passo a passo

Saudações

Amigão.. pense comigo... como identificara a hora e o tipo de hora para quem é quem?????

Como seu código vai somar sem saber de que funcionário é????

Ele vai simplesmente somar todos juntos...

Tem que ter o filtro...

Ok.

vou postar duvida noutro tópico.

Como listar dados de uma coluna num userform e eliminar dados repetidos.

obrigado pela ajuda

antes de resolver..a data não está a ser assumida..
Penso que seja esta linha que não está a ssumir..

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

cumops

Uma ideia....

O que talvez pode ser feito é uma Lstbox com todos os funcinários.. e uma automatização nos registros da List, passando para o seguinte e aplicando este codigo...

Algo Assim:

Nas list

Func 1 .... Executa código
Seguidamente um código para mudar automaticamente para o
Func 2 ..... Executa código..

e assim sucessivamente

Tive problemas com a data no caso.. ainda estou a tentar resolver isto..

Esta parte eu desabilitei...

Assim que resolver posto

Saudações

Ok...
Fico aguardar.

Já abri um novo link conforme disse: http://maximoaccess.forumeiros.com/t3997-listbox-listar-dados#34114

Se poder ajudar agradeço

Obrigado

Pense sobre isto.. talvez se consiga o que pretende utilizando a automatização da seguinte lógica:


O que talvez pode ser feito é uma Lstbox com todos os funcinários.. e uma automatização nos registros da List, passando para o seguinte e aplicando este codigo...

Algo Assim:

Nas list

Func 1 .... Executa código
Seguidamente um código para mudar automaticamente para o
Func 2 ..... Executa código..

e assim sucessivamente

Exactamente:)

Executa o codigo para cada func.

Então a listbox é valida ne? depois o codigo lé o numero do func da mesma maneira que lé na textbox? Quero dizer, lé de linha a linha?

cumps

Este tópico creio que foi resilvido com a solução apresentada... Faltou apenas o resolvido Amigão...

Saudações

Sim claro...
Aom clicar em um botão automatiza a passagem de um registro a outro da listBox, e no intervalo executar o codigo de atualização Sacou!!??


Saudações

Sacei

Então..proximo passo. Listar todos os números sem repetição numa listbox.

Depois alterar o codigo vba para ler na listbox e nos intervalos executar a consulta (posso chmar assim né?) á tblDados.

cumps

Listar é o de menos.. Apenas transforma a Cbo no seu form em uma listBox... Click encima dela e com o botão direito tem a opção de converter em outro objeto...

Sem precisar criar uma nova list...


Voce tem que encontrar agora um jeito de automatizar a navegação na list Box...

Manualmente se voce clicar na list.. com o teclado (Setas) podes ir aos outros registros da list... o que tem que consegui é fazer isto por código Entendeu?
Proximo Registro >>>>>>>Codigo Atualiza
Codugo para ir para o proximo registro...
Proximo Registri >>>>>>> Codigo Atualiza...

E assim sucessivamente

Estou a perceber.
Ja consegui criar a listbox.

Se usar-mos as setas ele corre diretio né?
Se criarmos uma macro que faz o que a tecla para baixo faz no teclado? Assim depois de codigo Actualiza ele executa a macro que simulado o operador a carregar na seta.

Que acha?

Veja solução mais simples...

O Código Atualiza.. Transformei em uma pequena função:

Código:


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 = '" & Me.txtTax & "';" ' AND (data >=#" & Me.DataInicial & "# And data <= #" & Me.DataFinal & "#)"

    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
'Aqui executa a atualização do total de horas de produção nornal, caso esteja selecionada no form
    If Me.txtTax = "Normal" Then
        CurrentDb.Execute "UPDATE Empregados SET totalhorasdeproducaonormal= '" & StrHoras & "'  WHERE Numero =" & Me.txtID & ";"
    End If
'Aqui executa a atualização do total de horas de produção Extra, caso esteja selecionada no form
    If Me.txtTax = "Extra" Then
        CurrentDb.Execute "UPDATE Empregados SET totalhorasdeproducaoExtra= '" & StrHoras & "'  WHERE Numero =" & Me.txtID & ";"
    End If

End Sub


Criei um código para o botão que muda automaticamente a txtID e executa a função acima a cada loop do txtID

No Form criei uma caixa texto para o Numero de funcionários da empresa.. pois o loop só será executado ate este numero

Código:

Private Sub Comando16_Click()
On Error GoTo TrataErro
Dim StrNumFunc As String
Dim inti As Integer

StrNumFunc = Me.txtNumFunc
inti = 0

    fInLoop = True
    fExitLoop = False
   
    Do Until inti > StrNumFunc Or fExitLoop
   
            DoEvents
       
        inti = inti + 1
        Me.txtID = inti
        Call Atualizar
           
    Loop
 
    fInLoop = False

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

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



Agora tem materia suficiente para brincar...

Agora é so alterar de acordo com sua necessidade.. trate erros,, preveja msg's para final de codigo etc...

Fogo Quem sabe sabe

Eu estava exprimentando este codigo:

Private Sub Command23_Click()
'Me.CboEmpregado.ListIndex 1

CboEmpregado.ListIndex = CboEmpregado.ListIndex + 1
End Sub

Mas não funciona
Em visual basic funcionava...Mas o seu muito melhor.

vou estudar o código e depois chateio Logo posto o resultado;)

Obrigado por tudo

Substitua este código:

Código:

Private Sub Comando16_Click()
On Error GoTo TrataErro
Dim StrNumFunc As String
Dim inti As Integer

StrNumFunc = Me.txtNumFunc
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

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

Adicionei o Exit Sub após o Loop

E

Do Until inti >= StrNumFunc Or fExitLoop

Já fiz...mas passa-se algo. Se adicionar um novo empregado ele não lê.

Tenho que adicionar mais linhas no Loop né?
Se tiver 300 empregados tenho que adicionar 300 loop?

O que eu disse está errado...pensei que o numero de LOOP tivesse haver com os empregados...

Amigão.. agora é voce que não está a prestar atenção...

O loop so será executado até o limite estabelecido na caixa texto txtNumFunc...

Que no exemplo que te enviei apliquei valor padrão 2, pois aqui so tinha dois na tabela...

Se tens 300... coloque 300 na caixa texto...

O loop será executado somente até este teto máximo

Veja:

StrNumFunc = Me.txtNumFunc
inti = 0
fInLoop = True
fExitLoop = False

Do Until inti >= StrNumFunc Or fExitLoop

Observe que se encerra o loo quando o mesmo for Maior ou Igual a Variável StrNumFunc.. que é o numero de funcionários na caixa texto

Capite!!!

Opa distrai-me

Na textbox você tem que por o numero do empregado mais alto!

Exprimente por um empregado com numero 10!
Se puser 3 na textbox ele não executa.

cumps

Estive a pensar e não existe necessidade de criar uma variavel..penso eu

Tentei modificar o código desta maneira:

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

Onde tax (Coluna em Dados é igual a Normal)

Só que nada acontece.

Ficou assim:


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)
CurrentDb.Execute "UPDATE Empregados SET totalhorasdeproducaonormal= '" & StrHoras & "' WHERE Numero =" & Me.txtID & ";"
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


End Sub

é sim..
mas pra que variável com esse valor..

Não é melhor escolher na combo e atualizar de acordo com a escolha?

Não, a combo da trabalho.

Quero definir tudo no codigo do vba. Assim é so carregar no botão e ele actualiza.

estava a pensar usar as variáveis para a data. Assim resolvia-se o problema da data.

Bem meu amigo... Ai é com voce agora.. faça as modificações que pretender.. e qualquer dúvida poste


Apenas modifiquei algo pra ti...

Para não precisar digitar o numero de funcionários, utilizei o Dcount para contar a tabela empregados e levar o valor para definir o Loop


Veja

Código:


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

Agora não precisa da caixa texto txtNumFunc...


Saudações e bom trabalho

Beleza

Desativei as msgbox para não ter que carregar sempre OK.

como eu devo definir as variáveis no access?E como devo disser que o campo tax é igual a Normal? Pois não estou a conseguir dizer isso!

cumps

Eu aconselho deixar a combo... o unico trabalho e selecionar o tipo de hora a atualizar...

Mas se prefere de outra maneira.. tudo bem


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

Amigão... em tanto código que está a mexer.. não percebeste o tanto de variáveis que está lidando????


StrNumFun, Into StrSQL todas são variáveis...

é so utilizar o mesmo padrao, sabendo portanto definir o tipo de variavel, se string, se double etc....