CÓDIGO AUTOM?TICO
Bom dia, galera!
Depois de 4 anos sem visitar o vbmania (aliás, eu de vez enquando dava uma olhada nas dicas e códigos fontes que tinha por aki), resolvi voltar aos meus projetos. Estou com um problema em como gerar um código automático. Lá na tabela do acess já está selecionado numeração automática, mas não consegui fazer com que fique automático em meu cadastro. Eu queria uma ajuda nesta parte. Toda vez que eu efetuar um cadastro, gere um código automático deste meu cadastro (no caso código do fornecedor) e salve este código no banco de dados do access.
Depois de 4 anos sem visitar o vbmania (aliás, eu de vez enquando dava uma olhada nas dicas e códigos fontes que tinha por aki), resolvi voltar aos meus projetos. Estou com um problema em como gerar um código automático. Lá na tabela do acess já está selecionado numeração automática, mas não consegui fazer com que fique automático em meu cadastro. Eu queria uma ajuda nesta parte. Toda vez que eu efetuar um cadastro, gere um código automático deste meu cadastro (no caso código do fornecedor) e salve este código no banco de dados do access.
variavel = tabela.Recordset.RecordCount + 1
só isso?
poderia me dar um exemplo mais claro, assim, na prática?
poderia me dar um exemplo mais claro, assim, na prática?
Assim,
Dim totalalunos
Sql = [Ô]Select * from Alunos[Ô]
Set rs = banco.openrecordset(sql)
totalalunos= rs.RecordCount + 1
onde o rs setado pelo SQL é arcrescentado em mais um
Dim totalalunos
Sql = [Ô]Select * from Alunos[Ô]
Set rs = banco.openrecordset(sql)
totalalunos= rs.RecordCount + 1
onde o rs setado pelo SQL é arcrescentado em mais um
ahááá, maravilha
testarei qdo estiver em casa e avisarei
testarei qdo estiver em casa e avisarei
Use a auto numeração do Access.
é mais confiável.
Estranho é você dizer que numeração automática do seu
access não funciona.
é mais confiável.
Estranho é você dizer que numeração automática do seu
access não funciona.
a numeração automática do access funciona, mas não tava dando certo no vb6, eu precisava de um código para funcionar no VB6
Tanto no vb6 quanto no vbnet é do mesmo jeito.
Eu uso e vários também usa.
Deve ser alguma código que não esta compreendendo,
de como faz.
Coloque seu código ai o pessoal responde para você.
Eu uso e vários também usa.
Deve ser alguma código que não esta compreendendo,
de como faz.
Coloque seu código ai o pessoal responde para você.
eu acesso o fórum pelo trabalho, vou pegar o código hoje em casa e colar aqui
este é meu códgo
eu tirei o txtcodigo pq resolvi deixar o cnpj como código do cliente, mas o cadastro de clientes é o mesmo código, só muda o nome de alguns txts
Private Sub cmdNovo_Click(Index As Integer)
HabilitaCampos
LimparDados
txtCNPJ.SetFocus
End Sub
Private Sub cmdSalvar_Click(Index As Integer)
If txtCNPJ.Text = [Ô][Ô] Then
MsgBox [Ô]Insira o CNPJ![Ô], vbInformation, [Ô]Aviso[Ô]
Exit Sub
End If
If txtInscricao.Text = [Ô][Ô] Then
MsgBox [Ô]Insira a Inscrição Estadual![Ô], vbInformation, [Ô]Aviso[Ô]
Exit Sub
End If
If txtRazao.Text = [Ô][Ô] Then
MsgBox [Ô]Insira a Razão Social![Ô], vbInformation, [Ô]Aviso[Ô]
Exit Sub
End If
If txtFantasia.Text = [Ô][Ô] Then
MsgBox [Ô]Insira o Nome Fantasia![Ô], vbInformation, [Ô]Aviso[Ô]
Exit Sub
End If
If txtEndereco.Text = [Ô][Ô] Then
MsgBox [Ô]Insira o Endereço![Ô], vbInformation, [Ô]Aviso[Ô]
Exit Sub
End If
If txtFone.Text = [Ô][Ô] Then
MsgBox [Ô]Insira o Telefone![Ô], vbInformation, [Ô]Aviso[Ô]
Exit Sub
End If
With RSfornecedores
.Requery
.AddNew
!cnpj = txtCNPJ.Text
!inscricao = txtInscricao.Text
!razaosocial = txtRazao.Text
!fantasia = txtFantasia.Text
!endereco = txtEndereco.Text
!numero = txtNum.Text
!bairro = txtBairro.Text
!cidade = txtCidade.Text
!cep = txtCEP.Text
!telefone = txtFone.Text
!email = txtMail.Text
!estado = DTCEstados.Text
.Update
.Requery
MsgBox [Ô]Fornecedor salvo com sucesso![Ô], vbInformation, [Ô]Cadastro Salvo[Ô]
LimparDados
End With
End Sub
eu tirei o txtcodigo pq resolvi deixar o cnpj como código do cliente, mas o cadastro de clientes é o mesmo código, só muda o nome de alguns txts
Private Sub cmdNovo_Click(Index As Integer)
HabilitaCampos
LimparDados
txtCNPJ.SetFocus
End Sub
Private Sub cmdSalvar_Click(Index As Integer)
If txtCNPJ.Text = [Ô][Ô] Then
MsgBox [Ô]Insira o CNPJ![Ô], vbInformation, [Ô]Aviso[Ô]
Exit Sub
End If
If txtInscricao.Text = [Ô][Ô] Then
MsgBox [Ô]Insira a Inscrição Estadual![Ô], vbInformation, [Ô]Aviso[Ô]
Exit Sub
End If
If txtRazao.Text = [Ô][Ô] Then
MsgBox [Ô]Insira a Razão Social![Ô], vbInformation, [Ô]Aviso[Ô]
Exit Sub
End If
If txtFantasia.Text = [Ô][Ô] Then
MsgBox [Ô]Insira o Nome Fantasia![Ô], vbInformation, [Ô]Aviso[Ô]
Exit Sub
End If
If txtEndereco.Text = [Ô][Ô] Then
MsgBox [Ô]Insira o Endereço![Ô], vbInformation, [Ô]Aviso[Ô]
Exit Sub
End If
If txtFone.Text = [Ô][Ô] Then
MsgBox [Ô]Insira o Telefone![Ô], vbInformation, [Ô]Aviso[Ô]
Exit Sub
End If
With RSfornecedores
.Requery
.AddNew
!cnpj = txtCNPJ.Text
!inscricao = txtInscricao.Text
!razaosocial = txtRazao.Text
!fantasia = txtFantasia.Text
!endereco = txtEndereco.Text
!numero = txtNum.Text
!bairro = txtBairro.Text
!cidade = txtCidade.Text
!cep = txtCEP.Text
!telefone = txtFone.Text
!email = txtMail.Text
!estado = DTCEstados.Text
.Update
.Requery
MsgBox [Ô]Fornecedor salvo com sucesso![Ô], vbInformation, [Ô]Cadastro Salvo[Ô]
LimparDados
End With
End Sub
e este e o meu
If rssNot.State = adStateOpen Then rssNot.Close
Set rssNot = cnSQL.Execute([Ô]select max(nrd_cod) as nrd_cod from nrd[Ô])
If Not rssNot.Fields([Ô]nrd_cod[Ô]) < 0 Then
txt_001.Text = rssNot.Fields([Ô]nrd_cod[Ô]) + 1
Else
txt_001.Text = [Ô]1[Ô]
End If
If rssNot.State = adStateOpen Then rssNot.Close
Set rssNot = cnSQL.Execute([Ô]select max(nrd_cod) as nrd_cod from nrd[Ô])
If Not rssNot.Fields([Ô]nrd_cod[Ô]) < 0 Then
txt_001.Text = rssNot.Fields([Ô]nrd_cod[Ô]) + 1
Else
txt_001.Text = [Ô]1[Ô]
End If
Faça seu login para responder