Entrar
Cadastre-se
Ajuda
Postou 28 agosto 2007 - 17:56
Olá, pessoal, após busca hoje pelo GOOGLE achei este site e gostei muito de sua proposta e perfil, porisso peço a ajuda de vocês no seguinte:
Gostaria de saber se existe alguma maneira de a cada início de ano o Campo AutoNumeração começar a partir de 1, mantendo os demais registros já inseridos nos anos anteriores, também na sequencia numérica, mesmo que seja em Visual Basic.
EXEMPLO:
CAMPO TIPO DE DADOS
CÓDIGO : Autonumeração
DATAENTRADA: Data
* PS: O ANO poderia ser capturado a partir do Campo: DATAENTRADA, caso este Campo seja necessário para fazer a AutoNumeração começar do Número 1, a cada início de ano, conforme pedido acima, ou se este Campo não for necessário, ignorar.
Página 1 de 1
AutoNumeração AutoNumeração a partir de 1 a cada ano
Quote
#5
VILEMAN 
- Grupo: Membros
- Posts: 3
- Cadastrado: 28-agosto 07
Postou 18 setembro 2007 - 15:41
chico_ua, em 05/09/2007 - 08:32, disse:
Ok então...
Vou trabalhar nisso seriamente e quando descobrir algo comunico...
Obrigado
Vou trabalhar nisso seriamente e quando descobrir algo comunico...
Obrigado
Olá, chico:
Achei algo muito bom sobre Autonumeração no site (direto):
www.jrfaq.com/detalhe.asp?Pergunta_Id=10&search=contador.
Lá tem várias opções e alguns arquivos para download.
Espero que ajude.
Até mais.
#6
Mário Monteiro
- Amo Você Fabíola. Ao seu lado tudo é perfeito.
-
- Grupo: Administradores
- Posts: 29723
- Cadastrado: 24-abril 03
- Sexo:Masculino
- Localização:Belém, Pará
Postou 18 setembro 2007 - 15:48
tiozinho, mas para isso funcionar corretamente voce deveria ter uma chave primaria conjunta, ID e ANO ai é so testar antes de inserir registro se ja tem algum no ano atual caso negativo começa do um caso positivo incrementa o maior
#7
chico_ua
- Grupo: Membros
- Posts: 6
- Cadastrado: 03-agosto 07
Postou 19 setembro 2007 - 07:51
Olá...depois de trabalhar resolvi o problema...
Vou meter aki o codigo que usei...
Alguma duvida é so dizer...
Public Sub btn_val_user_Click()
'definição da base de dados
'valiaveis locais
Dim password, nivel As String
'If Me!validar_nome = Nothing Or Me!validar_pass = Nothing Then
'MsgBox ("passoui")
'Else
'retirar valores do formulario
user = Me!validar_nome
password = Me!validar_pass
'End If
Dim nivel_bd, password_lida As String
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim intYear As Integer
Dim strSQL, nextnumano As String
Dim ref_orcamental As String
strSQL = "SELECT password As pass, nivel As nivel_util FROM utilizador " & "WHERE nome = '" & user & "'"
Set db = CurrentDb()
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
With rst
If .BOF And .EOF Then
'n existir na base de dados
MsgBox ("Palavra pass errada")
Me!validar_nome = ""
Me!validar_pass = ""
Else
.MoveFirst
password_lida = !pass
nivel_bd = !nivel_util
If password_lida = password Then
validacao = True
'MsgBox ("User valido")
'Dim login As New Form
'fechar o form de loogin
If nivel_util = i Then
'MsgBox ("utilizador nivel 1")
Forms!inicio!btn_add_cliente.Enabled = True
Forms!inicio!btn_cria_orcamento.Enabled = True
Forms!inicio!btn_orcamento_interno.Enabled = True
Forms!inicio!btn_lista_orcamentos.Enabled = True
Forms!inicio!btn_orcamentos1.Enabled = True
ElseIf nivel_util = II Then
MsgBox ("utilizador nivel 2")
End If
'fechar o formulario
Else
MsgBox ("Palavra pass errada")
End If
Me!validar_nome = ""
Me!validar_pass = ""
End If
.Close
End With
Set rst = Nothing
Set db = Nothing
End Sub
Cumprimentos e digam se funciona a voces tambem...
Vou meter aki o codigo que usei...
Alguma duvida é so dizer...
Public Sub btn_val_user_Click()
'definição da base de dados
'valiaveis locais
Dim password, nivel As String
'If Me!validar_nome = Nothing Or Me!validar_pass = Nothing Then
'MsgBox ("passoui")
'Else
'retirar valores do formulario
user = Me!validar_nome
password = Me!validar_pass
'End If
Dim nivel_bd, password_lida As String
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim intYear As Integer
Dim strSQL, nextnumano As String
Dim ref_orcamental As String
strSQL = "SELECT password As pass, nivel As nivel_util FROM utilizador " & "WHERE nome = '" & user & "'"
Set db = CurrentDb()
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
With rst
If .BOF And .EOF Then
'n existir na base de dados
MsgBox ("Palavra pass errada")
Me!validar_nome = ""
Me!validar_pass = ""
Else
.MoveFirst
password_lida = !pass
nivel_bd = !nivel_util
If password_lida = password Then
validacao = True
'MsgBox ("User valido")
'Dim login As New Form
'fechar o form de loogin
If nivel_util = i Then
'MsgBox ("utilizador nivel 1")
Forms!inicio!btn_add_cliente.Enabled = True
Forms!inicio!btn_cria_orcamento.Enabled = True
Forms!inicio!btn_orcamento_interno.Enabled = True
Forms!inicio!btn_lista_orcamentos.Enabled = True
Forms!inicio!btn_orcamentos1.Enabled = True
ElseIf nivel_util = II Then
MsgBox ("utilizador nivel 2")
End If
'fechar o formulario
Else
MsgBox ("Palavra pass errada")
End If
Me!validar_nome = ""
Me!validar_pass = ""
End If
.Close
End With
Set rst = Nothing
Set db = Nothing
End Sub
Cumprimentos e digam se funciona a voces tambem...
Página 1 de 1