Problemas con tabla Acces

[silviodp]

Hola, si es cierto estoy haciendo referencia a un Form en el cual estoy, lo hice sin darme cuenta..., perdón "Bill" Caral...jajajaja es un chiste!!!
Vamos a lo que interesa: si es cierto que debo querer hacer algo asi, pero no entiendo porque ya que mi tabla esta vacia, la verdad es que no me doy cuenta... Con un query como seria?, me darias un pequeño ejemplo??
Desde ya muchas gracias.

[[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.