AUTONUMERACAO
Bom Dia Galera Gostaria que vcs me ajudassem, como colocar uma textbox com autonumeração quando clicar em um botão [Ô]Novo Cadastro[Ô] sem usar o acces direto do VB 6.0 usando o codigo de programação se possivel um modo mais simples que vcs conseguirem pois sou novato em VB agradeço desde Já....Rafael Leme S/P
No Código do botão você coloca txtCodigo.text = Val(txtCodigo.text) +1
Agora está auto-numeravel, mas não entendi você não utiliza banco de Dados?
Se você utiliza Access vai ter que utilizar uma consulta.
Select Max(CampoNumero) + 1 from Tabela
Agora está auto-numeravel, mas não entendi você não utiliza banco de Dados?
Se você utiliza Access vai ter que utilizar uma consulta.
Select Max(CampoNumero) + 1 from Tabela
Sim, eu utilizo o acces mas não consigo colocar autonumeração , sera que é por causa que eu uso o acces 2007 e não da certo com o VB 6.0 ?
Porque você não cria uma função
Dim Cod As Integer
With (Aqui vc coloca sua tabela)
If .EOF = False Then
.MoveLast
Cod = Val(! Aqui voce coloca o campo) + 1
Else
Cod = 1
End If
aqui o seu textbox = Cod
End With
E depois coloca o nome da função que voce criou no form load e também no botão gravar
Dim Cod As Integer
With (Aqui vc coloca sua tabela)
If .EOF = False Then
.MoveLast
Cod = Val(! Aqui voce coloca o campo) + 1
Else
Cod = 1
End If
aqui o seu textbox = Cod
End With
E depois coloca o nome da função que voce criou no form load e também no botão gravar
se vc usa o 2007 basta vc mandar salvar os arquivos em uma versão anterior
Adhel
aproveitando seu exemplo criei aqui
Private Function AutoNumeração()
Dim Cod As Integer
With buscar
If .EOF = False Then
.MoveLast
Cod = Val(!id) + 1
Else
Cod = 1
End If
Text1.Text = Cod
End With
End Function
no meu caso preciso chamar quando aperto no botao
nesse caso como chamo a funcao
Abs
Obrigado
Marcelo Fazan
aproveitando seu exemplo criei aqui
Private Function AutoNumeração()
Dim Cod As Integer
With buscar
If .EOF = False Then
.MoveLast
Cod = Val(!id) + 1
Else
Cod = 1
End If
Text1.Text = Cod
End With
End Function
no meu caso preciso chamar quando aperto no botao
nesse caso como chamo a funcao
Abs
Obrigado
Marcelo Fazan
Raleco
Se vc colocar o nome que vc deu para a função , no form load toda vez que vc carregar o form ela será executada.E colocando no botão gravar quando vc clicar ela tb será executada.
Pq no botão gravar?
Imagino que terá vez que vc irá cadastrar mais de uma vez.Sendo assim automaticamente vc faz a gravação e tb a autonumeração.
Agora se vc quiser colocar no botão Novo cadastro sem problemas.
é só vc dar dois cliques no botão desejado(isso em tempo de desenvolvimento).E ele abrirá já no evento click.Aà é só colocar o nome da função
ex
Private Sub Command1_Click()
aqui o nome da função
end sub
Se vc colocar o nome que vc deu para a função , no form load toda vez que vc carregar o form ela será executada.E colocando no botão gravar quando vc clicar ela tb será executada.
Pq no botão gravar?
Imagino que terá vez que vc irá cadastrar mais de uma vez.Sendo assim automaticamente vc faz a gravação e tb a autonumeração.
Agora se vc quiser colocar no botão Novo cadastro sem problemas.
é só vc dar dois cliques no botão desejado(isso em tempo de desenvolvimento).E ele abrirá já no evento click.Aà é só colocar o nome da função
ex
Private Sub Command1_Click()
aqui o nome da função
end sub
Crie uma procedure NOVOREGISTRO
[txt-size=2]
Espero ter ajudado
[txt-size=2]
Private Sub NOVOREGISTRO()
[ô]Aqui você verifica se a tabela esta vazia
[ô]Caso esteja o TEXTBOX sera 1
If SuaStringdaTabela.RecordCount = 0 Then
Text1.Text = 1
Else
[ô]Caso não estaja vazia move para ultima linha
SuaStringdaTabela.MoveLast
Text1.Text = SuaStringdaTabela([Ô]SuaColunaDentroTabela[Ô]) + 1
End If
End SubEspero ter ajudado
If .EOF = False Then Objeto requerido,
amigo nao sou o Raleco . peguei o barco andando
estou com o mesmo problema assim a tela ela mais consulta do que cadastra, mais tem opcao de cadastrar tb é pra biometria
algo como quando desligo o timer num command
ai preciso chamar o autonumerador e ja me trazer um novo codigo de cadastro
se eu coloco assim ...... text1.text = autonumeracao(id) da erro
autonumeracao(id) tambem da erro
como escrever essa funcao corretamente , no caso nessa tela nao tem mostra dados por isso o erro de objeto requerido
Abraços
amigo nao sou o Raleco . peguei o barco andando
estou com o mesmo problema assim a tela ela mais consulta do que cadastra, mais tem opcao de cadastrar tb é pra biometria
algo como quando desligo o timer num command
ai preciso chamar o autonumerador e ja me trazer um novo codigo de cadastro
se eu coloco assim ...... text1.text = autonumeracao(id) da erro
autonumeracao(id) tambem da erro
como escrever essa funcao corretamente , no caso nessa tela nao tem mostra dados por isso o erro de objeto requerido
Abraços
MARCELOFAZAN escreveu:
Poste seu código para que possamos resolver seu problema
Citação:If .EOF = False Then Objeto requerido,
amigo nao sou o Raleco . peguei o barco andando
estou com o mesmo problema assim a tela ela mais consulta do que cadastra, mais tem opcao de cadastrar tb é pra biometria
algo como quando desligo o timer num command
ai preciso chamar o autonumerador e ja me trazer um novo codigo de cadastro
se eu coloco assim ...... text1.text = autonumeracao(id) da erro
autonumeracao(id) tambem da erro
como escrever essa funcao corretamente , no caso nessa tela nao tem mostra dados por isso o erro de objeto requerido
Abraços
Poste seu código para que possamos resolver seu problema
Marcelo
Faz o que o Filman disse.Assim fica mais fácil.
Se vc me permite ,vou te dar uma dica.
Abre um tópico com a sua dúvida.Para não ficar bagunçado.
Desse jeito o pessoal vai tirar a tua dúvida ou a do Raleco?
Fica esquisito.
E o raleco que está começando como eu,pode se confundir mais ainda com alguma resposta que vai para vc.
é só uma dica.
Qualquer coisa estamos aÃ
Faz o que o Filman disse.Assim fica mais fácil.
Se vc me permite ,vou te dar uma dica.
Abre um tópico com a sua dúvida.Para não ficar bagunçado.
Desse jeito o pessoal vai tirar a tua dúvida ou a do Raleco?
Fica esquisito.
E o raleco que está começando como eu,pode se confundir mais ainda com alguma resposta que vai para vc.
é só uma dica.
Qualquer coisa estamos aÃ
Tópico encerrado , respostas não são mais permitidas