Error en type conversion
 

Saludos Delphines, tengo un problema con mi codigo, es para buscar registros de un tabla, si funciona cuando estan todos los campos, pero si falta un campo me bota error en type de conversion:
****MENSAJE*****
Project Bitacora.exe raised exception class EvariantError with message 'Invalid variant type conversion'.
Process stopped. Use Step or Run to continue

Este es mi codigo:
procedure TForm3.Edit3KeyPress(Sender: TObject; var Key: Char);
var
k,c:integer;
m:string;
begin
if key=#13 then
begin
table1.Refresh;
k:=0;
table1.Last;
while not table1.Bof do
begin
if edit3.Text = table1['Cod_modelo_impre'] then
begin
k:=1;
edit1.Text := table1['Cod_modelo_impre'];
edit4.Text := table1['Cod_marca_impre'];
edit2.Text := table1['Modelo_impre'];
edit5.Text := table1['serie_impre'];
break;
end
else
table1.Prior;
end;

El sistema es Delphi 6 con access 2007, cuando usa la base de datos Paradox no me salia este error. Gracias de antemano por cualquier ayuda.

Si falta un campo, supongo entonces que se trata de un valor NULL. Al asignarlo a Edit.Text, se intenta realiza la conversión de NULL a String, pero, normalmente esto no es posible. Puedes remediarlo poniendo en false la variable global NullStrictConvert, para que el valor NULL se convierta en una cadena vacía. O bien, puedes usar table1.FieldByName(...).AsString para evitar el error.

// Saludos

hola roman, segui tu respuesta pero no logro ubicar el NullStrictConvert, nose donde ponerlo, enq ue lugar ¿?, es que soy novato. gracias.

En cualquier lugar que se ejecute antes de ese código. Puede ser, por ejemplo, en el evento OnCreate del formulario.

De todas formas, intenta lo otro que te dije. Siempre es más eficiente acceder a los campos con FieldByName que con un variant como lo es Table[...]

// Saludos

Gracias
 

hola Roman, ya me salio siempre use el fieldbyname, eres un tigre, saludos por allá, chauuuuu