Olha só, eu tenho um sub formulário e um botao "salvar". sempre que eu digitar alguma coisa em um determinado campo do subform e clicar em "salvar", todo campo que estiver preenchido nao poderá ser editado, mas os outros poderão.

 

Como faço isso?

 

se vc estiver trabalhando com array faça control(i).enabled=false

se não ctrnamecontrol.enabled=false fazendo isto se a tabela não aceitar valor nulo vc tem q passar o conteudo do controle para a tabela normalmente

for i  =0 to valor

           if text1(i).text <> "" then text1(i).locked = true

next i

Se os seus campos textos tiverem nomes diferentes, você poderá fazer assim:

 Dim j As Integer
   For j = 0 To frmDados.Controls.Count - 1
       If TypeOf frmDados.Controls(j) Is TextBox Then
          frmDados.Controls(j).Locked = True
       End If
    Next

    Vila

Obrigado a todos