MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Autonumeração buscando + duas caixa de texto

    Compartilhe
    avatar
    anderson_cgms
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    Autonumeração buscando + duas caixa de texto

    Mensagem  anderson_cgms em 14/9/2012, 20:58

    Boa tarde,

    Por favor, peço ajuda...

    Temos vários exemplos no repositório mas não consigo adaptar ( sou leigo ), tenho em um formulário Cadastro de fornecedor o Campo código (texto); o campo PessoaFJ (texto) e o campo TipoCF (texto), gostaria que ficasse assim:

    PessosFJ = Juridica
    TipoCF = Fornecedor

    Codigo = 001 / JF > 002 / JF; caso mude o Tipo ( Para Cliente) então codigo = 003 / JC e segue.

    Ajuda.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1228
    Registrado : 05/02/2010

    Autonumeração buscando + duas caixa de texto

    Mensagem  good guy em 14/9/2012, 21:33

    Olá Anderson,

    Não entendi direito. Como deve acontecer a autonumeração? Tem que haver uma lógica de preenchimento que gere a numeração. Caso faça isso, aconteça aquilo. Essa lógica ainda não percebi em relação aos campos que você mencionou.
    avatar
    anderson_cgms
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    Re: [Resolvido]Autonumeração buscando + duas caixa de texto

    Mensagem  anderson_cgms em 14/9/2012, 21:44

    Código = gera numero sequencial.001, 002, 003...,
    PessosFJ = tem duas opções: Física ou Jurídica
    TipoCF = tem duas opções: Cliente ou Fornecedor,

    Gostaria que o campo código gerasse o numero sequencial e pegasse a inicial de cada um dos outros: 001 / JF > 002 / JF; caso mude o Tipo ( Para Cliente) então codigo = 003 / JC ou 004 / FC e segue.

    Acho que da para entender, sou ruim para me explicar. hehehe.

    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1228
    Registrado : 05/02/2010

    Autonumeração buscando + duas caixa de texto

    Mensagem  good guy em 14/9/2012, 21:58

    Qual o tipo de dados? Deduzo que seja to tipo boleano os dois campos. Se assim for, qual é a lógica? Caso clique no primeiro faça isso, caso clique no segundo faça aquilo. É isso? Tem que ser mastigado e seguir uma ordem. Isso é lógica de programação. Todo programa segue um ordem de passos a ser dado.

    Obs: Estou deixando o serviço agora. Se não tiver pressa a resposta, vou dar uma olhada no tópico amanhã de manhã, ok?
    avatar
    anderson_cgms
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    Re: [Resolvido]Autonumeração buscando + duas caixa de texto

    Mensagem  anderson_cgms em 14/9/2012, 22:06

    OK.

    a logica é simples, quando coloco no campo PessosFJ = Jurídica e no campo TipoCF = Fornecedor o campo código gera um mero 0001 e captura a primeira letra das outra caixas de texto desta forma fica = 0001 / JF , em um segundo cadastro coloco no campo PessosFJ = Física e no campo TipoCF = Fornecedor o campo código gera o numero na sequencia = 0002 e captura a primeira letra das outra caixas de texto desta forma fica = 0002 / FF.

    blz.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

    Re: [Resolvido]Autonumeração buscando + duas caixa de texto

    Mensagem  Alexandre Neves em 14/9/2012, 22:07

    Parece-me desnecessário estar com trabalho
    Colocaria assim
    Código = numero sequencial.001, 002, 003...,
    PessosFJ = duas opções: Física ou Jurídica
    TipoCF = duas opções: Cliente ou Fornecedor,
    A partir daqui, quando precisasse utilizar código mascarado, utilizava format(Código,"000 / ") & Left(PessosFJ,1) & Left(TipoCF,1)
    Para interpretar 000 / XY, criava código inverso


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    anderson_cgms
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    Re: [Resolvido]Autonumeração buscando + duas caixa de texto

    Mensagem  anderson_cgms em 14/9/2012, 22:11

    Boa tarde Alexandre,
    Obrigado por ajudar, é isso mesmo a sintase.

    Onde eu devo colocar tal código???
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

    Re: [Resolvido]Autonumeração buscando + duas caixa de texto

    Mensagem  Alexandre Neves em 14/9/2012, 22:14

    Só vendo em concrecto, no entanto, penso poder funcionar assim:
    No formulário e na tabela trabalhava tudo em separado, cada campo com seu controlo.
    Para relatórios, concatenava-os


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    anderson_cgms
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    Re: [Resolvido]Autonumeração buscando + duas caixa de texto

    Mensagem  anderson_cgms em 14/9/2012, 22:18

    rsrs, desculpe Alexandre, esta falando em grego para mim...

    Só quero personalizar um campo para autonumeração personalizada com três caixa de texto, tem exemplo por sinal muito bom do Sr. João Paulo mais não consigo adaptar.

    att,
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

    Re: [Resolvido]Autonumeração buscando + duas caixa de texto

    Mensagem  Alexandre Neves em 14/9/2012, 22:20

    Se a personalização é composta por várias partes. A 1ª é numeração sequencial, a segunda é a primeira letra de outro campo e ainda outra que é a primeira letra dum outro campo, não vejo melhor solução que a que apresentei.
    Se precisar de ajuda na implementação, informe


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    anderson_cgms
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    Re: [Resolvido]Autonumeração buscando + duas caixa de texto

    Mensagem  anderson_cgms em 14/9/2012, 22:24

    Desculpe, aguardando ajuda para amanhã.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

    Re: [Resolvido]Autonumeração buscando + duas caixa de texto

    Mensagem  Alexandre Neves em 14/9/2012, 22:26

    para que ajude, deve disponibilizar a bd, ou parte, de forma a ajudá-lo em concrecto, pois em teoria já expliquei


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1228
    Registrado : 05/02/2010

    Autonumeração buscando + duas caixa de texto

    Mensagem  good guy em 15/9/2012, 15:24

    Olá anderson,

    Tente assim, crie um campo na tabela chamado Cod e no formulário deixe-o com a propriedade Visible = False ou se preferir deixe True. Lembre-se que esse campo tem que ser do tipo Número, não permitindo duplicação.

    Public Function Contador(strCampo As String, tblTeste As String) As Long
    'Código de Wagner (McFeba) do extinto fórum ExpertAccess
    Dim strSQL As String, rkt As DAO.Recordset

    strSQL = "SELECT Max" & "(" & strCampo & ")" & " As MaxValor"
    strSQL = strSQL & " FROM " & tblTeste
    Set rkt = DBEngine(0)(0).OpenRecordset(strSQL, dbOpenForwardOnly)

    Contador = Nz(rkt("MaxValor")) + 1

    rkt.Close: Set rkt = Nothing
    End Function

    Private Sub cmdAdic_Click()
    On Error Resume Next
    DoCmd.RunCommand acCmdRecordsGoToNew
    Me.Cod.SetFocus
    End Sub

    Private Sub Form_BeforeInsert(Cancel As Integer)
    Me.Cod = Contador("Cod", "tblTeste")

    End Sub

    Private Sub Form_Current()
    'Se está em um novo registro gera o número de serie
    If Me.NewRecord Then
    Me.Cod = Contador("Cod", "tblTeste")
    End If
    End Sub

    Private Sub TipoCF_Exit(Cancel As Integer)
    Dim sPes As String
    Dim sTipo As String
    Dim sPal As String
    Dim s As String
    Dim t As String
    s = PessosFJ
    t = TipoCF

    sTipo = Format(CLng(Cod), "0000")

    If Not IsNull(PessosFJ) Or Not IsNull(TipoCF) Then
    sPes = Left(PessosFJ, 2)
    sPal = Left(TipoCF, 2)

       If s = "Jurídica" And t = "Fornecedor" Then
       
       Codigo = "" & sTipo & "/" & sPes & ""
           
       ElseIf s = "Física" And t = "Fornecedor" Then
       Codigo = "" & sTipo & "/" & sPal & ""
       Else
       Exit Sub
       End If
     
    End If

    Obs: Só não entendi se o que você acrescentar ao código são as primeiras letras de qual informação? Coloquei Jurídica ou Fornecedor quando acho que deveria ser Jurídica ou Física. De qualquer maneira, teste o código e tente adaptar da sua maneira. Valew?

    End Sub


    Última edição por good guy em 13/6/2014, 21:48, editado 3 vez(es)
    avatar
    anderson_cgms
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    Re: [Resolvido]Autonumeração buscando + duas caixa de texto

    Mensagem  anderson_cgms em 15/9/2012, 15:27

    Bom dia amigo good guy,

    Vou testar e aviso se deu certo.

    obrigado pelo retorno.

    att,
    avatar
    anderson_cgms
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    Re: [Resolvido]Autonumeração buscando + duas caixa de texto

    Mensagem  anderson_cgms em 12/11/2012, 18:41

    Boa tarde, desculpe os dois mês de demora, rsrsrs.

    Amigo good guy, certinho, apenas algumas adaptações mais ficou blz.

    Muito obrigado!

      Data/hora atual: 15/10/2018, 09:58