BANCOS DE DADOS NAO GRAVA
Bem, estou usando o access e fiz uma tabela para login mas toda vez q insiro um novo nome o antigo some.
Outra dúvida é fazer uma auto numeração para meu form de clientes.Quero uma coisa do tipo text1.text=0 e o proximo =1 e por aà vai,mesmo se desligar o numero ficar salvo.Desde ja agradeço pela força
Outra dúvida é fazer uma auto numeração para meu form de clientes.Quero uma coisa do tipo text1.text=0 e o proximo =1 e por aà vai,mesmo se desligar o numero ficar salvo.Desde ja agradeço pela força
Em relação ao Login: verifique seus comandos para inserir novo registro, se não encontrar o erro coloque o código aqui pois fica difÃcil advinhar em que linha de um código que não vemos está o erro.
Autonumeração: Se não quiser usar o do Access (que so exibe o numero quando salvar) troque o campo para Numero e coloque como Chave Primária.
AÃ antes de inserir um novo registro faça assim:
Private Sub cmdIncluir_Click()
Dim intCodigo as Integer
If txtCodigo.Text <> "" Then
AdoClientes.Recordsource = "Select * from Clientes order by Codigo"
AdoClientes.refresh
AdoClientes.Recordset.MoveLast
intCodigo = txtCodigo.Text + 1
End If
If txtCodigo.Text = "" Then intCodigo = 1000
AdoClientes.Recordset.AddNew
txtCodigo.Text = intCodigo
End Sub
Onde txtCodigo está vinculado ao campo Codigo (Numerico e Chave Primária do BD)
Autonumeração: Se não quiser usar o do Access (que so exibe o numero quando salvar) troque o campo para Numero e coloque como Chave Primária.
AÃ antes de inserir um novo registro faça assim:
Private Sub cmdIncluir_Click()
Dim intCodigo as Integer
If txtCodigo.Text <> "" Then
AdoClientes.Recordsource = "Select * from Clientes order by Codigo"
AdoClientes.refresh
AdoClientes.Recordset.MoveLast
intCodigo = txtCodigo.Text + 1
End If
If txtCodigo.Text = "" Then intCodigo = 1000
AdoClientes.Recordset.AddNew
txtCodigo.Text = intCodigo
End Sub
Onde txtCodigo está vinculado ao campo Codigo (Numerico e Chave Primária do BD)
Tópico encerrado , respostas não são mais permitidas