Jump to content
williamjda

Botão Contador de Cliques.

Recommended Posts

williamjda

Olá amigos boa tarde. Tenho um fomulário onde neste ha um campo que criei para que ele gere um numero de protocolo. Então utilizei um contador de cliques.

Ele funciona normalmente porem o problema é que quando eu fecho o meu formulário ele volta a contar do 1. O campo Condigo Interno é o chave primaria do meu banco de dados que nunca pode repetir o mesmo valor. Então quando eu clico em novo ele gera um Código EXE: GP0001 e assim por diante ai eu gravo o form. Até aqui esta beleza.

Porem ao fechar o formulário e ao abri-lo novamente ele deveria gerar de onde parou. E não começar de novo. Alguem tem alguma ideia de como resolver isso ou se devo usar outro código. Caso contrario ao tentar salvar ele não permite devido a já existir o código GP0001. Enquanto o formulário está aberto tudo funciona, agora se fechar o formulário ja era.

Private Sub BT_novo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_novo.Click
        Habilita_campos()
        Me.BD_ControledeAberturadeChamadosBindingSource.AddNew()
        BT_alterar.Enabled = False
        BT_cancelar.Enabled = True
        BT_excluir.Enabled = False
        BT_gravar.Enabled = True
        BT_novo.Enabled = False

        Static iCont As Integer

        iCont = iCont + 1
        ChamadoNumeroInternoTextBox.Text = iCont

    End Sub

Desde ja agradeço.

Share this post


Link to post
Share on other sites
Andrepereira9

Boas

Tens aqui 3 soluções entre muitas que existem:

1- Ou gravas o valor no formulário Principal (formulário que está sempre em execução), mas nesse caso, ao desligar o programa perdes tudo.

2 - Podes guardar nas configurações do programa (my,settings).

3 - Já que o valor está guardado na BD, sempre que abres o formulário, lês o ultimo valor guardado na BD e adicionas mais 1


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
williamjda

Amigo a 3º opção parace ser a que eu preciso mas como sou iniciante em VB como ficaria o meu código acima poderia me ajudar.

Share this post


Link to post
Share on other sites
Andrepereira9

Como é que tens o código para gravar na Base de Dados?


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
williamjda

Para grava gravar na base de dados esta assim.

Private Sub BT_gravar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_gravar.Click
        Me.Validate()
        Me.BD_ControledeAberturadeChamadosBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.BD_dadosDataSet)
        Desabilita_campos()
        BT_alterar.Enabled = True
        BT_cancelar.Enabled = False
        BT_excluir.Enabled = True
        BT_gravar.Enabled = False
        BT_novo.Enabled = True
    End Sub

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.