William
|
CRAVINHOS
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 09/10/2006 13:59 hs
cara, sei q deve ser a mesma coisa mas vc tentou text1 = empty text1 = rsTab.fields(7)
A maior dom dos humanos foi a habilidade de poder raciocinar e se guardar, mas a melhor dádiva foi aprender e ensinar!
|
|
|
|
|
|
|
|
Postada em 10/10/2006 07:36 hs
Olá, Ivo! Vamos lá mais uma vez! Teste o seguinte código: ------------------------------------------ ... On Error GoTo CorrigeErro Text1.Text = rsTab.fields(7) Exit Sub CorrigeErro: ------------------------------------------ Seria ideal que você o colocasse no final da rotina, mas faça-o conforme sua necessidade. O código é deselegante, bem sabemos, mas deve funcionar. Teste e nos diga o resultado. Joseph Solvay Técnico em Informática, programador e futuro filósofo São Paulo/SP < jsff77@hotmail.com> |
|
|
|
|
|
Postada em 10/10/2006 11:32 hs
Willian, já testei tb o valor Empty, sem resultado. Joseph Testei sua rotina, mas o que acontece que é o EXIT SUB, termina a rotina. A tabela tem que ser atualizada no final da rotina, e o EXIT SUB encerra obrigatoriamente a rotina. Esse é o problema... |
|
|
|
|
|
Postada em 10/10/2006 11:55 hs
Olá, Ivo! O erro ainda acontece? Acho que não mais... Agora, se não encontrar uma solução mais adequada, basta adaptar o código dentro da sua rotina. Talvez devesse tentar... Estamos na luta! Bom, é isso. Joseph Solvay Técnico em Informática, programador e futuro filósofo São Paulo/SP < jsff77@hotmail.com> |
|
|
|
ED - Clarett
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/10/2006 07:36 hs
If Not IsNull(rsTab.fields(7)) Then text1.text = "" & rsTab.fields(7) Else |
|
|
|
ED - Clarett
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/10/2006 07:41 hs
correção... If Not IsNull(rsTab.fields(7)) Then text1.text = rsTab.fields(7) Else |
|
|
|
