ZERAR CAMPO AUTOINCRFIELD
Alguém saberia me dizer como zerar o campo autoincremento de um data por meio de código?
estou fazendo um tipo de cadastro e gostaria que ele zerasse este campo quando eu excluir todos os itens.
Obrigado a todos.
estou fazendo um tipo de cadastro e gostaria que ele zerasse este campo quando eu excluir todos os itens.
Obrigado a todos.
vc pode tentar apagar o campo e criar de novo nunca tentei
alter table TB DROP column campo 'apagar
nao lembro como faço para criar a autonumeracao - quando eu achar te dou um toque.
outro caminho vc podee fazer assim:
cri um campo numero e faça assim:
Private Sub ObterMaximo()
On Error GoTo ErrLancamento
Screen.MousePointer = 11
Set gRSTemp = gDB.OpenRecordset("Select MAX(codinome) as Maximo from tbcliente")
If IsNull(gRSTemp("Maximo")) Then
txtcodinome.Text = "00001"
Else
txtcodinome.Text = Format$(gRSTemp("Maximo") + 1, "00000")
End If
gRSTemp.Close
Set gRSTemp = Nothing
Screen.MousePointer = 0
Exit Sub
ErrLancamento:
Solucao = False
FrmErro.Show 1
End Sub
alter table TB DROP column campo 'apagar
nao lembro como faço para criar a autonumeracao - quando eu achar te dou um toque.
outro caminho vc podee fazer assim:
cri um campo numero e faça assim:
Private Sub ObterMaximo()
On Error GoTo ErrLancamento
Screen.MousePointer = 11
Set gRSTemp = gDB.OpenRecordset("Select MAX(codinome) as Maximo from tbcliente")
If IsNull(gRSTemp("Maximo")) Then
txtcodinome.Text = "00001"
Else
txtcodinome.Text = Format$(gRSTemp("Maximo") + 1, "00000")
End If
gRSTemp.Close
Set gRSTemp = Nothing
Screen.MousePointer = 0
Exit Sub
ErrLancamento:
Solucao = False
FrmErro.Show 1
End Sub
Tópico encerrado , respostas não são mais permitidas