Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Editar dados em um ...
 
Notifications
Clear all

Editar dados em um useform

 
2024 - VBA & Macros
Post Recente por Rilton 12 anos atrás
8 Posts
2 Usuários
0 Reactions
1,322 Visualizações
RSS
 Rilton
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

Boa noite,

Caro expert's,

Minha questão é a seguinte:
Tenho o formulário com um banco de dados no access. eu queria criar uma condição para que quando o meu campo data sofresse uma alteração ( depois do registro salvo) minha txtSituacao fosse igual a "REPROGRAMADO". OBS: somente se o campo data sofrer alteração, os demais campos podem ocorrer de serem alterados.
Segue abaixo o código em que o registro é alterado:

Sql = "UPDATE Programar"
    Sql = Sql & " SET Empresa = '" & Me.txtEmpresa & "'"
    Sql = Sql & ", Estrutura = '" & Me.txtEstrutura & "'"
    Sql = Sql & ", Serviço = '" & Me.txtServico & "'"
    Sql = Sql & ", Tipo_de_Serviço = '" & Me.txtTiposervico & "'"
    Sql = Sql & ", Descrição_do_Serviço = '" & Me.txtdescricaoservico & "'"
    Sql = Sql & ", DTª_INIC_PREV = '" & Format(Me.txtDatainicial.Value, "dd/mm/yyyy") & "'"

Caso alguém saiba como fazer tal, ficarei grato.

Obrigado

 
Postado : 19/10/2012 9:07 pm
 hronconi
(@hronconi)
Posts: 314
Reputable Member
 

No seu formúlário você tem um campo Caixa de Texto para receber a data. Utilize o evento ao sair desta caixa de texto para atribuir ao seu txtSituação o valor de "REPROGRAMADO" caso a data tenha sido alterada.

 
Postado : 19/10/2012 11:32 pm
 Rilton
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

hronconi ,

O problema é que se eu fizer assim, toda vez que for inserido um novo registro minha txtsituacao ficaria como reprogramado, pois iria ser digitado uma data provavel. Eu queria fazer com que depois inserido um novo registro ao altera-lo (a data) a minha txtsitucao ficaria com o texto reprogramado.

 
Postado : 20/10/2012 6:13 am
 hronconi
(@hronconi)
Posts: 314
Reputable Member
 

Rilton,

Eu faria da seguinte forma (sugestão):

1º) Crie uma variável de controle e atribua um valor para ela no evento Novo Registro do formulário. Desta forma você vai saber que está criando um registro ou alterando.

2º) No campo data do formulário entre no evento on change e verifique o valor da variável. Se for um registro novo não faz nada senão atribui o Txtsituação para reprogramado.

Caso queira enviar um exemplo do arquivo para que eu possa lhe ajudar fique a vontade.

Abraço,

Henrique

 
Postado : 20/10/2012 3:01 pm
 Rilton
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

hronconi,

Segue o arquivo que estou criando

 
Postado : 20/10/2012 3:11 pm
 hronconi
(@hronconi)
Posts: 314
Reputable Member
 

Rilton,

Segue anexo minha sugestão para solucinar seu problema.

Parabéns pelo belo trabalho que está fazendo.

Abraço,

Henrique

 
Postado : 20/10/2012 4:47 pm
 hronconi
(@hronconi)
Posts: 314
Reputable Member
 

Rilton,

Segue anexo minha sugestão para solucinar seu problema.

Parabéns pelo belo trabalho que está fazendo.

Abraço,

Henrique

SistemaVBA.zip
 
Postado : 20/10/2012 4:47 pm
 Rilton
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

hronconi ,

Muito obrigado pela ajuda e também pelos elogios. Sua ajuda foi de fundamental importancia para criação desse trabalho. Obrigado.

 
Postado : 20/10/2012 8:56 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico