Run time-error 94 - Invalid use of null

[Anjos1981 0]

Olá pessoal to tendo dor de cabeça pra executar uma rotina:

 

estou fazendo um sistema para correção de nomes, usando o banco de dados access.

 

quando executa a rotina aparece o erro: uso invalido do null, é estranho pois não tem valores nulos e coloquei a roitna pra evitar isso e mesmo assim aparece o erro, alguem pode me ajudar?

 

o código abaixo:

 

rs.Open "SELECT TOP 1 " & main.txtid.Text & " FROM [" & main.Combo1.Text & "] ORDER BY " & main.txtid.Text & " ASC", frmmain.conex, , adLockOptimistic

txtmintd = 0 & ""

rs.Close

rs.Open "SELECT TOP 1 " & main.txtid.Text & " FROM [" & main.Combo1.Text & "] ORDER BY " & main.txtid.Text & " DESC", frmmain.conex, , adLockOptimistic

txtmaxtd = rs("ID") & ""

rs.Close

 

onde:

txtmintx, é o primeiro registro da tabela

txtmaxtd é o ultimo registro da tabela

[LCS 0]

Olá pessoal to tendo dor de cabeça pra executar uma rotina:

 

estou fazendo um sistema para correção de nomes, usando o banco de dados access.

 

quando executa a rotina aparece o erro: uso invalido do null, é estranho pois não tem valores nulos e coloquei a roitna pra evitar isso e mesmo assim aparece o erro, alguem pode me ajudar?

 

o código abaixo:

 

rs.Open "SELECT TOP 1 " & main.txtid.Text & " FROM [" & main.Combo1.Text & "] ORDER BY " & main.txtid.Text & " ASC", frmmain.conex, , adLockOptimistic

txtmintd = 0 & ""

rs.Close

rs.Open "SELECT TOP 1 " & main.txtid.Text & " FROM [" & main.Combo1.Text & "] ORDER BY " & main.txtid.Text & " DESC", frmmain.conex, , adLockOptimistic

txtmaxtd = rs("ID") & ""

rs.Close

 

onde:

txtmintx, é o primeiro registro da tabela

txtmaxtd é o ultimo registro da tabela

 

se eu entendi bem.. você esta inserindo dados no seu banco e quer ter certeza que o usuario não ira cadastrar nada vazio.é isso?

 

se for, você pode usar um if simples, falando para o sistema antes da inserção no banco que o sistema não aceita campos em branco fazendo assim

 

if campo1 ='' then

 

msgbox ' não pode ser nulo'

exit sub

end if

 

pra fazer um select na tabela e puxar todos os registros você so precisa fazer o seguinte.

 

do while rs.eof = true

exiba os registros..

 

loop

[Claudio Neto 3]

Se for o que o LCS disse, espero que tenha resolvido seu caso.

 

Se não for, não entendi onde está ocorrendo o erro. Qual é a linha?

 

Mas o que você pode fazer para testar se está voltando null mesmo no campo que quer, execute esse mesma query diretamente no access e veja o resultado.