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

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.

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.

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.

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?

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.

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

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

Onde eu devo colocar tal código???

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

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,

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

Desculpe, aguardando ajuda para amanhã.

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

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

Bom dia amigo good guy,

Vou testar e aviso se deu certo.

obrigado pelo retorno.

att,

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

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

Muito obrigado!