Boa tarde, comecei a estudar recordset, e a fazer um form desvinculado,
so que nao estou sabendo concertar esse erro, pois nem sempre esta dando
o erro, quando abro o bd em versoes diferentes do access, ele funciona algumas
vezes depois da o erro, em anexo vou incluir um bd de exemplo, apenas com
um form para servir de modelo, na tabela tem alguns registros que consegu incluir,
pelo botao cadastrar do form, sempre inclui 1 ou 2 registros e depois da erro 91.
-Este é o modulo de conexao
Public Comando As String 'variavel que recebe intrução sql
Public banco As Database
Public dataset As Recordset
Function Conecta()
Set banco = CurrentDb
End Function
Function valida_selecao()
Set dataset = banco.OpenRecordset(Comando, dbOpenDynaset) ' instrução que ocorre o erro!
End Function
-ao carregar o form faço a chamada da função conecta
Private Sub Form_Load()
Conecta
End Sub
-Este é o procedimento do botao cadastrar
Private Sub CmdCadastrar_Click()
GerarCodigo ' função q gera numeração da chave primaria
Comando = "Insert into TabCadLivro(Codigo, Livro, Autor,Editora,Descricao,Ano) values (" & NumCod & ",'" & TxtLivro & "','" & TxtAutor & "','" & TxtEditora & "','" & TxtDescricao & "'," & TxtAno & ")"
banco.Execute (Comando)
End Sub
o bd exemplo segue no link
https://dl.dropboxusercontent.com/u/41880754/BancoBiblioteca.accdb
so que nao estou sabendo concertar esse erro, pois nem sempre esta dando
o erro, quando abro o bd em versoes diferentes do access, ele funciona algumas
vezes depois da o erro, em anexo vou incluir um bd de exemplo, apenas com
um form para servir de modelo, na tabela tem alguns registros que consegu incluir,
pelo botao cadastrar do form, sempre inclui 1 ou 2 registros e depois da erro 91.
-Este é o modulo de conexao
Public Comando As String 'variavel que recebe intrução sql
Public banco As Database
Public dataset As Recordset
Function Conecta()
Set banco = CurrentDb
End Function
Function valida_selecao()
Set dataset = banco.OpenRecordset(Comando, dbOpenDynaset) ' instrução que ocorre o erro!
End Function
-ao carregar o form faço a chamada da função conecta
Private Sub Form_Load()
Conecta
End Sub
-Este é o procedimento do botao cadastrar
Private Sub CmdCadastrar_Click()
GerarCodigo ' função q gera numeração da chave primaria
Comando = "Insert into TabCadLivro(Codigo, Livro, Autor,Editora,Descricao,Ano) values (" & NumCod & ",'" & TxtLivro & "','" & TxtAutor & "','" & TxtEditora & "','" & TxtDescricao & "'," & TxtAno & ")"
banco.Execute (Comando)
End Sub
o bd exemplo segue no link
https://dl.dropboxusercontent.com/u/41880754/BancoBiblioteca.accdb