RUN-TIMER ERROR 91 : OBJECT VARIABLE OR WITH....
Object variable or with block variable not set
Public Sub DisplayCustomers(myRs As Recordset)
With myRs
If .BOF = True And .EOF = True Then Exit Sub
On Error Resume Next
txtcod.Text = !Código
End With
myRs precisa ser setado para poder ser usado.
O que o erro está tentando te dizer é isso.
Entre com esse trecho:
set myRs= nomedobanco.openrecordset([Ô]NOME DA TABELA[Ô], dbopentable)
antes de
With myRs
Ou então, como se trata de uma sub que recebe o recordset como parâmetro, o mesmo deverá ser setado antes da chamada dessa sub.
Verifique em seu código.
O que o erro está tentando te dizer é isso.
Entre com esse trecho:
set myRs= nomedobanco.openrecordset([Ô]NOME DA TABELA[Ô], dbopentable)
antes de
With myRs
Ou então, como se trata de uma sub que recebe o recordset como parâmetro, o mesmo deverá ser setado antes da chamada dessa sub.
Verifique em seu código.
continua dando o mesmo erro!
JAMESBOND007
Precisamos saber ONDE ocorre o erro.
Outra coisa importante é que você mostre as alterações realizadas'para que possamos verificar se foram bem feitas.
Suponho que você tenha declarado as variáveis de RECORDSET e DATABASE no inÃcio da aplicação e que em:
set myRs= nomedobanco.openrecordset([Ô]NOME DA TABELA[Ô], dbopentable)
Você tenha substituÃdo as palavras nomedobanco e [Ô]NOME DA TABELA[Ô] pelos utilizados em seu projeto.
Precisamos saber ONDE ocorre o erro.
Outra coisa importante é que você mostre as alterações realizadas'para que possamos verificar se foram bem feitas.
Suponho que você tenha declarado as variáveis de RECORDSET e DATABASE no inÃcio da aplicação e que em:
set myRs= nomedobanco.openrecordset([Ô]NOME DA TABELA[Ô], dbopentable)
Você tenha substituÃdo as palavras nomedobanco e [Ô]NOME DA TABELA[Ô] pelos utilizados em seu projeto.
se quiser eu mando essa parte do projeto com o modulo para alguem me ajudar.
http://uploaddearquivos.com.br/download/1PROJETO_CHECK_NNF.rar
Foi exatamente o que eu falei!
no Form8 em Load vc tem:
cmdnecessi.Visible = False
txtcod.Enabled = False
Call DisplayCustomers(rsCustomers)
[ô]
sub_Inicia_Variaveis
sub_Inicia_Grid
sub_Conecta_Banco
[ô]
Aqui vc chama a Sub DisplayCustomers e passa como parâmetro o recordset rsCustomers, que é publico, está no módulo, porém, no trecho q vc disponibilizou, não tem em nenhum lugar o set desse recordset.
No caso de DAO:
set rscustormers = nomedobanco.openrecordset([Ô]NOME DA TABELA[Ô], dbopentable)
onde nomedobanco é o nome da variável definida como database (o mdb) que também deve ser setado.
e NOME DA TABELA é o nome da tabela referente ao recordset.
ou se vc usa ADO, no caso falta a consulta sql que irá gerar o recordset rsCustomers, que também não encontrei.
Você conecta o banco através da sub sub_Conecta_Banco(), mas não vi em nenhum lugar a SQL que seta o recordset. Igual a essa por exemplo (no seu projeto):
SQL = [Ô]Select Max(código) As Matric From cad_cli[Ô]
Set Rst = objConexao.Execute(SQL)
Ou essa (minha):
Set pesquisar = New ADODB.Recordset
nSQL = [Ô] Select * From ARQMORTO ORDER BY NOME[Ô]
pesquisar.Open nSQL, Banco, adOpenKeyset, adLockOptimistic
O erro em questão é apenas a falta de preencher o recordset com alguma coisa, ou seja [Ô]variável objeto ou com bloco variável não setado[Ô] (traduzindo literalmente)....
Seu projeto deu vários erros de falta de componentes ao abrir e não sei se o mesmo está completo, então mais uma vez digo: reveja seu código.
no Form8 em Load vc tem:
cmdnecessi.Visible = False
txtcod.Enabled = False
Call DisplayCustomers(rsCustomers)
[ô]
sub_Inicia_Variaveis
sub_Inicia_Grid
sub_Conecta_Banco
[ô]
Aqui vc chama a Sub DisplayCustomers e passa como parâmetro o recordset rsCustomers, que é publico, está no módulo, porém, no trecho q vc disponibilizou, não tem em nenhum lugar o set desse recordset.
No caso de DAO:
set rscustormers = nomedobanco.openrecordset([Ô]NOME DA TABELA[Ô], dbopentable)
onde nomedobanco é o nome da variável definida como database (o mdb) que também deve ser setado.
e NOME DA TABELA é o nome da tabela referente ao recordset.
ou se vc usa ADO, no caso falta a consulta sql que irá gerar o recordset rsCustomers, que também não encontrei.
Você conecta o banco através da sub sub_Conecta_Banco(), mas não vi em nenhum lugar a SQL que seta o recordset. Igual a essa por exemplo (no seu projeto):
SQL = [Ô]Select Max(código) As Matric From cad_cli[Ô]
Set Rst = objConexao.Execute(SQL)
Ou essa (minha):
Set pesquisar = New ADODB.Recordset
nSQL = [Ô] Select * From ARQMORTO ORDER BY NOME[Ô]
pesquisar.Open nSQL, Banco, adOpenKeyset, adLockOptimistic
O erro em questão é apenas a falta de preencher o recordset com alguma coisa, ou seja [Ô]variável objeto ou com bloco variável não setado[Ô] (traduzindo literalmente)....
Seu projeto deu vários erros de falta de componentes ao abrir e não sei se o mesmo está completo, então mais uma vez digo: reveja seu código.
LIZANDER;
Obrigado ajudou muito!
Obrigado ajudou muito!
Tópico encerrado , respostas não são mais permitidas