Notifications
Clear all

Gerar Nº Atendimento Automatico ao clicar em "cmbOk"

10 Posts
2 Usuários
0 Reactions
1,815 Visualizações
(@skadis)
Posts: 18
Eminent Member
Topic starter
 

Boa Tarde!

Pessoal,

Me ajudem,

Fiz um programa no VB do excel, onde Tenho 2 controles "chamado TI" e "Integração", e descrição do que a pessoa deseja ser feito, porém para que eu tenha um controle sobre o que já fiz e o que não fiz, estou criando agora um controle de pesquisa de atendimento abertos, para isso achei melhor que cada atendimento gerasse um CÓDIGO(nº de atendimento" automático toda vez que a pessoa clicar em "cmbOK" e aparece a msgbox com o nº do atendimento aberto para que a pessoa possa cobrar o serviço mais tarde.

Caso não tenha intendido, explicarei com mais detalhes.

Att

Thales

 
Postado : 07/08/2012 12:28 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!
Um exemplo...

Range("S1").Value = Me.MinhaCaixa_de_Texto.Value + 1
 
Postado : 07/08/2012 5:22 pm
(@skadis)
Posts: 18
Eminent Member
Topic starter
 

Bom Dia!

Mas onde irei colocar a sequencia "Range("S1").Value = Me.MinhaCaixa_de_Texto.Value + 1"

Não intendi.

Att

 
Postado : 08/08/2012 8:08 am
(@skadis)
Posts: 18
Eminent Member
Topic starter
 

Alguem me ajuda plz?

 
Postado : 06/09/2012 7:16 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Thales, fica dificil uma ajuda, pois não sabemos nada do seu projeto, alem de ter um botão cmbOK.

A sugestão do Alexandre foi, em uma celula da planilha "guarde" o ultimo numero do codigo; ao clicar em "OK", "pegue" esse valor some 1 e salve junto como o registro , em seguida emita a msgbox com a mensgem do numero salvo

 
Postado : 06/09/2012 7:27 am
(@skadis)
Posts: 18
Eminent Member
Topic starter
 

Meu projeto tem 2,96mb.... não consigo anexar.

 
Postado : 06/09/2012 8:22 am
(@skadis)
Posts: 18
Eminent Member
Topic starter
 

Ok Reinaldo, mas como vou colocar esse código "Range("S1").Value = Me.MinhaCaixa_de_Texto.Value + 1"

O que seria esse ME.MinhaCaixa_de_texto?

Att

 
Postado : 10/09/2012 1:00 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

O seu Textbox, tem um nome (na janela de propriedade).
Aao clicar na Textbox, (F4 abri a janela de propriedade), 1º opção chamada Nome
Caso necessário poste seu arquivo COMPACTADO!!

Propriedade Name

Especifica o nome de um controle ou um objeto, ou o nome de uma fonte para ser associada a um objeto Font.

Sintaxe

Para Fonte
Fonte.Name [= Seqüência]

Para todos os outros controles e objetos
objeto.Name [= Seqüência]

A sintaxe da propriedade Name possui as partes a seguir:

Parte Descrição
objeto Obrigatória. Um objeto válido.
Seqüência Opcional. O nome que você deseja atribuir à fonte ou ao controle.

Definições

As diretrizes para atribuição de uma seqüência a Name, como o tamanho máximo do nome, variam de um aplicativo para outro.

Comentários

Para objetos, o valor padrão de Name consiste no nome de classe do objeto seguido de um número inteiro. Por exemplo, o nome padrão para o primeiro TextBox que você coloca em um formulário é TextBox1. O nome padrão para o segundo TextBox é TextBox2.

Você pode definir a propriedade Name para um controle da folha de propriedades do controle ou para controles adicionados em tempo de execução, por meio da utilização de instruções de programa. Se você adicionar um controle na tempo de criação, não poderá modificar a propriedade Name em tempo de execução.

Cada controle adicionado a um formulário no tempo de criação deve ter um nome exclusivo.

Para objetos Font, Name identifica um determinado tipo a utilizar na parte texto de um controle, objeto ou formulário. A aparência da fonte na tela e na impressão podem diferir, dependendo do seu computador e impressora. Se você selecionar uma fonte que seu sistema não consegue exibir ou que não está instalada, o sistema operacional a substituirá por uma fonte semelhante.

 
Postado : 10/09/2012 3:51 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se lhe ajuda.
Ao selecionar Ti ou Integração já traz o numero seguinte do atendimento

 
Postado : 12/09/2012 8:04 am
(@skadis)
Posts: 18
Eminent Member
Topic starter
 

Parabéns....

Vocês são D+++++++++++++++++++

Att

 
Postado : 12/09/2012 12:16 pm