error al buscar registros en acces

[rishart]

hola, alguien podria ayudarme con un problema que me surgio, la cuestion es que estoy usando sql y bases de datos en acces y al buscar un registro por medio de su llave este me aparece este error este

Run-Time error '94'
Invalid use of null

lo que pasa es que cuando se crea el registro solo se agrega el año y sus demas campos quedan vacios, para despues modificarlos o agregarles mas datos pero me marca ese erro.

porfavor alguien me puede ayudar
gracias..... saludos...

[ReViJa]

Deberías de poner como lo haces, no¿?

Saludos.

[rishart]

hola si perdon
aki dejo el codigo de como estoy haciendo para buscar en access el registro

vano:esta declarado con dim vano as string

vano = Trim(InputBox("AÑO: ", "PRODUCCION DE LECHE"))
Set rst = dbs.OpenRecordset("select * from leche2 where ano like '" & vano & "' order by ano")
If rst.RecordCount = 0 Then
MsgBox "Registro Inexistente", 48, "Mensaje de Error"
ElseIf rst.RecordCount = 1 Then
Text25.Text = rst.Fields("ano")
Label49.Caption = rst.Fields("fecha")
Text54.Text = rst.Fields("leche")
Text1.Text = rst.Fields("lechetotal")
Text85.Text = rst.Fields("monto")
Text11.Text = rst.Fields("montototal")
Text12.Text = rst.Fields("enero1")

ano esta declarado en la base de datos como texto
fecha como date
leche y lo demas igual esta declarado como numero

la cuestion es que al buscar por año como solo se creo con el registro año y los demas estan vacios para su resgitro despues entonces me marca el error que mencione antes y al darle debug marca con una linea amarilla el label49

ojala y me puedan ayudar gracias..... saludos

[alex_escudero14]

YO PIENSO QUE DEBERIAS HACER ESTO: agregarle un : & " "...es decir concatenar los resultados de tu recorset para q no te traiga nulos
ej:
Text25.Text = rst.Fields("ano") & " "
Label49.Caption = rst.Fields("fecha") & " "
Text54.Text = rst.Fields("leche") &" "
Text1.Text = rst.Fields("lechetotal") & " "
Text85.Text = rst.Fields("monto") &""
Text11.Text = rst.Fields("montototal") & ""
Text12.Text = rst.Fields("enero1") &""


espero q te ayude primo..si no me cuentas q paso

ahi nos vemos

[rishart]

Muchas, Muchisimas gracias alex_escudero14 si ese era el problema creo por que ya lo probe y si funciona a la perfeccion creo que era la concatenacion de verdad agradezco mucho tu ayuda, gracia, saludosss...

[alex_escudero14]

de nada viejo..en lo que puedo trato de ayudar ..asi como yo tbn soyayudado por esta maravilla q es la web y sobretodo los foros..a mi parecer es una gestion del conocimiento..suerte para tus proyectos


alex