Início
![[Resolvido]formulário Omisso Empty](https://2img.net/i/empty.gif)
Rui.RuiPaulo 3/4/2015, 21:24Olá coloquei o seguinte no código para ficar "omisso" os campos do form, Evento, No atual
Private Sub Form_Current()
Dim ctl As Control
Dim StrName As String
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = ctl.Name
Me(StrName).Enabled = False
End Select
Next ctl
End Sub
Eventos, Ao carregar
DoCmd.GoToRecord , , acNewRec
Me.InserirNLesao.SetFocus
E tenho três botões
Inserir, Guardar, Editar e Eliminar
Private Sub Form_Current()
Dim ctl As Control
Dim StrName As String
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = ctl.Name
Me(StrName).Enabled = False
End Select
Next ctl
End Sub
Eventos, Ao carregar
DoCmd.GoToRecord , , acNewRec
Me.InserirNLesao.SetFocus
E tenho três botões
Inserir, Guardar, Editar e Eliminar
O que queria era que ao entrar no form, ao ir para um novo registo não ficasse "omisso", só ficavam os anteriores e que já foram guardados. E o botão Editar apenas editasse o registo ao qual o botão pertence, pois tenho um form com formato de formulários contínuos e os três botões em cada linha de registo.
Ou que o botão inserir só tornava aberto a linha na qual estava a ser selecionado deixando as restantes "omissas" umavez que agora o código que esta lá abre todos os registos.
Ou que o botão inserir só tornava aberto a linha na qual estava a ser selecionado deixando as restantes "omissas" umavez que agora o código que esta lá abre todos os registos.
