COMECAR DO PRINCIPIO.

USUARIO.EXCLUIDOS 22/03/2005 19:35:32
#74380
Usei uma Dica do DENNYSFL Apostilla Ado.Iniciante e tudo foi bem até que usei a parte do código rs.AddNew. Recebo a msg "Run_time 'Error3251' O conjunto de registos actual à± suporta actualização. Pode ser uma limitação do fornecedor ou do tipo de bloqueio seleccionado". O que estará mal?

Option Explicit
Dim Conexao As New Connection
Dim rs As New Recordset

Private Sub cmdAdicionar_Click()
Apaga_Campos
Text2.SetFocus
rs.AddNew
End Sub

Private Sub Form_Load()
Conexao.Provider = "Microsoft.Jet.Oledb.4.0"
Conexao.Open "D:\CursoVBFisc\TesteConnecção\Teste.mdb"
rs.Open "Tabela1", Conexao, 3
Liga_Campos_Tab_Form
End Sub

Sub Liga_Campos_Tab_Form()
Text2 = rs(1) (Não menciono o Text1 por ser do ID numeração automática, que mesmo desactivada a numeração automática dá erro)
Text3 = rs(2)
Text4 = rs(3)
End Sub

Sub Apaga_Campos()
Text2 = ""
Text3 = ""
Text4 = ""
End Sub

Mais perguntas:
rs.Open "Tabela1", Conexao, 3 # O 3 significa "adOpenKeyset" ou apenas 3
O campo ID da tabela Access à± tem a prioridade de "Duplicação não autorizada"
Para Agora penso que é só. Obrigado

Armando Baía
TONARE25 22/03/2005 19:38:28
#74382 Resposta escolhida
Vc deve acionar o comando rs.AddNew somente quando for gravar este novo registro...
Ex.
rs.addnew
rs.fileds("teste") = "CAMPO"
rs.update

Tenta ai e qq coisa me manda uma MSG Interna.. OK!?
USUARIO.EXCLUIDOS 22/03/2005 19:44:01
#74384
Vou experimentar mais para já só posso dizer que forum mais rápido não deve exister. Obrigadão!
Tópico encerrado , respostas não são mais permitidas
Voltar