Sobre DBCheckBox

[silviodp]

Probé como vos me indicaste anda pero el tema esta cuando quiero modificar un registro donde el componente DBCheckBox está tildado, me da error mi aplicacion y el compilador me señala el evento OnClick de éste componente.Es decir aca:

procedure TForm10.BajaClick(Sender: TObject);
begin
 If Form10.Baja.Checked=True Then
  begin
    Form10.Label10.Enabled:=True;
    Form10.DBEdit9.Enabled:=True;
    Form10.Label11.Enabled:=True;
    Form10.DBComboBox1.Enabled:=True;
  end
 Else
  If Form10.Baja.Checked=False Then
  begin
    Form10.Label10.Enabled:=False;
    Form10.DBEdit9.Enabled:=False;
    Form10.Label11.Enabled:=False;
    Form10.DBComboBox1.Enabled:=False;
  end;
end;

El boton Modificar ejecuta el siguiente procediemineto:

procedure TForm7.ModificarClick(Sender: TObject);
begin
 Form10:=TForm10.Create(Self);
 ModeloDatos.TblMueble.Edit;
end;

Gracias.

[marcoszorrilla]

Puedes decir exactamente que error te da?

Un Saludo.

[sanxpue]

Ups.. y mas Ups..

Para empezar

procedure TForm10.BajaClick(Sender: TObject);
begin
 If Form10.Baja.Checked=True Then
  begin
    Form10.Label10.Enabled:=True;
    Form10.DBEdit9.Enabled:=True;
    Form10.Label11.Enabled:=True;
    Form10.DBComboBox1.Enabled:=True;
  end
 Else
  If Form10.Baja.Checked=False Then
  begin
    Form10.Label10.Enabled:=False;
    Form10.DBEdit9.Enabled:=False;
    Form10.Label11.Enabled:=False;
    Form10.DBComboBox1.Enabled:=False;
  end;
end;

Puede quedar

procedure TForm10.BajaClick(Sender: TObject);
begin
  Label10.Enabled := Baja.Checked;
  DBEdit9.Enabled := Baja.Checked;
  Label11.Enabled := Baja.Checked;
  DBComboBox1.Enabled := Baja.Checked;
end;

y me imagino que ese codigo esta dentro de la Form10 ¡¡verdad¡¡

Ahora veo que aqui creas

procedure TForm7.ModificarClick(Sender: TObject);
begin
 Form10:=TForm10.Create(Self);
 ModeloDatos.TblMueble.Edit;
end;

Y despues que pasa ???
Adivina Adivinador..
Y seguimos pidiendo los cursos

[silviodp]

El error que me da es el siguiente:

"Acces violation at address 004D31F7 in module 'CSTOCK.EXE'. Read for address FFFFFFFF."

Eso cuando quiero modificar un registro que fue tildado.
Gracias.

Silvio.-

[marcoszorrilla]

procedure TForm7.ModificarClick(Sender: TObject);
begin
Form10:=TForm10.Create(Self);
ModeloDatos.TblMueble.Edit;
end;

....

procedure TForm7.ModificarClick(Sender: TObject);
begin
ModeloDatos.TblMueble.Edit;
Form10:=TForm10.Create(Self);
end;

Tienes que poner en edición los datos antes de llamar para hacer la modificación, lo que estás haciendo como ves es lo contrario.

Un Saludo.