ERRO IF RS.EOF THEN
Pessoal, sou muito leigo no assunto, mas está dando um erro na linha
[txt-color=#e80000] If rs.EOF Then
Me.T_Max = rs(0)
End If
Set rs = New ADODB.Recordset[/txt-color]
informa: rs.EOF = <Operação não permitida quando o objeto está fechado>
Alguem pode me ajudar?
Segue o código para avaliação.
Private Sub Image3_Click()
[ô] SALVAR FORM
UserForm1.Hide
Windows([Ô]TESTE_FORM.xlsm[Ô]).Activate
[ô]Declaração de variáveis
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim linha As Integer
[ô]Conexão com banco de dados
Set cn = New ADODB.Connection
cn.ConnectionString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\TESTE\PSC_DB.accdb[Ô]
cn.Open
[ô]Definição do recordset
Set rs = New ADODB.Recordset
[ô]comando sql
sql = [Ô]INSERT INTO T_Homologação (ID, BackOffice, Tipo, TpProblem, Status, DescStatus, Canal, DtEntrada, Semana, DtEnvio, NomeSAM, OS, DtEnvioS, NomePC, OSPC, RNW, ETicket, ObjetoCAR, OSCAR, ObjetoCliente, NomeCliente, SobrenomeCli, CPF, Responsável, CPFResp, TelCtt, Endereco, Cidade, Estado, CEP, DetCaso) VALUES ([ô][Ô] & TextBox5 & [Ô][ô],[ô][Ô] & Me.BC_L & [Ô][ô],[ô][Ô] & Me.ComboBox3 & [Ô][ô], [ô][Ô] & Me.ComboBox4 & [Ô][ô], [ô][Ô] & Me.ComboBox5 & [Ô][ô], [ô][Ô] & Me.ComboBox6 & [Ô][ô], [ô][Ô] & Me.ComboBox2 & [Ô][ô], [ô][Ô] & TextBox3 & [Ô][ô], [ô][Ô] & TextBox4 & [Ô][ô], [ô][Ô] & TextBox25 & [Ô][ô], [ô][Ô] & Me.ComboBox9 & [Ô][ô], [ô][Ô] & TextBox26 & [Ô][ô], [ô][Ô] & TextBox27 & [Ô][ô], [ô][Ô] & TextBox28 & [Ô][ô], [ô][Ô] & TextBox29 & [Ô][ô], [ô][Ô] & TextBox32 & [Ô][ô], [ô][Ô] & TextBox33 & [Ô][ô], [ô][Ô] & TextBox31 & [Ô][ô], [ô][Ô] & TextBox30 & [Ô][ô], [ô][Ô] & TextBox34 & [Ô][ô], [ô][Ô] & TextBox6 & [Ô][ô], [ô][Ô] & TextBox7 & [Ô][ô], [ô][Ô] & TextBox8 & [Ô][ô], [ô][Ô] & TextBox11 & [Ô][ô], [ô][Ô] & TextBox12 & [Ô][ô], [ô][Ô] & TextBox9 & [Ô][ô], [ô][Ô] & TextBox13.Value & [Ô][ô],[ô][Ô] & TextBox14.Value & [Ô][ô], [ô][Ô] & TextBox15.Value & [Ô][ô], [ô][Ô] & TextBox16.Value & [Ô][ô], [ô][Ô] & TextBox24.Value & [Ô][ô])[Ô]
rs.Open sql, cn, T_Homologação
[txt-color=#007100] [ô] gera o recordset para o sql sobre a conexao definida[/txt-color]
sql = [Ô]SELECT T_Max(Numero) FROM T_Homologação[Ô]
rs.Open sql, cn, T_Homologação
[txt-color=#e80000] If rs.EOF Then
Me.T_Max = rs(0)
End If [/txt-color]
Set rs = New ADODB.Recordset
rs.Open sql, cn
sql = [Ô]Update T_Homologação set Modelo = [ô][Ô] & Me.ComboBox7.Value & [Ô][ô], IMEI = [ô][Ô] & TextBox17.Value & [Ô][ô], MSN = [ô][Ô] & TextBox18.Value & [Ô][ô], Operadora = [ô][Ô] & Me.ComboBox8.Value & [Ô][ô], Revenda = [ô][Ô] & TextBox19.Value & [Ô][ô], NF = [ô][Ô] & TextBox20.Value & [Ô][ô], NomeNF = [ô][Ô] & TextBox22.Value & [Ô][ô], CPFNF = [ô][Ô] & TextBox23.Value & [Ô][ô], DtCompra = [ô][Ô] & TextBox21.Value & [Ô][ô], DtRetorno = [ô][Ô] & TextBox36.Value & [Ô][ô], Atualizacao = [ô][Ô] & TextBox35.Value & [Ô][ô], Atualizador = [ô][Ô] & Me.ComboBox10.Value & [Ô][ô], DescEncerramento = [ô][Ô] & Me.ComboBox14.Value & [Ô][ô], Satisfacao = [ô][Ô] & Me.ComboBox13.Value & [Ô][ô], Troca = [ô][Ô] & Me.ComboBox11.Value & [Ô][ô] WHERE (Numero = [ô][Ô] & Me.T_Max & [Ô][ô] + 0)[Ô]
rs.Open sql, cn
sql = [Ô]update T_Homologação set NTroca = [ô][Ô] & TextBox37.Value & [Ô][ô], Restituicao = [ô][Ô] & Me.ComboBox12.Value & [Ô][ô], NRestituição = [ô][Ô] & TextBox38.Value & [Ô][ô], DtEncerramento = [ô][Ô] & TextBox39.Value & [Ô][ô], Tempo = [ô][Ô] & TextBox40.Value & [Ô][ô], Emprestimo = [ô][Ô] & Me.ComboBox16.Value & [Ô][ô], TratarCall = [ô][Ô] & Me.ComboBox15.Value & [Ô][ô] WHERE (Numero = [ô][Ô] & Me.T_Max & [Ô][ô] + 1)[Ô]
rs.Open sql, cn
cn.Close
Unload Me
Call Image4_Click
UserForm1.Show
End Sub
Desde já agradeço atodos!
[txt-color=#e80000] If rs.EOF Then
Me.T_Max = rs(0)
End If
Set rs = New ADODB.Recordset[/txt-color]
informa: rs.EOF = <Operação não permitida quando o objeto está fechado>
Alguem pode me ajudar?
Segue o código para avaliação.
Private Sub Image3_Click()
[ô] SALVAR FORM
UserForm1.Hide
Windows([Ô]TESTE_FORM.xlsm[Ô]).Activate
[ô]Declaração de variáveis
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim linha As Integer
[ô]Conexão com banco de dados
Set cn = New ADODB.Connection
cn.ConnectionString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\TESTE\PSC_DB.accdb[Ô]
cn.Open
[ô]Definição do recordset
Set rs = New ADODB.Recordset
[ô]comando sql
sql = [Ô]INSERT INTO T_Homologação (ID, BackOffice, Tipo, TpProblem, Status, DescStatus, Canal, DtEntrada, Semana, DtEnvio, NomeSAM, OS, DtEnvioS, NomePC, OSPC, RNW, ETicket, ObjetoCAR, OSCAR, ObjetoCliente, NomeCliente, SobrenomeCli, CPF, Responsável, CPFResp, TelCtt, Endereco, Cidade, Estado, CEP, DetCaso) VALUES ([ô][Ô] & TextBox5 & [Ô][ô],[ô][Ô] & Me.BC_L & [Ô][ô],[ô][Ô] & Me.ComboBox3 & [Ô][ô], [ô][Ô] & Me.ComboBox4 & [Ô][ô], [ô][Ô] & Me.ComboBox5 & [Ô][ô], [ô][Ô] & Me.ComboBox6 & [Ô][ô], [ô][Ô] & Me.ComboBox2 & [Ô][ô], [ô][Ô] & TextBox3 & [Ô][ô], [ô][Ô] & TextBox4 & [Ô][ô], [ô][Ô] & TextBox25 & [Ô][ô], [ô][Ô] & Me.ComboBox9 & [Ô][ô], [ô][Ô] & TextBox26 & [Ô][ô], [ô][Ô] & TextBox27 & [Ô][ô], [ô][Ô] & TextBox28 & [Ô][ô], [ô][Ô] & TextBox29 & [Ô][ô], [ô][Ô] & TextBox32 & [Ô][ô], [ô][Ô] & TextBox33 & [Ô][ô], [ô][Ô] & TextBox31 & [Ô][ô], [ô][Ô] & TextBox30 & [Ô][ô], [ô][Ô] & TextBox34 & [Ô][ô], [ô][Ô] & TextBox6 & [Ô][ô], [ô][Ô] & TextBox7 & [Ô][ô], [ô][Ô] & TextBox8 & [Ô][ô], [ô][Ô] & TextBox11 & [Ô][ô], [ô][Ô] & TextBox12 & [Ô][ô], [ô][Ô] & TextBox9 & [Ô][ô], [ô][Ô] & TextBox13.Value & [Ô][ô],[ô][Ô] & TextBox14.Value & [Ô][ô], [ô][Ô] & TextBox15.Value & [Ô][ô], [ô][Ô] & TextBox16.Value & [Ô][ô], [ô][Ô] & TextBox24.Value & [Ô][ô])[Ô]
rs.Open sql, cn, T_Homologação
[txt-color=#007100] [ô] gera o recordset para o sql sobre a conexao definida[/txt-color]
sql = [Ô]SELECT T_Max(Numero) FROM T_Homologação[Ô]
rs.Open sql, cn, T_Homologação
[txt-color=#e80000] If rs.EOF Then
Me.T_Max = rs(0)
End If [/txt-color]
Set rs = New ADODB.Recordset
rs.Open sql, cn
sql = [Ô]Update T_Homologação set Modelo = [ô][Ô] & Me.ComboBox7.Value & [Ô][ô], IMEI = [ô][Ô] & TextBox17.Value & [Ô][ô], MSN = [ô][Ô] & TextBox18.Value & [Ô][ô], Operadora = [ô][Ô] & Me.ComboBox8.Value & [Ô][ô], Revenda = [ô][Ô] & TextBox19.Value & [Ô][ô], NF = [ô][Ô] & TextBox20.Value & [Ô][ô], NomeNF = [ô][Ô] & TextBox22.Value & [Ô][ô], CPFNF = [ô][Ô] & TextBox23.Value & [Ô][ô], DtCompra = [ô][Ô] & TextBox21.Value & [Ô][ô], DtRetorno = [ô][Ô] & TextBox36.Value & [Ô][ô], Atualizacao = [ô][Ô] & TextBox35.Value & [Ô][ô], Atualizador = [ô][Ô] & Me.ComboBox10.Value & [Ô][ô], DescEncerramento = [ô][Ô] & Me.ComboBox14.Value & [Ô][ô], Satisfacao = [ô][Ô] & Me.ComboBox13.Value & [Ô][ô], Troca = [ô][Ô] & Me.ComboBox11.Value & [Ô][ô] WHERE (Numero = [ô][Ô] & Me.T_Max & [Ô][ô] + 0)[Ô]
rs.Open sql, cn
sql = [Ô]update T_Homologação set NTroca = [ô][Ô] & TextBox37.Value & [Ô][ô], Restituicao = [ô][Ô] & Me.ComboBox12.Value & [Ô][ô], NRestituição = [ô][Ô] & TextBox38.Value & [Ô][ô], DtEncerramento = [ô][Ô] & TextBox39.Value & [Ô][ô], Tempo = [ô][Ô] & TextBox40.Value & [Ô][ô], Emprestimo = [ô][Ô] & Me.ComboBox16.Value & [Ô][ô], TratarCall = [ô][Ô] & Me.ComboBox15.Value & [Ô][ô] WHERE (Numero = [ô][Ô] & Me.T_Max & [Ô][ô] + 1)[Ô]
rs.Open sql, cn
cn.Close
Unload Me
Call Image4_Click
UserForm1.Show
End Sub
Desde já agradeço atodos!
Caro amigo,pelo que entendi você está gravando dados em uma tabela e está chamando recordset?
Só abrimos record set para retornar dados do banco de dados Ex.
Private db_base As New ADODB.Connection
Private sConexao As String
Private sSql As String
Private Aux As ADODB.Recordset
Private Sub Form_Load()
Set Aux = New ADODB.Recordset
Me.Left = ((Screen.Width / 2) - (Me.Width / 2))
Me.Top = ((Screen.Height / 2) - (Me.Height / 2) - 200)
sConexao = [Ô]Sua string de conexão[Ô]
db_base.ConnectionTimeout = 200
db_base.CommandTimeout = 200
db_base.Open sConexao
sSql = [Ô]Select * From Tbl_Teste[Ô]
Aux.Open sSql, db_base, adOpenKeyset [ô]Aqui abro um recordset para me retornar dados de uma tabela
Set Grid1.DataSource = Aux.DataSource [ô] aqui exibo esses dados em um grid.
sSql = [Ô]Insert Into Tbl_Teste(S_Dsc_Descricao) values ([ô][Ô] & Replace(UCase(Trim(Txt_Description.Text)), [Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô])[Ô] aqui um exemplo inserindo um dado!nota que não preciso abrir um recorset,apenas peço para
db_base.Execute sSql executar o comando. pois não preciso que me retorno registro,apenas quero grava-lo.
eu sempre faço assim,não sei se te ajuda..
Só abrimos record set para retornar dados do banco de dados Ex.
Private db_base As New ADODB.Connection
Private sConexao As String
Private sSql As String
Private Aux As ADODB.Recordset
Private Sub Form_Load()
Set Aux = New ADODB.Recordset
Me.Left = ((Screen.Width / 2) - (Me.Width / 2))
Me.Top = ((Screen.Height / 2) - (Me.Height / 2) - 200)
sConexao = [Ô]Sua string de conexão[Ô]
db_base.ConnectionTimeout = 200
db_base.CommandTimeout = 200
db_base.Open sConexao
sSql = [Ô]Select * From Tbl_Teste[Ô]
Aux.Open sSql, db_base, adOpenKeyset [ô]Aqui abro um recordset para me retornar dados de uma tabela
Set Grid1.DataSource = Aux.DataSource [ô] aqui exibo esses dados em um grid.
sSql = [Ô]Insert Into Tbl_Teste(S_Dsc_Descricao) values ([ô][Ô] & Replace(UCase(Trim(Txt_Description.Text)), [Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô])[Ô] aqui um exemplo inserindo um dado!nota que não preciso abrir um recorset,apenas peço para
db_base.Execute sSql executar o comando. pois não preciso que me retorno registro,apenas quero grava-lo.
eu sempre faço assim,não sei se te ajuda..
Obrigado, vou tentar
Caro parreira,
Até este ponto está indo OK, mas o que ocorre é que a partir da linha:
[txt-color=#e80000] sql = [Ô]Update T_Homologação set Modelo = [ô][Ô] & Me.ComboBox7.Value & [Ô][ô], IMEI = [ô][Ô] & TextBox17.Value & [Ô][ô], MSN = [ô][Ô] & TextBox18.Value & [Ô][ô], Operadora = [ô][Ô] & Me.ComboBox8.Value & [Ô][ô], Revenda = [ô][Ô] & TextBox19.Value & [Ô][ô], NF = [ô][Ô] & TextBox20.Value & [Ô][ô], NomeNF = [ô][Ô] & TextBox22.Value & [Ô][ô], CPFNF = [ô][Ô] & TextBox23.Value & [Ô][ô], DtCompra = [ô][Ô] & TextBox21.Value & [Ô][ô], DtRetorno = [ô][Ô] & TextBox36.Value & [Ô][ô], Atualizacao = [ô][Ô] & TextBox35.Value & [Ô][ô], Atualizador = [ô][Ô] & Me.ComboBox10.Value & [Ô][ô], DescEncerramento = [ô][Ô] & Me.ComboBox14.Value & [Ô][ô], Satisfacao = [ô][Ô] & Me.ComboBox13.Value & [Ô][ô], Troca = [ô][Ô] & Me.ComboBox11.Value & [Ô][ô] WHERE (Numero = [ô][Ô] & Me.T_Max & [Ô][ô] + 0)[Ô][/txt-color]
Ela não é mais submetida no BD.
Não sei se você já respondeu acima, mas como informei sou leigo, noob por assim dizer.rs
Até este ponto está indo OK, mas o que ocorre é que a partir da linha:
[txt-color=#e80000] sql = [Ô]Update T_Homologação set Modelo = [ô][Ô] & Me.ComboBox7.Value & [Ô][ô], IMEI = [ô][Ô] & TextBox17.Value & [Ô][ô], MSN = [ô][Ô] & TextBox18.Value & [Ô][ô], Operadora = [ô][Ô] & Me.ComboBox8.Value & [Ô][ô], Revenda = [ô][Ô] & TextBox19.Value & [Ô][ô], NF = [ô][Ô] & TextBox20.Value & [Ô][ô], NomeNF = [ô][Ô] & TextBox22.Value & [Ô][ô], CPFNF = [ô][Ô] & TextBox23.Value & [Ô][ô], DtCompra = [ô][Ô] & TextBox21.Value & [Ô][ô], DtRetorno = [ô][Ô] & TextBox36.Value & [Ô][ô], Atualizacao = [ô][Ô] & TextBox35.Value & [Ô][ô], Atualizador = [ô][Ô] & Me.ComboBox10.Value & [Ô][ô], DescEncerramento = [ô][Ô] & Me.ComboBox14.Value & [Ô][ô], Satisfacao = [ô][Ô] & Me.ComboBox13.Value & [Ô][ô], Troca = [ô][Ô] & Me.ComboBox11.Value & [Ô][ô] WHERE (Numero = [ô][Ô] & Me.T_Max & [Ô][ô] + 0)[Ô][/txt-color]
Ela não é mais submetida no BD.
Não sei se você já respondeu acima, mas como informei sou leigo, noob por assim dizer.rs
Amigo, boa tarde.
Bom é o seguinte. A instrução INSERT não retorna nem um valor ou parâmetro que seja necessário conservar o recordset aberto, por isso é informa este erro. Após você realizar a inserção de dados, faça um select pois ai sim você terá valores retornados o que mantem o recordset aberto, bom pelo menos foi o que eu entendi.
Tente ai e retorne.
Bom é o seguinte. A instrução INSERT não retorna nem um valor ou parâmetro que seja necessário conservar o recordset aberto, por isso é informa este erro. Após você realizar a inserção de dados, faça um select pois ai sim você terá valores retornados o que mantem o recordset aberto, bom pelo menos foi o que eu entendi.
Tente ai e retorne.
Citação::
Amigo, boa tarde.
Bom é o seguinte. A instrução INSERT não retorna nem um valor ou parâmetro que seja necessário conservar o recordset aberto, por isso é informa este erro. Após você realizar a inserção de dados, faça um select pois ai sim você terá valores retornados o que mantem o recordset aberto, bom pelo menos foi o que eu entendi.
Tente ai e retorne.
Ceio que desta forma dará certo, mas o que ocorre é que o código ficou muito longo e não cabe na linha do editor vba, pois tenho que inserir todas as informações no INSERT, pois no UPDATE não tá entrando.
Como faço para continuar o código na linha de baixo?
Já tentei com o espaço e _ mas não deu certo.
Desde já agradeço!
JMARCO, vc pode usar assim
Dim Sql As String
Sql = [Ô]SUA QUERY[Ô]
Sql = Sql & [Ô] CONTINUACAO[Ô]
Sql = Sql & [Ô] CONTINUACAO[Ô]
Sql = Sql & [Ô] CONTINUACAO[Ô]
Sql = Sql & [Ô] CONTINUACAO[Ô]
db_base.Execute Sql
Dim Sql As String
Sql = [Ô]SUA QUERY[Ô]
Sql = Sql & [Ô] CONTINUACAO[Ô]
Sql = Sql & [Ô] CONTINUACAO[Ô]
Sql = Sql & [Ô] CONTINUACAO[Ô]
Sql = Sql & [Ô] CONTINUACAO[Ô]
db_base.Execute Sql
Citação::
JMARCO, vc pode usar assim
Dim Sql As String
Sql = [Ô]SUA QUERY[Ô]
Sql = Sql & [Ô] CONTINUACAO[Ô]
Sql = Sql & [Ô] CONTINUACAO[Ô]
Sql = Sql & [Ô] CONTINUACAO[Ô]
Sql = Sql & [Ô] CONTINUACAO[Ô]
db_base.Execute Sql
Eu coloquei assim:
sql = sql & [Ô] INSERT INTO T_Homologação (ID, BackOffice, Tipo, TpProblem, Status, DescStatus, Canal, DtEntrada, Semana, DtEnvio, NomeSAM, OS, DtEnvioS, NomePC, OSPC, RNW, ETicket, ObjetoCAR, OSCAR, ObjetoCliente, NomeCliente, SobrenomeCli, CPF, Responsável, CPFResp, TelCtt, Endereco, Cidade, Estado, CEP, DetCaso, Modelo, IMEI, MSN, Operadora, Revenda, NF, NomeNF, CPFNF, DtCompra, DtRetorno, Atualizacao, Atualizador, DescEncerramento, Satisfacao, Troca, NTroca, Restituicao, NRestituição, DtEncerramento, Tempo, Emprestimo, TratarCall)[Ô]
sql = sql & [Ô] Values ([ô][Ô] & TextBox5 & [Ô][ô], [ô][Ô] & Me.BC_L & [Ô][ô], [ô][Ô] & Me.ComboBox3 & [Ô][ô], [ô][Ô] & Me.ComboBox4 & [Ô][ô], [ô][Ô] & Me.ComboBox5 & [Ô][ô], [ô][Ô] & Me.ComboBox6 & [Ô][ô], [ô][Ô] & Me.ComboBox2 & [Ô][ô], [ô][Ô] & TextBox3 & [Ô][ô], [ô][Ô] & TextBox4 & [Ô][ô], [ô][Ô] & TextBox25 & [Ô][ô], [ô][Ô] & Me.ComboBox9 & [Ô][ô], [ô][Ô] & TextBox26 & [Ô][ô], [ô][Ô] & TextBox27 & [Ô][ô], [ô][Ô] & TextBox28 & [Ô][ô], [ô][Ô] & TextBox29 & [Ô][ô], [ô][Ô] & TextBox32 & [Ô][ô], [ô][Ô] & TextBox33 & [Ô][ô], [ô][Ô] & TextBox31 & [Ô][ô], [ô][Ô] & TextBox30 & [Ô][ô], [ô][Ô] & TextBox34 & [Ô][ô], [ô][Ô] & TextBox6 & [Ô][ô], [ô][Ô] & TextBox7 & [Ô][ô], [ô][Ô] & TextBox8 & [Ô][ô], [ô][Ô] & TextBox11 & [Ô][ô], [ô][Ô] & TextBox12 & [Ô][ô], [ô][Ô] & TextBox9 & [Ô][ô], [ô][Ô] & TextBox13.Value & [Ô][ô],[ô][Ô] & TextBox14.Value & [Ô][ô], [ô][Ô] & TextBox15.Value & [Ô][ô], [ô][Ô] & TextBox16.Value & [Ô][ô], [ô][Ô] & TextBox24.Value & [Ô][ô], [ô][Ô] & Me.ComboBox7 & [Ô][ô], [ô][Ô] & TextBox17 & [Ô][ô], [ô][Ô] & TextBox18 & [Ô][ô], [ô][Ô] & Me.ComboBox8 & [Ô][ô], [ô][Ô] & TextBox19 & [Ô][ô], [ô][Ô] & TextBox20 & [Ô][ô], [ô][Ô] & TextBox22 & [Ô][ô], [ô][Ô] & TextBox23 & [Ô][ô], [ô][Ô] & TextBox21 & [Ô][ô], [ô][Ô] & TextBox36 & [Ô][ô], [ô][Ô] & TextBox35 & [Ô][ô], [ô][Ô] & Me.ComboBox10 & [Ô][ô], [ô][Ô] & Me.ComboBox14 & [Ô][ô], [ô][Ô] & Me.ComboBox13 & [Ô][ô][Ô]
sql = sql & [Ô] [ô][Ô] & Me.ComboBox11 & [Ô][ô], [ô][Ô] & TextBox37.Value & [Ô][ô], [ô][Ô] & Me.ComboBox12 & [Ô][ô], [ô][Ô] & TextBox38 & [Ô][ô], [ô][Ô] & TextBox39 & [Ô][ô], [ô][Ô] & TextBox40 & [Ô][ô], [ô][Ô] & Me.ComboBox16 & [Ô][ô])[Ô]
[txt-color=#e80000]db_base.Execute sql[/txt-color]
[txt-color=#0000f0]rs.Open sql, cn, T_Homologação[/txt-color]
Ou dá erro em um ou no outro. e não completa a imputação.
JMARCO.
db_base.Execute sql ->retire esta linha pois o execute dever ser realizado na CONEXÃO
rs.Open sql, cn, T_Homologação -> mude para
é importante saber qual o erro que ocorre durante o comando INSERT para poder ajuda-lo.
Vários erros podem estar ocorrendo, dentre eles a falta de valor em um campo que não aceita NULO.
Recomendo que você demembre PARA FINS DE TESTE seu comando assim (eu campo ID é caracter?):
Depois faça comandos UPDATE:
Este TESTE é para verificar se algum campo está com valor atribuido errado.
db_base.Execute sql ->retire esta linha pois o execute dever ser realizado na CONEXÃO
rs.Open sql, cn, T_Homologação -> mude para
cn.execute sqlé importante saber qual o erro que ocorre durante o comando INSERT para poder ajuda-lo.
Vários erros podem estar ocorrendo, dentre eles a falta de valor em um campo que não aceita NULO.
Recomendo que você demembre PARA FINS DE TESTE seu comando assim (eu campo ID é caracter?):
sql = [Ô]INSERT INTO T_HOMOLOGAÇÃO (ID) VALUES ([ô][Ô] & TextBox5 & [Ô][ô])[Ô] -> tire as aspas simples se seu campo for NUMéRICO
cn.execute sqlDepois faça comandos UPDATE:
Dim Wupdate(<numero de campos no comando>) as STRING
Wupdate(1) = [Ô]BackOffice = [ô][Ô] & Me.BC_L & [Ô][ô][Ô]
.
.
.
Wupdate(<numero de campos no comando>) = [Ô]TratarCall = [ô][Ô] & Me.ComboBox16 & [Ô][ô][Ô]
for Wx = 1 to ubound(Wupdate)
sql = [Ô]UPDATE T_HOMOLOGAÇÃO set [Ô] & Wupdate(Wx) & [Ô] where ID = [ô][Ô] & TextBox5 & [Ô][ô][Ô] -> tire as aspas simples se seu campo ID for NUMéRICO
cn.execute sqlEste TESTE é para verificar se algum campo está com valor atribuido errado.
Eu fiz de outra forma colocando tudo no INSERT, mas esta dando erro.
UserForm1.Hide
Windows([Ô]TESTE_FORM.xlsm[Ô]).Activate
[ô]Declaração de variáveis
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim linha As Integer
[ô]Conexão com banco de dados
Set cn = New ADODB.Connection
[ô]cn.ConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\615057\Desktop\MACROS FORM\PSC_DB.accdb[Ô]
[ô]cn.ConnectionString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\brsrvfs01\Operacoes\Motorola\PSC\PSC_DB.accdb[Ô]
cn.ConnectionString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\TESTE\PSC_DB.accdb[Ô]
cn.Open
[ô]Definição do recordset
Set rs = New ADODB.Recordset
[ô]comando sql
sql = sql & [Ô] INSERT INTO T_Homologação (ID, BackOffice, Tipo, TpProblem, Status, DescStatus, Canal, DtEntrada, Semana, DtEnvio, NomeSAM, OS, DtEnvioS, NomePC, OSPC, RNW, ETicket, ObjetoCAR, OSCAR, ObjetoCliente, NomeCliente, SobrenomeCli, CPF, Responsável, CPFResp, TelCtt, Endereco, Cidade, Estado, CEP, DetCaso,)[Ô]
sql = sql & [Ô] Modelo, IMEI, MSN, Operadora, Revenda, NF, NomeNF, CPFNF, DtCompra, DtRetorno, Atualizacao, Atualizador, DescEncerramento, Satisfacao, Troca, NTroca, Restituicao, NRestituição, DtEncerramento, Tempo, Emprestimo, TratarCall)[Ô]
sql = sql & [Ô] Values ([ô][Ô] & TextBox5.Value & [Ô][ô], [ô][Ô] & BC_L.Value & [Ô][ô], [ô][Ô] & Me.ComboBox3.Value & [Ô][ô], [ô][Ô] & Me.ComboBox4.Value & [Ô][ô], [ô][Ô] & Me.ComboBox5.Value & [Ô][ô], [ô][Ô] & Me.ComboBox6.Value & [Ô][ô], [ô][Ô] & Me.ComboBox2.Value & [Ô][ô], [ô][Ô] & TextBox3.Value & [Ô][ô], [ô][Ô] & TextBox4.Value & [Ô][ô], [ô][Ô] & TextBox25.Value & [Ô][ô], [ô][Ô] & Me.ComboBox9.Value & [Ô][ô], [ô][Ô] & TextBox26.Value & [Ô][ô], [ô][Ô] & TextBox27.Value & [Ô][ô], [ô][Ô] & TextBox28.Value & [Ô][ô], [ô][Ô] & TextBox29.Value & [Ô][ô], [ô][Ô] & TextBox32.Value & [Ô][ô], [ô][Ô] & TextBox33.Value & [Ô][ô], [ô][Ô] & TextBox31.Value & [Ô][ô], [ô][Ô] & TextBox30.Value & [Ô][ô], [ô][Ô] & TextBox34.Value & [Ô][ô], [ô][Ô] & TextBox6.Value & [Ô][ô], [ô][Ô] & TextBox7.Value & [Ô][ô], [ô][Ô] & TextBox8.Value & [Ô][ô], [ô][Ô] & TextBox11.Value & [Ô][ô], [ô][Ô] & TextBox12.Value & [Ô][ô], [ô][Ô] & TextBox9.Value & [Ô][ô], [ô][Ô] & TextBox13.Value & [Ô][ô], [ô][Ô] & TextBox14.Value & [Ô][ô], [ô][Ô] & TextBox15.Value & [Ô][ô], [ô][Ô] & TextBox16.Value & [Ô][ô], [ô][Ô] & TextBox24.Value & [Ô][ô])[Ô]
sql = sql & [Ô] [ô][Ô] & Me.ComboBox7.Value & [Ô][ô], [ô][Ô] & TextBox17.Value & [Ô][ô], [ô][Ô] & TextBox18.Value & [Ô][ô], [ô][Ô] & Me.ComboBox8.Value & [Ô][ô], [ô][Ô] & TextBox19.Value & [Ô][ô], [ô][Ô] & TextBox20.Value & [Ô][ô], [ô][Ô] & TextBox22.Value & [Ô][ô], [ô][Ô] & TextBox23.Value & [Ô][ô], [ô][Ô] & TextBox21.Value & [Ô][ô], [ô][Ô] & TextBox36.Value & [Ô][ô], [ô][Ô] & TextBox35.Value & [Ô][ô], [ô][Ô] & Me.ComboBox10.Value & [Ô][ô], [ô][Ô] & Me.ComboBox14.Value & [Ô][ô], [ô][Ô] & Me.ComboBox13.Value & [Ô][ô], [ô][Ô] & Me.ComboBox11.Value & [Ô][ô], [ô][Ô] & TextBox37.Value & [Ô][ô], [ô][Ô] & Me.ComboBox12.Value & [Ô][ô], [ô][Ô] & TextBox38.Value & [Ô][ô], [ô][Ô] & TextBox39.Value & [Ô][ô], [ô][Ô] & TextBox40.Value & [Ô][ô], [ô][Ô] & Me.ComboBox16.Value & [Ô][ô], [ô][Ô] & Me.ComboBox15.Value & [Ô][ô])[Ô]
rs.Open sql, cn, T_Homologação
Quando eu coloco o mouse em cima de T_Homologação informa(T_Homologação = Vazio).
Erro de sintaxe na instrução INSERT INTO.
Mas eu não entendo que erro pode ser esse.
Alguém pode me ajudar?
UserForm1.Hide
Windows([Ô]TESTE_FORM.xlsm[Ô]).Activate
[ô]Declaração de variáveis
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim linha As Integer
[ô]Conexão com banco de dados
Set cn = New ADODB.Connection
[ô]cn.ConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\615057\Desktop\MACROS FORM\PSC_DB.accdb[Ô]
[ô]cn.ConnectionString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\brsrvfs01\Operacoes\Motorola\PSC\PSC_DB.accdb[Ô]
cn.ConnectionString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\TESTE\PSC_DB.accdb[Ô]
cn.Open
[ô]Definição do recordset
Set rs = New ADODB.Recordset
[ô]comando sql
sql = sql & [Ô] INSERT INTO T_Homologação (ID, BackOffice, Tipo, TpProblem, Status, DescStatus, Canal, DtEntrada, Semana, DtEnvio, NomeSAM, OS, DtEnvioS, NomePC, OSPC, RNW, ETicket, ObjetoCAR, OSCAR, ObjetoCliente, NomeCliente, SobrenomeCli, CPF, Responsável, CPFResp, TelCtt, Endereco, Cidade, Estado, CEP, DetCaso,)[Ô]
sql = sql & [Ô] Modelo, IMEI, MSN, Operadora, Revenda, NF, NomeNF, CPFNF, DtCompra, DtRetorno, Atualizacao, Atualizador, DescEncerramento, Satisfacao, Troca, NTroca, Restituicao, NRestituição, DtEncerramento, Tempo, Emprestimo, TratarCall)[Ô]
sql = sql & [Ô] Values ([ô][Ô] & TextBox5.Value & [Ô][ô], [ô][Ô] & BC_L.Value & [Ô][ô], [ô][Ô] & Me.ComboBox3.Value & [Ô][ô], [ô][Ô] & Me.ComboBox4.Value & [Ô][ô], [ô][Ô] & Me.ComboBox5.Value & [Ô][ô], [ô][Ô] & Me.ComboBox6.Value & [Ô][ô], [ô][Ô] & Me.ComboBox2.Value & [Ô][ô], [ô][Ô] & TextBox3.Value & [Ô][ô], [ô][Ô] & TextBox4.Value & [Ô][ô], [ô][Ô] & TextBox25.Value & [Ô][ô], [ô][Ô] & Me.ComboBox9.Value & [Ô][ô], [ô][Ô] & TextBox26.Value & [Ô][ô], [ô][Ô] & TextBox27.Value & [Ô][ô], [ô][Ô] & TextBox28.Value & [Ô][ô], [ô][Ô] & TextBox29.Value & [Ô][ô], [ô][Ô] & TextBox32.Value & [Ô][ô], [ô][Ô] & TextBox33.Value & [Ô][ô], [ô][Ô] & TextBox31.Value & [Ô][ô], [ô][Ô] & TextBox30.Value & [Ô][ô], [ô][Ô] & TextBox34.Value & [Ô][ô], [ô][Ô] & TextBox6.Value & [Ô][ô], [ô][Ô] & TextBox7.Value & [Ô][ô], [ô][Ô] & TextBox8.Value & [Ô][ô], [ô][Ô] & TextBox11.Value & [Ô][ô], [ô][Ô] & TextBox12.Value & [Ô][ô], [ô][Ô] & TextBox9.Value & [Ô][ô], [ô][Ô] & TextBox13.Value & [Ô][ô], [ô][Ô] & TextBox14.Value & [Ô][ô], [ô][Ô] & TextBox15.Value & [Ô][ô], [ô][Ô] & TextBox16.Value & [Ô][ô], [ô][Ô] & TextBox24.Value & [Ô][ô])[Ô]
sql = sql & [Ô] [ô][Ô] & Me.ComboBox7.Value & [Ô][ô], [ô][Ô] & TextBox17.Value & [Ô][ô], [ô][Ô] & TextBox18.Value & [Ô][ô], [ô][Ô] & Me.ComboBox8.Value & [Ô][ô], [ô][Ô] & TextBox19.Value & [Ô][ô], [ô][Ô] & TextBox20.Value & [Ô][ô], [ô][Ô] & TextBox22.Value & [Ô][ô], [ô][Ô] & TextBox23.Value & [Ô][ô], [ô][Ô] & TextBox21.Value & [Ô][ô], [ô][Ô] & TextBox36.Value & [Ô][ô], [ô][Ô] & TextBox35.Value & [Ô][ô], [ô][Ô] & Me.ComboBox10.Value & [Ô][ô], [ô][Ô] & Me.ComboBox14.Value & [Ô][ô], [ô][Ô] & Me.ComboBox13.Value & [Ô][ô], [ô][Ô] & Me.ComboBox11.Value & [Ô][ô], [ô][Ô] & TextBox37.Value & [Ô][ô], [ô][Ô] & Me.ComboBox12.Value & [Ô][ô], [ô][Ô] & TextBox38.Value & [Ô][ô], [ô][Ô] & TextBox39.Value & [Ô][ô], [ô][Ô] & TextBox40.Value & [Ô][ô], [ô][Ô] & Me.ComboBox16.Value & [Ô][ô], [ô][Ô] & Me.ComboBox15.Value & [Ô][ô])[Ô]
rs.Open sql, cn, T_Homologação
Quando eu coloco o mouse em cima de T_Homologação informa(T_Homologação = Vazio).
Erro de sintaxe na instrução INSERT INTO.
Mas eu não entendo que erro pode ser esse.
Alguém pode me ajudar?
[txt-color=#e80000]Pessoal, muito obrigado, consegui fazer os ajustes e ficou assim.[/txt-color]
Private Sub Image3_Click()
[ô] SALVAR FORM
[ô] CÓDIGO OK
UserForm1.Hide
Windows([Ô]TESTE_FORM.xlsm[Ô]).Activate
[ô]Declaração de variáveis
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim linha As Integer
[ô]Conexão com banco de dados
Set cn = New ADODB.Connection
[ô]cn.ConnectionString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\brsrvfs01\Operacoes\Motorola\PSC\PSC_DB.accdb[Ô]
cn.ConnectionString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\TESTE\PSC_DB.accdb[Ô]
cn.Open
[ô]Definição do recordset
Set rs = New ADODB.Recordset
[ô]comando sql
sql = sql & [Ô] INSERT INTO T_Homologação (ID, BackOffice, Tipo, TpProblem, Status, DescStatus, Canal, DtEntrada, Semana, DtEnvio, NomeSAM, OS, DtEnvioS, NomePC, OSPC, RNW, ETicket, ObjetoCAR, OSCAR, ObjetoCliente, NomeCliente, SobrenomeCli, CPF, Responsável, CPFResp, TelCtt, Endereco, Cidade, Estado, CEP, DetCaso, [Ô]
sql = sql & [Ô] Modelo, IMEI, MSN, Operadora, Revenda, NF, NomeNF, CPFNF, DtCompra, DtRetorno, Atualizacao, Atualizador, DescEncerramento, Satisfacao, Troca, NTroca, Restituicao, NRestituição, DtEncerramento, Tempo, Emprestimo, TratarCall)[Ô]
sql = sql & [Ô] Values ([ô][Ô] & TextBox5.Value & [Ô][ô], [ô][Ô] & BC_L.Value & [Ô][ô], [ô][Ô] & Me.ComboBox3.Value & [Ô][ô], [ô][Ô] & Me.ComboBox4.Value & [Ô][ô], [ô][Ô] & Me.ComboBox5.Value & [Ô][ô], [ô][Ô] & Me.ComboBox6.Value & [Ô][ô], [ô][Ô] & Me.ComboBox2.Value & [Ô][ô], [ô][Ô] & TextBox3.Value & [Ô][ô], [ô][Ô] & TextBox4.Value & [Ô][ô], [ô][Ô] & TextBox25.Value & [Ô][ô], [ô][Ô] & Me.ComboBox9.Value & [Ô][ô], [ô][Ô] & TextBox26.Value & [Ô][ô], [ô][Ô] & TextBox27.Value & [Ô][ô], [ô][Ô] & TextBox28.Value & [Ô][ô], [ô][Ô] & TextBox29.Value & [Ô][ô], [ô][Ô] & TextBox32.Value & [Ô][ô], [ô][Ô] & TextBox33.Value & [Ô][ô], [ô][Ô] & TextBox31.Value & [Ô][ô], [ô][Ô] & TextBox30.Value & [Ô][ô], [ô][Ô] & TextBox34.Value & [Ô][ô], [ô][Ô] & TextBox6.Value & [Ô][ô], [ô][Ô] & TextBox7.Value & [Ô][ô], [ô][Ô] & TextBox8.Value & [Ô][ô], [ô][Ô] & TextBox11.Value & [Ô][ô], [ô][Ô] & TextBox12.Value & [Ô][ô], [ô][Ô] & TextBox9.Value & [Ô][ô], [ô][Ô] & TextBox13.Value & [Ô][ô], [ô][Ô] & TextBox14.Value & [Ô][ô], [ô][Ô] & TextBox15.Value & [Ô][ô], [ô][Ô] & TextBox16.Value & [Ô][ô], [ô][Ô] & TextBox24.Value & [Ô][ô],[Ô]
sql = sql & [Ô] [ô][Ô] & Me.ComboBox7.Value & [Ô][ô], [ô][Ô] & TextBox17.Value & [Ô][ô], [ô][Ô] & TextBox18.Value & [Ô][ô], [ô][Ô] & Me.ComboBox8.Value & [Ô][ô], [ô][Ô] & TextBox19.Value & [Ô][ô], [ô][Ô] & TextBox20.Value & [Ô][ô], [ô][Ô] & TextBox22.Value & [Ô][ô], [ô][Ô] & TextBox23.Value & [Ô][ô], [ô][Ô] & TextBox21.Value & [Ô][ô], [ô][Ô] & TextBox36.Value & [Ô][ô], [ô][Ô] & TextBox35.Value & [Ô][ô], [ô][Ô] & ATUAL.Value & [Ô][ô], [ô][Ô] & Me.ComboBox14.Value & [Ô][ô], [ô][Ô] & Me.ComboBox13.Value & [Ô][ô], [ô][Ô] & Me.ComboBox11.Value & [Ô][ô], [ô][Ô] & TextBox37.Value & [Ô][ô], [ô][Ô] & Me.ComboBox12.Value & [Ô][ô], [ô][Ô] & TextBox38.Value & [Ô][ô], [ô][Ô] & TextBox39.Value & [Ô][ô], [ô][Ô] & TextBox40.Value & [Ô][ô], [ô][Ô] & Me.ComboBox16.Value & [Ô][ô], [ô][Ô] & Me.ComboBox15.Value & [Ô][ô])[Ô]
rs.Open sql, cn, T_Homologação
cn.Close
Unload Me
Call Image4_Click
[txt-color=#0000f0]Agora imputa todas as informações no BD do Access.[/txt-color]
Obrigado a todos novamente!
Private Sub Image3_Click()
[ô] SALVAR FORM
[ô] CÓDIGO OK
UserForm1.Hide
Windows([Ô]TESTE_FORM.xlsm[Ô]).Activate
[ô]Declaração de variáveis
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim linha As Integer
[ô]Conexão com banco de dados
Set cn = New ADODB.Connection
[ô]cn.ConnectionString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\brsrvfs01\Operacoes\Motorola\PSC\PSC_DB.accdb[Ô]
cn.ConnectionString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\TESTE\PSC_DB.accdb[Ô]
cn.Open
[ô]Definição do recordset
Set rs = New ADODB.Recordset
[ô]comando sql
sql = sql & [Ô] INSERT INTO T_Homologação (ID, BackOffice, Tipo, TpProblem, Status, DescStatus, Canal, DtEntrada, Semana, DtEnvio, NomeSAM, OS, DtEnvioS, NomePC, OSPC, RNW, ETicket, ObjetoCAR, OSCAR, ObjetoCliente, NomeCliente, SobrenomeCli, CPF, Responsável, CPFResp, TelCtt, Endereco, Cidade, Estado, CEP, DetCaso, [Ô]
sql = sql & [Ô] Modelo, IMEI, MSN, Operadora, Revenda, NF, NomeNF, CPFNF, DtCompra, DtRetorno, Atualizacao, Atualizador, DescEncerramento, Satisfacao, Troca, NTroca, Restituicao, NRestituição, DtEncerramento, Tempo, Emprestimo, TratarCall)[Ô]
sql = sql & [Ô] Values ([ô][Ô] & TextBox5.Value & [Ô][ô], [ô][Ô] & BC_L.Value & [Ô][ô], [ô][Ô] & Me.ComboBox3.Value & [Ô][ô], [ô][Ô] & Me.ComboBox4.Value & [Ô][ô], [ô][Ô] & Me.ComboBox5.Value & [Ô][ô], [ô][Ô] & Me.ComboBox6.Value & [Ô][ô], [ô][Ô] & Me.ComboBox2.Value & [Ô][ô], [ô][Ô] & TextBox3.Value & [Ô][ô], [ô][Ô] & TextBox4.Value & [Ô][ô], [ô][Ô] & TextBox25.Value & [Ô][ô], [ô][Ô] & Me.ComboBox9.Value & [Ô][ô], [ô][Ô] & TextBox26.Value & [Ô][ô], [ô][Ô] & TextBox27.Value & [Ô][ô], [ô][Ô] & TextBox28.Value & [Ô][ô], [ô][Ô] & TextBox29.Value & [Ô][ô], [ô][Ô] & TextBox32.Value & [Ô][ô], [ô][Ô] & TextBox33.Value & [Ô][ô], [ô][Ô] & TextBox31.Value & [Ô][ô], [ô][Ô] & TextBox30.Value & [Ô][ô], [ô][Ô] & TextBox34.Value & [Ô][ô], [ô][Ô] & TextBox6.Value & [Ô][ô], [ô][Ô] & TextBox7.Value & [Ô][ô], [ô][Ô] & TextBox8.Value & [Ô][ô], [ô][Ô] & TextBox11.Value & [Ô][ô], [ô][Ô] & TextBox12.Value & [Ô][ô], [ô][Ô] & TextBox9.Value & [Ô][ô], [ô][Ô] & TextBox13.Value & [Ô][ô], [ô][Ô] & TextBox14.Value & [Ô][ô], [ô][Ô] & TextBox15.Value & [Ô][ô], [ô][Ô] & TextBox16.Value & [Ô][ô], [ô][Ô] & TextBox24.Value & [Ô][ô],[Ô]
sql = sql & [Ô] [ô][Ô] & Me.ComboBox7.Value & [Ô][ô], [ô][Ô] & TextBox17.Value & [Ô][ô], [ô][Ô] & TextBox18.Value & [Ô][ô], [ô][Ô] & Me.ComboBox8.Value & [Ô][ô], [ô][Ô] & TextBox19.Value & [Ô][ô], [ô][Ô] & TextBox20.Value & [Ô][ô], [ô][Ô] & TextBox22.Value & [Ô][ô], [ô][Ô] & TextBox23.Value & [Ô][ô], [ô][Ô] & TextBox21.Value & [Ô][ô], [ô][Ô] & TextBox36.Value & [Ô][ô], [ô][Ô] & TextBox35.Value & [Ô][ô], [ô][Ô] & ATUAL.Value & [Ô][ô], [ô][Ô] & Me.ComboBox14.Value & [Ô][ô], [ô][Ô] & Me.ComboBox13.Value & [Ô][ô], [ô][Ô] & Me.ComboBox11.Value & [Ô][ô], [ô][Ô] & TextBox37.Value & [Ô][ô], [ô][Ô] & Me.ComboBox12.Value & [Ô][ô], [ô][Ô] & TextBox38.Value & [Ô][ô], [ô][Ô] & TextBox39.Value & [Ô][ô], [ô][Ô] & TextBox40.Value & [Ô][ô], [ô][Ô] & Me.ComboBox16.Value & [Ô][ô], [ô][Ô] & Me.ComboBox15.Value & [Ô][ô])[Ô]
rs.Open sql, cn, T_Homologação
cn.Close
Unload Me
Call Image4_Click
[txt-color=#0000f0]Agora imputa todas as informações no BD do Access.[/txt-color]
Obrigado a todos novamente!
Tópico encerrado , respostas não são mais permitidas