Problemas com inclusão de dados

[Fernandinha]

Olá pessoal, td bem com vocês???

Estou com um probleminha aqui de inclusão automática de dados em um formulário do VB6.

Os valores estão sendo guardados, porém não estão sendo inseridos.

Alguém poderia me dar uma dica por favor.

Segue abaixo código, o mesmo não apresenta erro algum na hora da execução.

frmCorrecaoCaso.chkApagarLog.value = 1

frmCorrecaoCaso.txtSolicitante.text = re_acesso

frmCorrecaoCaso.cboStatus.AddItem "CONCLUÍDO"

frmCorrecaoCaso.cboStatus.text = "CONCLUÍDO"

frmCorrecaoCaso.cboTipo.AddItem "PERFIL"

frmCorrecaoCaso.cboTipo.text = "PERFIL"

Desde já agradeço a ajuda.

Fernanda

[ToPronto N'Area]

Fernando em que momento você da o addnew e o update, ou você esta fazendo com inserto into?

Coloque a forma que você esta mandando salvar pra gente analisar!

Voce esta linkando as text e as combos no data ou no adodc?

Passa estas informações que fica mais facil ajudar

[Fernandinha]

Olá!

Então, eu não estou enviando os dados para o banco, isso ele faz depois com uma rotina pronta, eu só queria agora inserir os dados em um formulário acionando um botão que foi criado em outro formulário, mas as informações pré definidas na linha de código, não estão sendo inseridas no form que será alimentado.

[kuroi]

fernanda em q lugar você ta pondo esse codigo aqui??

frmCorrecaoCaso.chkApagarLog.value = 1

frmCorrecaoCaso.txtSolicitante.text = re_acesso

frmCorrecaoCaso.cboStatus.AddItem "CONCLUÍDO"

frmCorrecaoCaso.cboStatus.text = "CONCLUÍDO"

frmCorrecaoCaso.cboTipo.AddItem "PERFIL"

frmCorrecaoCaso.cboTipo.text = "PERFIL"

o form q você quer alterar ta aberto nessa hora?? ou você abre logo depois??

[Fernandinha]

Olá!!!

Eu abro o outro formulário e depois de aberto que eu coloco o código para inserir as informações.

Daí quando eu estou debugando o código, as informações aparecem certinho em cima da linha sabe, colocando o cursor do mouse, mas quando eu vou para o outro formulário, onde as informações deveriam ser inseridas, o mesmo fica vazio, não entendi porque acontece isso. =(

[kuroi]

mas então esse codigo ai. ele ta no form q chama ou no form q é aberto?? em q evento ele ta??

se tiver no form q chama, ponha esse codigo ai ANTES do .Show.

esse problema do debug tb acontece comigo, acho q tem a ver com o foco das janelas. como o programa para pra te mostrar a linha na hora de abrir o form e poe o foco na janela de codigo, você acaba tendo um resultado diferente do normal.

[Fernandinha]

Olá!!!

Agora está aparecendo um erro ao executar o código, segue o código completo abaixo e o erro também, se vocês puderem me dar um help eu agradeço. =D

Private Sub cmdRodarRoboNovo_Click()
On Error GoTo TRATA_ERRO

Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
Dim NumLinha As Long
NumLinha = 1

'Abrir o arquivo e as telas envolvidas
frmCorrecaoCasosConsulta.Show
Set xlw = xl.Workbooks.Open("c:\teste.xls")
xlw.Application.Visible = True
xlw.Sheets("Plan1").Select

Do While Range("Plan1!A" & NumLinha).value <> ""
    frmCorrecaoCasosConsulta!txtNumCaso = Cells(NumLinha, 1)
    Call frmCorrecaoCasosConsulta.buscarConsulta
    
'Alteração dos campos
    frmCorrecaoCaso.chkApagarLog.value = 1
    frmCorrecaoCaso.txtSolicitante.text = re_acesso
    frmCorrecaoCaso.cboStatus.AddItem "CONCLUÍDO"
    frmCorrecaoCaso.cboStatus.text = "CONCLUÍDO"
    frmCorrecaoCaso.cboTipo.AddItem "PERFIL"
    frmCorrecaoCaso.cboTipo.text = "PERFIL"
    frmCorrecaoCaso.txtJustificativa.text = "Corrigido"

'Salvar correção
    frmCorrecaoCaso.SalvarRoboCorrecaoMassiva
    NumLinha = NumLinha + 1
    DoEvents
Loop

'Fechar aquivo
MsgBox "Correção realizadas com sucesso!", vbInformation, "Atenção"
xlw.Close False

Exit Sub
TRATA_ERRO:
    MsgBox Err.Description
End Sub

Segue erro abaixo:

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

Editado Novembro 25, 2008 por kuroi
Adicionar tag CODE

[Fernandinha]

Só para completar, em uma outra situação eu fiz a mesma linha de raciocínio e deu certo, o formulário foi preenchido direitinho.

=(

[Jonathan Queiroz]

Tente postar o código completo... Fica mais fácil de descobrir o erro !

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

Isso ocorre porque a tabela chegou ao fim (não há mais registros para ver, é a mesma coisa de sua tabela ter 500 registros e buscar pelo 501 - ou registro -1 no caso de BOF)

Como está a sua consulta ??

Qualquer coisa,posta aí !

[kuroi]

é isso mesmo q o jonatahan falou. se não conseguir descobrir, tenta tirar provisoriamente a linha On Error GoTo TRATA_ERRO e ai quando der o erro ele vai mostrar qual é a linha q da o erro e ai você posta aqui pra gente.