Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Max_Mga

Atualizar campo

Recommended Posts

Ola, alguem pode me ajudar por favor???

 

Tenho uma tabela te controle de tempo.

tempo_comeco e tempo_final

 

preciso encontrar o tempo_total.

 

no data source do tempo_total esta:

 

= tempo_comeco-tempo_final

 

no formulario esta mostranto o tempo total certinho, mas nao esta inserindo o valor na tabela depois de atualizado

no evento after update esta assim

 

Dim dbmydb As Database

Dim rsmyrs As Recordset

 

Set dbydb = OpenDatabase("DB_Assembly.mdb")

Set rsmyrs = dbmydb.OpenRecordset("tbl_assembly", dbOpenDynaset)

rsmyrs.Edit

rsmyrs!tempo_total = rsmyrs!tempo_comeco + rsmyrs!tempo_final

rsmyrs.Update

 

mas ainda nao esta funacionado...

o q estou fazendo de errado?

 

Por favor alguem ai?

 

brigadu!

Compartilhar este post


Link para o post
Compartilhar em outros sites

qual o erro apresentado?

 

quais os tipos de dados destes campos no DB?

Compartilhar este post


Link para o post
Compartilhar em outros sites
  Em 14/12/2009 at 21:57, 'Mário Monteiro' disse:

qual o erro apresentado?

 

quais os tipos de dados destes campos no DB?

 

Ola Mario

Nao tem erro nenhum... so q quando olho na tabela onde deveria ter entrado o valor tempo_comeco-tempo_final no campo tempo_final nao tem nada, esta vazio.

Os dados sao date/time

era pra ser bem simples mas por alguma razao nao esta salvando o resultado na tabela

 

vlww!

Compartilhar este post


Link para o post
Compartilhar em outros sites

o que você tenta armazenar nos campos? são datas mesmo? pois voce faz a subtração e depois poe onde o valor resultado?

Compartilhar este post


Link para o post
Compartilhar em outros sites
  Em 15/12/2009 at 02:08, 'Mário Monteiro' disse:

o que você tenta armazenar nos campos? são datas mesmo? pois voce faz a subtração e depois poe onde o valor resultado?

 

bom...

teria que fazer a subtracao e depois colocar o valor na tabela...mas nao faz... so calcula certo no formulario...mas nao transfere para a tabela

 

Imagem Postada

Compartilhar este post


Link para o post
Compartilhar em outros sites

o ultimo campo é de que tipo?

 

a finalidade do sistema é contar o tempo transcorrido em varias sessões?

 

melhor armazenar como inteiro ou outro tipo de dados maior e quando for necessário converter usando cálculos matemáticos senão irá se atrapalhar fazendo estas somas

Compartilhar este post


Link para o post
Compartilhar em outros sites
  Em 15/12/2009 at 21:35, 'Mário Monteiro' disse:

o ultimo campo é de que tipo?

 

a finalidade do sistema é contar o tempo transcorrido em varias sessões?

 

melhor armazenar como inteiro ou outro tipo de dados maior e quando for necessário converter usando cálculos matemáticos senão irá se atrapalhar fazendo estas somas

 

ola...

eh do tipo date/time tambem...

mas eu nao preciso calcular nada depois disso eu so preciso armazenar esse dado e o tempo eh de no maximo 8 horas...

so mais uma coisa....qualquer variavel que somo... mesmo numerica nao esta entrando na tabela pelo formulario...

estou confuso!?!?!?

 

 

vlwww!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

como está tentando fazer este update?

Compartilhar este post


Link para o post
Compartilhar em outros sites
  Em 16/12/2009 at 00:03, 'Mário Monteiro' disse:

como está tentando fazer este update?

 

 

com um evento after uptade

 

Dim dbmydb As Database

Dim rsmyrs As Recordset

 

Set dbydb = OpenDatabase("DB_Assembly.mdb")

Set rsmyrs = dbmydb.OpenRecordset("tbl_assembly", dbOpenDynaset)

rsmyrs.Edit

rsmyrs!tempo_total = rsmyrs!tempo_comeco + rsmyrs!tempo_final

rsmyrs.Update

Compartilhar este post


Link para o post
Compartilhar em outros sites

não deveria ser final menos começo?

Compartilhar este post


Link para o post
Compartilhar em outros sites
  Em 17/12/2009 at 10:05, 'Mário Monteiro' disse:

não deveria ser final menos começo?

 

opa... ta certo.... na hora de traduzir eu inverti la vai

 

Dim dbmydb As Database

Dim rsmyrs As Recordset

 

Set dbydb = OpenDatabase("DB_Assembly.mdb")

Set rsmyrs = dbmydb.OpenRecordset("tbl_assembly", dbOpenDynaset)

rsmyrs.Edit

rsmyrs!tempo_total = rsmyrs!tempo_ final+ rsmyrs!tempo_comeco

rsmyrs.Update

 

 

mas uma coisa... mesmo quando eu tenho dois valores numericos e faco o calculo no formulario e mando para a tabela nao atualiza a tabela...

o calculo eh feito certo mas nao atualiza a tabela...

 

vllww

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.