Run Time Error '3426'

[DarkWater]

tipo. tenho 2 programas q utilizam o mesmo tipo de database. com o mesmo codigo fonte.. a unica coisa que muda é que eu aumentei a contidade de "TEXT". redirecionei direitinho as infos da DB nos TEXT. mas kuando eu mando : pesquisar, cadastrar, atualizar, e tal sempre da esse erro... os 2 programas usam esse codigo fonte:

________________________________

Private Sub Command1_Click()

Data1.Recordset.AddNew

End Sub

________________________________

Private Sub Command2_Click()

Data1.Recordset.Edit

End Sub

________________________________

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

________________________________

Private Sub Command4_Click()

X = Trim(InputBox("Digite o Nome:"))

Data1.Recordset.FindFirst "Nome='" & X & " '"

End Sub

________________________________

Só que no outro programa. funciona tudu! mas nesse não.. alguém pode me dizer o porq?

aqui uma foto do erro:

Grato.... Fabio

[Graymalkin]

Tanto as operações de Edit quanto as de AddNew devem ser finalizadas com uma chamada para o método Update (ou uma mudança no ponteiro da tabela). Pode ser este o problema.

Abraços,

Graymalkin

[DarkWater]

como q fikaria? aqui eu coloquei o:

"data1.recordset.update"

após o comando de cadastrar e editar... mas o de cadastrar continua dando erro, só q o erro é no comando

"data1.recordset.addnew"

[Graymalkin]

Não seria exatamente após o AddNew e o Edit, já que você vai precisar esperar o usuário preencher os dados (adicionados ou alterados) antes de chamar o Update. O ideal seria ter um botão para finalizar a inclusão ou edição (algo como um "Gravar" ou "Salvar").

Abraços,

Graymalkin