[Resolvido]Emperrei!! Inserir dado em uma caixa de texto apartir de uma seleção max + 1tendo como consição uma combobox

Gostaria de parabenizar o grupo pelo otimo trabalho primeiramente,

Meu problema é meio complicado pelo menos para mim

Tenho 1 tabela que recebera os registros dos documentos cada novo registro é feito a partir da seleção do tipo de documento

ex: CI(na combobox) 218(na caixa de texto)
Oficio(na combobox) 114(na caixa de texto)
Memorando(na combobox) 36(na caixa de texto)

esses valores na caixa de texto devem ser definidos da seguinte forma

1º Selecionar o maior valor na tabela (tbldocexter) tendo como condição o tipo de documento definido na combobox Tipo (combinação91)(afterupdate) em seguida inserir esse valor somado + 1 na caixa de texto NUm_doc em tbldocexter

se possivel gostaria de saber como juntar o ano a esse texto

ex: ao invés de apenas 078 ficar 078/12

desde ja agradeço a todos

Bem-vindo ao fórum Thyeres!

Por favor dê uma lida nas regras do fórum beleza?


Sobre seu tópico.

Se entendi direito e resumindo, você quer que ao selecionar um tipo de documento seja escolhido na tabela o maior valor referente a esse tipo de documento? Se para CL tiver 1 e 2 buscar o valor 2, certo?

Outra coisa, quer que ao selecionar o tipo de documento e inserir o valor na caixa de texto seja colocado também o ano, ex:
2/12

O número a ser buscado na tabela para o tipo de documento é o Num_doc?

è exatamente isso Amigão, bom consegui algo fazendo o seguinte


Private Sub Combinação91_beforeupdate(Cancel As Integer)

Dim Contar As Integer

If IsNull(Me.NumeroDoc) = True Then

Contar = DMax("Quant_doc", "TblNdoc", "TipoDoc = '" & Me!Combinação91 & "'")
Me.NumeroDoc = Contar + 1

DoCmd.SetWarnings False
DoCmd.RunSQL "Update TblNdoc set Quant_doc = '" & Me.NumeroDoc & "' where TipoDoc = '" & Me!Combinação91 & "'"
DoCmd.SetWarnings True

MsgBox "O Numero de Documentos é " & Contar
Me.NumeroDoc.Requery
Contar = 0
MsgBox "A VAriavel Foi setada Para " & Contar

End If

End Sub

entretanto ainda apanho na concatenação para que o numero do Documento seja registrado com o ano Ex: 4/12

Você tentou isso?

Terá que ver o formato do campo NumeroDoc para aceitar a "/" ou criar a máscara de entrada.

Private Sub Combinação91_beforeupdate(Cancel As Integer)

Dim Contar As Integer

If IsNull(Me.NumeroDoc) = True Then

Contar = DMax("Quant_doc", "TblNdoc", "TipoDoc = '" & Me!Combinação91 & "'")
Me.NumeroDoc = Contar + 1 & "/" & Format(Year(Now), "00")
DoCmd.SetWarnings False
DoCmd.RunSQL "Update TblNdoc set Quant_doc = '" & Me.NumeroDoc & "' where TipoDoc = '" & Me!Combinação91 & "'"
DoCmd.SetWarnings True

MsgBox "O Numero de Documentos é " & Contar
Me.NumeroDoc.Requery
Contar = 0
MsgBox "A VAriavel Foi setada Para " & Contar

End If

End Sub

Nossa funcionou que uma beleza!!!! como se diz aqui no goias "so pagando uma pinga com frango pro cê" valeu demais Leandro. RESOLVIDO O ASSUNTO

kkk, gostei da espontaneidade!

Que bom que deu certo e obrigado pelo retorno.

Esses dias ganhei um pacotão de farinha de pequi (é assim que escreve?) É bem diferente de todas as farinhas que comi.