Pessoal, criei um frmDados, onde inseri duas guias com os campos distribuídos entre elas.
Ocorre que durante o preenchimento, ao mudar de guia, os dados são salvos automaticamente, o que não desejo, pois há um botão para isso. Já tentei fazer as mudanças que minha capacidade permite, mas ainda não obtive êxito.
O comando depois de atualizar utilizado é este:
Private Sub Form_AfterUpdate()
Me.Nome.Enabled = False
Me.RG.Enabled = False
Me.RG_Estado.Enabled = False
Me.Data_Nascimento.Enabled = False
Me.Cidade_Nascimento.Enabled = False
Me.Estado_Nascimento.Enabled = False
Me.Nome_Pai.Enabled = False
Me.Nome_Mae.Enabled = False
Me.Escolaridade.Enabled = False
Me.Profissao.Enabled = False
Me.Endereco_Via.Enabled = False
Me.Endereco_nº_Complemento.Enabled = False
Me.Endereco_Bairro.Enabled = False
Me.Endereco_Cidade.Enabled = False
Me.Endereco_Estado.Enabled = False
Me.Cor_Pele.Enabled = False
Me.Cor_Olhos.Enabled = False
Me.Cor_Cabelo.Enabled = False
Me.Tipo_Cabelo.Enabled = False
Me.Altura.Enabled = False
Me.Peso.Enabled = False
Me.Sexo.Enabled = False
Me.BuscarFoto.Enabled = False
Form_frmDados.Refresh
MsgBox "As alterações foram salvas com sucesso.", vbInformation, "Aviso"
End Sub
Private Sub btn_Salvar_Click()
DoCmd.RunCommand acCmdSaveRecord
Me.Recalc
Form_frmPesquisa.Recalc
Ocorre que durante o preenchimento, ao mudar de guia, os dados são salvos automaticamente, o que não desejo, pois há um botão para isso. Já tentei fazer as mudanças que minha capacidade permite, mas ainda não obtive êxito.
O comando depois de atualizar utilizado é este:
Private Sub Form_AfterUpdate()
Me.Nome.Enabled = False
Me.RG.Enabled = False
Me.RG_Estado.Enabled = False
Me.Data_Nascimento.Enabled = False
Me.Cidade_Nascimento.Enabled = False
Me.Estado_Nascimento.Enabled = False
Me.Nome_Pai.Enabled = False
Me.Nome_Mae.Enabled = False
Me.Escolaridade.Enabled = False
Me.Profissao.Enabled = False
Me.Endereco_Via.Enabled = False
Me.Endereco_nº_Complemento.Enabled = False
Me.Endereco_Bairro.Enabled = False
Me.Endereco_Cidade.Enabled = False
Me.Endereco_Estado.Enabled = False
Me.Cor_Pele.Enabled = False
Me.Cor_Olhos.Enabled = False
Me.Cor_Cabelo.Enabled = False
Me.Tipo_Cabelo.Enabled = False
Me.Altura.Enabled = False
Me.Peso.Enabled = False
Me.Sexo.Enabled = False
Me.BuscarFoto.Enabled = False
Form_frmDados.Refresh
MsgBox "As alterações foram salvas com sucesso.", vbInformation, "Aviso"
End Sub
Private Sub btn_Salvar_Click()
DoCmd.RunCommand acCmdSaveRecord
Me.Recalc
Form_frmPesquisa.Recalc