[Resolvido]Foco em formulário

Querdos amigos,

Ando um pouco ausente por conta da correria do serviço. Mas estou de volta com a corda total!

No meu formulário tenho alguns campos que após feito a entrada de dados ficam bloqueados para edição ou exclusão.

O problema é o seguinte:

Quando abrir o formulário como registro novo, gostaria que o foco inicial estivesse em um campo, mas quando abrisse um registro já editado, gostaria que o foco estivesse em outro campo. Tem como fazer isso?

Abraços e saudades de todos,

Luciana

Olá Luciana! Você pode usar um campo para verificar se o valor já existe cadastrado. Se existir, é edição, se não existir, é adição:

If Not IsNull("NomeCampo", "NomeTabela", "Campo=" & Me!NomeCampoDoForm) Then
Me.Campo1.SetFocus
Else
Me.Campo2.SetFocus
End If

Boa Noite Criquio!!!!

Em que evento coloco esse codigo?

Você diz "quando abrir" o formulário. Então acredito que seja esse o evento: "Ao carregar" do formulário.

Criquio, ficou assim:

Private Sub Form_Load()
If Not IsNull("Processo", "[Processo PMCA]", "Campo=" & Me!Processo) Then
Me.Processo.SetFocus
Else
Me.Localização.SetFocus
End If
End Sub

Não sei o que colocar no "Campo=". Coloco o nome de que campo?

Acredito que seja isso mesmo. Só inverta a ordem dos campos a ganhar o foco. Se o processo já existe, você quer que o foco vá para o outro campo, sem se o do processo, não é?

Criqui não deu certo. Apenas desbloqueou meu campo processo.

Ficou assim:

Private Sub Form_Load()
If Not IsNull("Processo", "[Processo PMCA]", "Campo=" & Me!Processo) Then
Me.Localização.SetFocus
Else
Me.Processo.SetFocus
End If
End Sub


Pode me traduzir isso para eu saber o que significa?

Campo é o nome do campo na tabela.

If Not IsNull("Processo", "[Processo PMCA]", "Processo=" & Me!Processo) Then
Me.Localização.SetFocus
Else
Me.Processo.SetFocus
End If
End Sub

Não deu certo.

A tabela se chama "Processo PMCA"

O campo que gostaria que estivesse o foco quando abrir um registro novo é "Processo"

O campo que gostaria que estivesse o foco quando abrisse um registro já editado é "Localização".

Tente assim:

If DCount("*", "[Processo PMCA]", "Processo=" & Me!Processo) = 0 Then
Me.Processo.SetFocus
Else
Me.Localização.SetFocus
End If
End Sub

Isso vai depender tambem da situação. Se o formulário abre em um registro já existente ou se abre limpo. Se você vai digitar o código ou não. Dependendo do caso, pode ser necessário mudar o evento.

Tenho duas maneiras de abrir o formulário:

Posso abrir em um registro já existente, onde gostaria que o foco estivesse em Localização;

Ou posso abrir em um registro novo onde gostaria que estivesse o foco no campo processo.

Criquio, neste formulário tenho o seguinte codigo:

Private Sub Form_Current()

If IsNull([Processo]) Then 'Quando abrir o formulário ou mudar de registro se o campo

Me.Processo.Enabled = True 'estiver vazio habilita

Else

Me.Processo.Enabled = False 'estiver com dados desabilita

End If

End Sub



Não tem como acrescentar alguma informação neste codigo?

Tipo: se Processo estiver com dados desabilita e o foco vai para Localização?

Tente assim:

Private Sub Form_Current()

If IsNull([Processo]) Then 'Quando abrir o formulário ou mudar de registro se o campo

Me.Processo.Enabled = True 'estiver vazio habilita

Me.Processo.SetFocus

Else

Me.Processo.Enabled = False 'estiver com dados desabilita

Me.Localização.SetFocus

End If

End Sub

Perfeito Criquio. Deu certinho.

Valeu mais uma vez!!!!

Valeu. Obrigado pelo retorno