[Resolvido]Bloquear Apenas a Linha Selecionada no Formulário Continuo.

Prezados,

Tenho um formulário continuo que no final de cada linha existe um botão para bloquear o registro selecionado.

No botão eu coloquei:

Private Sub Comando273_Click()

If MsgBox("Deseja Finalizar a CESV?", vbYesNo, "Encerrar") = vbYes Then
   
   me.cesv.Locked = True
   me.cia_aerea.Locked = True
   me.voo.Locked = True
   me.volume.Locked = True
   me.peso.Locked = True
   me.hora_documental.Locked = True
   me.hora_encerrado.Locked = True
   me.hora_protocolo.Locked = True
   me.divergencia.Locked = True
   me.observacao.Locked = True

   DoCmd.SetWarnings True
   MsgBox "Cesv Encerrada!", vbInformation, "Encerrada"
   DoCmd.GoToRecord , , acLast
   End If

End Sub

A questão é que ao clicar no botão, os controles de todos os registros do formulario continuo são bloqueados. O correto seria bloquear apenas os controles da linha selecionada.


Alguém poderia dar um apoio?

Atte.

Urbano Azevedo

Bom dia utazevedo,

Tente colocar um segundo if com:

Código:

If Me.RecordSelectors = True Then
   Me.cesv.Locked = True
   Me.cia_aerea.Locked = True
   ....
Else
   Me.cesv.Locked = False
   Me.cia_aerea.Locked = False
   .....
End If

ZcarlosLopes,

Infelizmente não funcionou, se quiser dar uma olhada estou anexando o banco.

Infelizmente está bloqueando todas a linha, o correto é bloquer apenas a linha do registro selecionado.

Obrigado pelo feedback.

No aguardo!

Urbano Azevedo

Na tabela tbl_controlemanifesto não existe nenhum campo para registrar que a CESV está finalizada. Do jeito que está, se eu finalizar uma CESV, abrir e fechar o aplicativo, como poderia saber qual CESV deveria estar finalizada se não salvei a informação em nenhum local?

Grande Damasceno,

Obrigado pelo apoio, mas não sei como fazer. é possível me ajudar no Banco que enviei e explicar o q foi feito?

Estou travado nisso tentei varias coisas.

Atte.

Urbano Azevedo

Resolvido.

Obrigado!