[Resolvido]bloqueio em subformulário

Amigos, estou com uma dificuldade e vim pedir a ajudar de vocÊs.
Eu tenho um subformulário com os seguintes campos.Passo, data programada, data reprogramada e data realizada.

No evento no atual, eu tenho este códigos:

Me.DataProgramada.Locked = True



If IsNull(DataRealizada) Then
Me.DataReprogramada.Locked = False
Else
Me.DataReprogramada.Locked = True
End If



If Not IsNull(Me.DataReprogramada) Or Not IsNull(Me.DataRealizada) Then
Me.Passo.Locked = True
Else
Me.Passo.Locked = False
End If

Estou tentando que o primeiro registro vazio do campo data realizada, fique desbloqueado e os demais bloqueados. Assim, forço
o usuário a realizar um passo de cada vez. Ou seja, ao preencher o campo data realizada com uma data, somente o campo data realizada
do próximo registro fique disponível, e os demais fiquem bloqueados. Imagem em anexo, talvez explique melhor.

Obrigado.

Noberto, obrigado por ajudar.

Neste caso, eu teria que fazer uma expressão no campo? Sinceramente, eu não sei como fazer.
Não possível fazer por meio do VBA?

Obrigado.

Fábio.

ok, vou elaborar melhor. Conforme a imagem enviada anteriormente:


Quando é cadastrado um novo produto (no evento se não estiver na lista da combo produto), é automaticamente registrado oito passos.

O campo data programada (é travado) é preenchido automáticamente de acordo com as datas inseridas nos campos data reprogramada e data realizada.

Quando o usuário inseri uma data no campo data reprogramada, o campo passo fica bloqueado.

Quando o usuário inseri uma data no campo data realizada o campo data reprogramada e também o campo data realizada fica bloqueado. Com isso todos os campos
do registro ficam bloqueados (exceto o campo ponto focal, mas este não vem ao caso).

Quando o campo passo é alterado,(somente é possível se os campos data reprogramada e data realizada estiverem vazios)
todos os registros seguintes são apagados, pois a sequência foi desfeita.

O meu problema está quando o usuário preenche o campo data realizada de um determinado passo, e existem passos anteriores sem o preenchimento do campo data
realizada. Com isso estes passos anteriores podem ser alterados, pois o campo data realizada estará vazio. ( o campo data reprogramada não é obrigatório).

Por isso preciso forçar o usuário a somente preencher o primeiro campo data realizada que estiver vazio.

Obrigado.

Desculpe, tem um previsão inicial de oito passos, mas no total são 15 passos, nem todos obrigatórios. Tem um relacionamento de um para muitos da tabela produto
para a tabela passo, por isso a repetição do código 633.

Eu preciso visualizar todas as informações em um único formulário, como tenho uma relação de um para muitos da tabela produto com
a tabela passo, eu uso o subformulário. Veja eu tenho assessor, empresa, produto, passos...

Eu preciso visualizar os passos e as datas em um formulário no modo folha de dados. O que seria um form normal?

Obrigado pelo código. Vou ver se eu consigo fazer um loop pela tabela e usar o seu código. Um momento por favor.

Estou tentando verificar se tem algum campo data realizada vazia com este código:

Dim testeDataRealizada As Variant
Dim Db As Database, rs As Recordset, sql As String
Set Db = CurrentDb
Set rs = Db.OpenRecordset("SELECT DataRealizada FROM TblPassosStatus WHERE CodProduto =" & CodProduto & " AND CodPassosStatus < " & CodPassosStatus)

rs.Movefirt
testeDataRealizada = rs.Fields(0)

Apenas preciso colocar mais uma condição na "WHERE", DataRealizada = nulo, mas não estou conseguindo fazer a sintaxe correta, você pode ajudar?
Acho que assim, eu posso identificar se tem algum campo com a datarealizada vazia, e usar o seu código.

Obrigado.

Noberto, fiz uma gambiarra e consegui resolver o meu problema:

Private Sub DataRealizada_BeforeUpdate(Cancel As Integer)
Dim testeDataRealizada As Variant
Dim testecodPasso As Integer
Dim Contador As Integer
Dim getpasso As Integer

testecodPasso = Me.CodPassosStatus

Dim Db As Database, rs As Recordset, sql As String
Set Db = CurrentDb
Set rs = Db.OpenRecordset("SELECT DataRealizada, Passo FROM TblPassosStatus WHERE CodProduto =" & CodProduto & " AND CodPassosStatus < " & CodPassosStatus)

If rs.BOF Then
Exit Sub
Else
rs.MoveFirst
While Not rs.EOF
testeDataRealizada = rs.Fields(0)
rs.MoveNext
Wend

End If
If IsNull(testeDataRealizada) Then

Contador = 1
End If

If Contador = 1 Then
Cancel = True
Me.DataRealizada.Undo
MsgBox "Preencha as datas dos passos anteriores"
Exit Sub
End If
End Sub

Suas duas linhas de código:

Cancel = True
Me.DataRealizada.Undo

Foram fundamentais, pois como não tenho muito experiência com o VBA, eu ainda não as tinha utilizado.

Muito Obrigado por ajudar.

Fábio.

A minha ideia no código é a seguinte:

O código faz um loop pela tabela onde o codpassoStatus é menor que o código onde o registro esta sendo modificado, se tiver
algum campo datarealizada com a data vazia, adiciona 1 a variável contador. O if, ficou fora do while (inicialmente eu estava tentando :
if variavel = "" then, mas não funcionou, então eu coloquei: if isnull(variavel) then...) mas depois eu testei
dentro do while.

Datanula você quer dizer feriado, fim de semana...?

Obrigado.

Valeu Noberto.