[Resolvido]opção de salvar no grupo de seleção

Boa noite,

Criei um grupo de seleção para cadastrar apenas os itens que eu selecionar

O problema é na hora de salvar, quando a seleção escolhida foi salva, no meu Banco não registra o campo no qual selecionei. Estou usando este codigo:

no evento apos atualizar :

Private Sub tipo_AfterUpdate()
If Me.tipo = 1 Then

Me.CNPJ.Enabled = False
Me.CPF.Enabled = True

ElseIf Me.tipo = 2 Then
Me.CPF.Enabled = False
Me.CNPJ.Enabled = True

End If
DoCmd.Save
End Sub

e no evento ao clicar:

Private Sub Salvar_Click()
If IsNull(Me.codigoCliente) Then
MsgBox "Não há dados para Salvar", vbInformation, "Advantage- Aviso"

Else

If MsgBox("SALVAR O REGISTRO?", vbYesNo, "Aviso") = vbNo Then

Me.Undo
MsgBox "PROCESSO CANCELADO PELO USUÁRIO", vbInformation
Else
DoCmd.RunCommand acCmdSaveRecord
MsgBox "O REGISTRO FOI SALVO", vbInformation, "Advantage- Cadastro de Produto"
End If
End If
DoCmd.GoToRecord , , acNewRec

End Sub

Alguem sabe porque não quer salvar o grupo selecionado.

Olá.......boa noite.

Tente assim:


Private Sub Salvar_Click()
If IsNull(Me.codigoCliente) Then
MsgBox "Não há dados para Salvar", vbInformation, "Advantage- Aviso"

Else

If MsgBox("SALVAR O REGISTRO?", vbYesNo, "Aviso") = vbyes Then
DoCmd.RunCommand acCmdSaveRecord
MsgBox "O REGISTRO FOI SALVO", vbInformation, "Advantage- Cadastro de Produto"
DoCmd.GoToRecord , , acNewRec
End If
Else
Me.Undo
MsgBox "PROCESSO CANCELADO PELO USUÁRIO", vbInformation, "Advantage- Aviso"






End If


End Sub

ola silvio, obrigado pela resposta,


Não deu certo, ele salva o que não são do meu grupo de opção. Meu grupo de opçao eu tenho Fisico e Juridico e no evento apos atualizar tenho:

If Me.tipo = 1 Then 'físico

Me.CNPJ.Enabled = False
Me.CPF.Enabled = True

ElseIf Me.tipo = 2 Then 'jurídico
Me.CPF.Enabled = False
Me.CNPJ.Enabled = True

End If
DoCmd.Save

Quando eu vou salvar as informações deste evento não mostra.

Olá Danilo

Experimente:

Código:


Private Sub tipo_AfterUpdate()
If Me.tipo = 1 Then  ' CPF

  Me.CNPJ.Enabled = False
  Me.CPF.Enabled = True

Else '  CNPJ
    Me.CPF.Enabled = False
    Me.CNPJ.Enabled = True

End If

End Sub


Código:


Private Sub Salvar_Click()
If IsNull(Me.codigoCliente) Then
  MsgBox "Não há dados para Salvar", vbInformation, "Advantage- Aviso"

Else

  If MsgBox("SALVAR O REGISTRO?", vbYesNo, "Aviso") = vbYes Then
      DoCmd.RunCommand acCmdSaveRecord
      MsgBox "O REGISTRO FOI SALVO", vbInformation, "Advantage- Cadastro de Produto"
  Else
 
      MsgBox "PROCESSO CANCELADO PELO USUÁRIO", vbInformation

  End If
Endif
DoCmd.GoToRecord , , acNewRec

End Sub



Caso não funcione. procure trocar os Enabled pra locked, talvez seja por isso que o access não esteja salvando.
Então faça o teste, lembrando que locked funciona ao contrário o Enabled, ou seja,
Enabled = sim = Ativado
Locked = sim = Bloqueado


Abraços

Oi Balem obrigado por responder,

Tentei fazer este codigo tambem, mas o meu grupo de opção não salva.

Poderiam dar uma visualizada no meu Banco de dados para ver em que estou fazendo errado?

Obrigado!!!

