Problemas con tabla Acces

[[egostar]]

Y que se supone que haces con esto

Código Delphi [-]
 
   Numero:= ModuloDatos.TblComprobantes.FieldValues['Numero'];

No seria mejor omitir esa linea y hacer esto?

Código Delphi [-]
While Not ModuloDatos.TblSocios.EOF do begin
   Codigo:= ModuloDatos.TblSocios.FieldValues['Codigo'];
   Inc(Numero); //Incrementas el numero
   ModuloDatos.TblComprobantes.Append;
   ModuloDatos.TblComprobantes.FieldValues['Numero']:= Numero;
   ModuloDatos.TblComprobantes.FieldValues['Cod_socio']:= Codigo;
   ModuloDatos.TblComprobantes.FieldValues['Cod_periodo']:=Periodo;
   ModuloDatos.TblComprobantes.FieldValues['Importe']:=6.00;
   ModuloDatos.TblComprobantes.FieldValues['Fecha']:=Fecha;
   ModuloDatos.TblComprobantes.Post;
   Form17.ProgressBar1.StepIt; //Actualizo la barra de progreso.
   ModuloDatos.TblSocios.Next;
end;

Salud OS

[[Caral]]

Hola
Coloca la base de datos y el proyecto aqui y Bill Caral, hara el milagro.
Que mas quisiera Bill, ese solo VB y C#.
Saludos

[silviodp]

Hola disculpen que respondi tarde, pero no pude entrar al foro hoy. Voy a probar con lo que me sugirio egostar...
Caral no dudo que me podés ayudar si lo anterior no me funcina te paso bien la base y el proyecto, y con respecto al Bill...jajajaja tenés mucha razon...es solo VB...
Saludos gente!!!!

[silviodp]

Egostar probre con lo que vos me dijiste pero me da el mismo error:
"Project Project1.exe raised exception class EDataBaseError with message 'Field 'Numero' cannot be modified'...

[[egostar]]

oooh

Creo que todos no nos hemos percatado de un detalle

estas usando

Código Delphi [-]
 
ModuloDatos.TblComprobantes.FieldValues['Numero']:=Numero;

y deberias usar

Código Delphi [-]
 
ModuloDatos.TblComprobantes.FieldByName['Numero']:=Numero;

En todos los casos.

Salud OS.