Ola PessoALL!
Sou novato em Access, e como todo bom novato, estou com alguma duvidas, mas vou coloca-las em tópicos separados, pra ficar mais fácil de entender.
Eu estou desenvolvendo um cadastro de clientes e controle de OS e contas a pagar e receber para meu uso próprio, pois sou técnico de informática. Estou desenvolvendo o sistema em Access 2010 com sistema operacional windows 7 64 bits.
No cadastro de cliente, criei uma função onde através de duas check box (aquela quadradinha que faz um V qdo selecionada), chamada PF, para pessoa física e PJ para Pessoa jurídica. Qdo seleciono PF, o formulário mostra os campos RG, CPF e órgão emissor. e quando seleciono a check box PJ, ele mostra o campo CNPJ e Inscrição Estadual que também estão ocultos.
Porém o formulário esta permitindo que eu selecione as duas check box ao mesmo tempo, o que faz com que os campos apareçam todos juntos e amontoados, e quando seleciono o PJ, e decido alternar pro PF, sem fazer seleção dupla, os campos não ficam ocultos novamente. Ou seja, uma vez em exibição eles não voltam mais a ficar ocultos.
E nesta mesma função, quando digito os valores nos campos que são mostrado, de acordo com minha seleção, os valores não são gravados na tabela.
Abaixo segue o código que estou usando para fazer a função que falei;
Option Compare Database
Private Sub Form_Current()
If Me.NewRecord Then
Me.PF = 0
Me.rg = ""
Me.cpf = ""
Me.uf_rg = ""
Me.rg.Visible = False
Me.cpf.Visible = False
Me.uf_rg.Visible = False
Me.PJ = 0
Me.cnpj = ""
Me.ie = ""
Me.cnpj.Visible = False
Me.ie.Visible = False
Exit Sub
End If
End Sub
Private Sub PJ_AfterUpdate()
If PJ = -1 Then
cnpj.Visible = True
ie.Visible = True
Else
cnpj = Null
ie = Null
cnpj = False
ie = False
End If
End Sub
Private Sub PF_AfterUpdate()
If PF = -1 Then
rg.Visible = True
cpf.Visible = True
uf_rg.Visible = True
Else
rg = Null
cpf = Null
uf_rg = Null
rg = False
cpf = False
uf_rg = False
End If
End Sub
Desde já agradeço a quem puder me ajudar. E se não for pedir demais, por ser iniciantes, as vezes não compreendo explicações muito técnicas.
Qualquer dificuldade em entender meu problema, por favor me perdoem, e estou qui para esclarecer de forma a que possam entender e se for possível me ajudar.
Marcelo.
Sou novato em Access, e como todo bom novato, estou com alguma duvidas, mas vou coloca-las em tópicos separados, pra ficar mais fácil de entender.
Eu estou desenvolvendo um cadastro de clientes e controle de OS e contas a pagar e receber para meu uso próprio, pois sou técnico de informática. Estou desenvolvendo o sistema em Access 2010 com sistema operacional windows 7 64 bits.
No cadastro de cliente, criei uma função onde através de duas check box (aquela quadradinha que faz um V qdo selecionada), chamada PF, para pessoa física e PJ para Pessoa jurídica. Qdo seleciono PF, o formulário mostra os campos RG, CPF e órgão emissor. e quando seleciono a check box PJ, ele mostra o campo CNPJ e Inscrição Estadual que também estão ocultos.
Porém o formulário esta permitindo que eu selecione as duas check box ao mesmo tempo, o que faz com que os campos apareçam todos juntos e amontoados, e quando seleciono o PJ, e decido alternar pro PF, sem fazer seleção dupla, os campos não ficam ocultos novamente. Ou seja, uma vez em exibição eles não voltam mais a ficar ocultos.
E nesta mesma função, quando digito os valores nos campos que são mostrado, de acordo com minha seleção, os valores não são gravados na tabela.
Abaixo segue o código que estou usando para fazer a função que falei;
Option Compare Database
Private Sub Form_Current()
If Me.NewRecord Then
Me.PF = 0
Me.rg = ""
Me.cpf = ""
Me.uf_rg = ""
Me.rg.Visible = False
Me.cpf.Visible = False
Me.uf_rg.Visible = False
Me.PJ = 0
Me.cnpj = ""
Me.ie = ""
Me.cnpj.Visible = False
Me.ie.Visible = False
Exit Sub
End If
End Sub
Private Sub PJ_AfterUpdate()
If PJ = -1 Then
cnpj.Visible = True
ie.Visible = True
Else
cnpj = Null
ie = Null
cnpj = False
ie = False
End If
End Sub
Private Sub PF_AfterUpdate()
If PF = -1 Then
rg.Visible = True
cpf.Visible = True
uf_rg.Visible = True
Else
rg = Null
cpf = Null
uf_rg = Null
rg = False
cpf = False
uf_rg = False
End If
End Sub
Desde já agradeço a quem puder me ajudar. E se não for pedir demais, por ser iniciantes, as vezes não compreendo explicações muito técnicas.
Qualquer dificuldade em entender meu problema, por favor me perdoem, e estou qui para esclarecer de forma a que possam entender e se for possível me ajudar.
Marcelo.