Bom dia Danilo.


Vamos por etapas, nem sempre o erro está no código.

a- ao carregar o frm. oque está ativo ou invisível ?

b- ao clicar em novo, por exemplo...o que esse botão habilita ou esconde ?

Tente alterar para isso...
Private Sub tipo_AfterUpdate()
If Me.tipo <>"L" then ' CPF

Me.CNPJ.Enabled = False
Me.CPF.Enabled = True

Else ' CNPJ
Me.CPF.Enabled = False
Me.CNPJ.Enabled = True

End If

Tenho um exemplo clicando aqui , para que você possa dar uma olhada.

Danilo

Como o Silvio disse, o problema não estava no código.

Acontece que você colocou botões de opção isolados e se referia a eles
como se fosse uma grupo de opção.

Veja no formulário como ficou e dê uma olhada no Help do Access
sobre caixas de seleção,botões de opção, botões de alternância e grupo de opção

Não arrumei a grupo de opção no formulário, justamente para você verificar.

Abraços

Olá Silvio bom dia,

Obrigado mais uma vez pela ajuda.

Eu coloquei no evento apos atualizar no grupo de opção que contem apenas Fisico e Juridico, quando clico no fisico o juridico é desabilitado e vice-versa, são estas opções que não mostra no meu banco.
Será que algum jeito de ficar registrado no meu banco. Por exemplo o CPF = 1 e o Fisico= 2 mostrasse no meu.

Silvio voce consegue ver a estrutura do meu banco se esta correta por favor e me ajudar a fazer este procedimento.?

Bom dia Balem e Danilo.


Danilo, veja resposta do Balem.....

Acho que entendi, eu deixei isolados o campo Fisico e Juridico e quando vou registra-los eles não aparecem, mas eu tenho uma duvida? eu consigo modifica-los para aparecer no meu registro ou terei que modificar toda a estrutura?

Bom dia Danilo.

De uma olhada nesse exemplo que eu fiz.

De uma estuda na forma como estão os códigos. O exemplo esta em A2007, inclusive pode você adapta-lo a tua necessidade.

Bons estudos.

Danilo

Se deseja colocar um campo Opcao(opção) na tua tabela para esconder o campo não usado, sim , pode.
Se for isso que deseja, retorne, que explicarei com mais detalhes.

Abraços

Obrigado Balem e Silvio voces estao me ajudando muito.

Eu gostaria de deixar com a forma que fiz. Eu queria que registrasse o campo fisico e juridico ja que deixei isolados não sei se vai dar.
O que acham???

Observação: Na minha TblCliente tenho um campo Fisico e outro Juridico...No evento meu fisico = 1 juridico = 2.

Boa Tarde, Danilo...e Balem.

Eu faria da seguinte maneira ( para não mexer muito ).

-a- na tabela.

pessoafisica -->sim/nao

pessoajuridica -->sim/nao

Colocaria esses campos no form, deixando todos os campos ao carregar o form travado com enable=false, liberando ao clicar no botão novo, apenas os campos pessoafisica ou pessoajuridica.


Ao selecionar um deles.......entraria com um comando tipo assim

if pessoafisica=true then
me.nome.enabled =true
me.endereco.enabled=true
me.cpf.enabled=true
me.rg.enabled=true

me.cnpj.enabled =false
me.cnpj.visible =false

...
...
....
...

Mas isso é apenas uma simples ideia.

Eu já estava pensando nisso Silvio

Sem complicar, taí o aplicativo

Mudei o tipo dos campos fisico e juridico, como o Silvio comentou.

Abraços

Era isso mesmo funcionou direitinho...muito obrigado Balem e Silvio pela ajuda muito obrigado mesmo

So tenho uma pequena duvida: Balem voce ultilizou o grupo de opção? Poderia me dizer o que fez para conseguir?

Usei somente os campos existente na tua tabela
Vá em cada controle (fisico e juridico) e veja nas propriedades deles.
O código está no evento ao clicar de cada controle

Não esqueça de colocar o resolvido.

Abraços e

Boa sorte!

Muito obrigado Balem e Silvio resolveu o meu problema.

Bons estudos Danilo....

..
..
..

Valeu Balem !! Tanks !