Não sei ainda o poruqe, coisa de Excel e VBA e MS, mas oao abrir o arquivo da mensagem "que não foi possivel carregar alguns objetos porque não estão disponiveis nesta máquina".
Mas olhando a rotina, eu acredito que o problema esteja no uso dos apostolos :
sql = sql & " WHERE ID_PROJETO = '" & ind & "'"
Experimente remove-los :
sql = sql & " WHERE ID_PROJETO = " & ind & ""
Outro ponto, é que na linha :
Numero0800.Text = banco.Fields(0)
Você está se referindo a primeira coluna, então se colocar para pesquisar 57 o retorno será o num 57.
EM tempo, como não consegui executar o arquivo, verifique tambem que tipo de dado está carregando na Variável :
ind = CInt(DemandaEscolhida), pois não encontrei este campo no formulário "EditarDemanda"
No teste que fiz, recriei um exemplo com o form acima, já que o mesmo tem somente um Controle Textbox com o nome "Numero0800".
Declarei a Variável DemandaEscolhida
Defini a mesma com o numero = 57
DemandaEscolhida = 57
mantive a linha :
ind = CInt(DemandaEscolhida)
e o retorno no controle "Numero0800" foi o numero 57, que é o que está pedindo na linha :
Numero0800.Text = banco.Fields(0)
Veja se é isto qq coisa retorne.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 26/05/2013 5:48 pm