Modulo de conexão e gravação de dados

[zenfra 0]

Olá Pessoal, queria pedir a ajudar de vocês para ver se consigo solucionar um problema. estou tentando salvar os dados em meu banco de dados em Access em uma tabela chamada patrimonio, criei um modulo para fazer a conexão com o banco de dados como abaixo: Global banco As Database Global tabela As Recordset Sub main() End Sub Set work = DBEngine.Workspaces(0) If Dir(App.Path & "\" & "patri.mdb") = "" Then MsgBox "Não foi encontrado o banco", vbCritical, "Atenção" End Else Set banco = work.OpenDatabase(App.Path & "/patri.mdb", False, False, ";PWD=") End If End Sub E em um formúlário que eu criei para que os usuários preencha e depois gravem atraéz do botão gravar tenho o seguinte codigo: Private Sub bto_grava_Click() INSERI = "INSERT INTO patri( nomeptr,numptr,numserieptr,dataquiptr,datagarptr,valorptr,nomfabriptr,nomfornptr,locptr,natptr,descptr,obsptr)VALUES(" + " '" + nom_patri + " '" + " , " + " '" + num_patri + " '" + "," + " '" + num_bem + " '" + "," + " '" + num_serie + " '" + "," + " '" + loc_patri + " '" + "," + " '" + dat_aqui + " '" + "," + " '" + gar_dat + " '" + "," + " '" + not_fisc + " '" + "," + " '" + nom_fabri + " '" + "," + " '" + forn_rev + " '" + "," + " '" + desc + " '" + "," + " '" + obs + " '" + ")" banco.Execute INSERI MsgBox "Dados inseridos com sucesso", vbExclamation 'Limpeza dos campos após inseridos os dados no banco de dados nom_patri = "" num_patri = "" num_serie = "" dat_aqui = "" gar_dat = "" not_fisc = "" valor_patri = "" nom_fabri = "" loc_patri = "" num_bem = "" desc = "" obs = "" End Sub Mas, quando eu clico no botão gravar depois de ter preenchido o formulário ele me da o seguintye erro: ************************** Run-time '91' Object variable or With block variable not set *************************** O que esta faltando para que ele rode ? Agradeço pela ajuda de todos vocês!...Wagner Franze Junior

[eriva_br 7]

faz tempo q naum uso ado e dao, mas acho q tá faltando inicializar os componentes banco e tabela

 

 

Private Sub bto_grava_Click()

 

set banco = new Database

set tabela = new Recordset

 

INSERI = "INSERT INTO patri( nomeptr,numptr,numserieptr,dataquiptr,datagarptr,valorptr,nomfabriptr,nomfornptr

 

,locptr,natptr,descptr,obsptr)VALUES(" + " '" + nom_patri + " '" + " , " + " '" + num_patri + " '" + "," + " '" + num_bem + " '" + "," + " '" + num_serie + " '" + "," + " '" + loc_patri + " '" + "," + " '" + dat_aqui + " '" + "," + " '" + gar_dat + " '" + "," + " '" + not_fisc + " '" + "," + " '" + nom_fabri + " '" + "," + " '" + forn_rev + " '" + "," + " '" + desc + " '" + "," + " '" + obs + " '" + ")"

 

banco.Execute INSERI

'depois você pode fechar

banco.close

tabela.close

'e depois e matar eles tb.

set banco = nothing

set tabela = nothing

 

.... e continuar com seu codigo (msgs, limpeza e talz.....

bla bla bla

 

 

 

 

falows

t+