Como fazer insert em campo autonumeração em acccess ?

[sidneimarques]

Olá amigos, preciso fazer um insert num campo autonumerção, usando access e ADO, alguém tem uma luz ?

Valeu

[Duduh_Capixaba]

Olá Sidnei!

Você poderia ser mais específico, tipo: "Estou tentando gravar dados de vários textbox em uma tabela Access, nas colunas tal e tal...".

A primeira vista, entendi que você precisa gravar dados em uma coluna auto-numérica, mas isso não é possível. Em uma estrutura assim, ao gravar dados em uma coluna qualquer da sua tabela, o campo auto-numérico se incrementa sozinho.

Poste novamente com mais detalhes pra podermos te ajudar. Até mais!

[sidneimarques]

Essa é minha sub, mas não grava no banco.. não sei o que há de errado, todos os campos no banco access são do tipo texto... no banco tem um campo id tipo autonumeração mas não coloquei ele na string como você pode ver... se puder dar uma ajudinha eu agradeço muito....

Private Sub GravarDados()
Dim cnnComando As New ADODB.Command
Dim vConfMsg As Integer
Dim vErro As Boolean

On Error GoTo errGravacao
'Inicializa as variáveis auxiliares:
vConfMsg = vbExclamation + vbOKOnly + vbSystemModal
vErro = False
'Verifica os dados digitados:
If txtNomeCliente.Text = Empty Then
MsgBox "O campo Nome não foi preenchido.", vConfMsg, "Erro"
vErro = True
End If
If txtCnpj.Text = Empty Then
MsgBox "O campo CNPJ não foi preenchido.", vConfMsg, "Erro"
vErro = True
End If
If txtEndCliente.Text = Empty Then
MsgBox "O campo Endereço não foi preenchido.", vConfMsg, "Erro"
vErro = True
End If
If txtTel.Text = Empty Then
MsgBox "O campo Telefone não foi preenchido.", vConfMsg, "Erro"
vErro = True
End If


'Se aconteceu um erro de digitação, sai da sub sem gravar:
If vErro Then Exit Sub
Screen.MousePointer = vbHourglass
With cnnComando
.ActiveConnection = cnnMotoca
.CommandType = adCmdText




'Inclusão:
.CommandText = "INSERT INTO clientes " & _
"(codigo,nome, cnpj, Endereco, bairro, " & _
"cidade, estado, cep, telefone,contato, email) VALUES ('" & _
txtCodCliente.Text & ",'" & _
txtNomeCliente.Text & ",'" & _
txtCnpj.Text & "','" & _
txtEndCliente.Text & "','" & _
txtBairro.Text & "','" & _
txtCidade.Text & "','" & _
cmbEstado.Text & "','" & _
txtCep.Text & "','" & _
txtTel.Text & "','" & _
txtContato.Text & "','" & _
txtEmail.Text & "');"
.Execute
End With
MsgBox "Gravação concluída com sucesso.", _
vbApplicationModal + vbInformation + vbOKOnly, _
"Gravação OK"
'Chama a sub que limpa os dados do formulário:
LimparTela
Saida:
Screen.MousePointer = vbDefault
Set cnnComando = Nothing
Exit Sub
errGravacao:
With Err
If .Number <> 0 Then
MsgBox "Houve um erro durante a gravação dos dados na tabela.", _
vbExclamation + vbOKOnly + vbApplicationModal, "Erro"
.Number = 0
GoTo Saida
End If
End With
End Sub

[kuroi]

veja q no select, você abre aspa simples pros dois primeiros campos mas não fecha. tem q fechar.

se depois disso, continuar dando erro, então, só de teste, apague ou comente a linha On Error GoTo errGravacao e veja a mensagem de erro q vai aparecer. ai poste pra gente saber qual é.

[sidneimarques]

legal, funcionou... grava no banco mas ainda continua... dando o erro ... vou debugar... depois posto aqui

valeu!!!