Algo mas sobre ADOTable

[Ledian_Fdez]

Roman este codigo:

Código Delphi [-]
procedure TModelo1Form.RxSpeedButton8Click(Sender: TObject);
begin
 if not (DM.TblModelo1.State in dsEditModes) then
   begin
    Try
     Application.CreateForm(TAnalisisForm, AnalisisForm);
     AnalisisForm.ShowModal;
    Finally
     AnalisisForm.Free;
     AnalisisForm := nil;
    End
   end
 else ShowMessage('Debes guardar los datos primero');
end;

me genera el sgte error:
[Error] Modelo1.pas(127): Undeclared identifier: 'dsEditModes'


salu2
Ledian

[roman]

¿Y crees que poniéndome un signo de desaprobación es la mejor manera de pedir ayuda?

// Saludos

[Ledian_Fdez]

Lo siento. No entiendo lo que me quieres desir.

Salu2
Ledian

[[Caral]]

Hola
Vamos Roman, que se refiere al error, no te lo tomes personal.
Prueba asi:

Código Delphi [-]
procedure TModelo1Form.RxSpeedButton8Click(Sender: TObject);
begin
 If not (DM.TblModelo1.State = dsEdit) or (DM.TblModelo1.State = dsInsert) then
    begin
    Try
     Application.CreateForm(TAnalisisForm, AnalisisForm);
     AnalisisForm.ShowModal;
    Finally
     AnalisisForm.Free;
     AnalisisForm := nil;
    End
   end
 else ShowMessage('Debes guardar los datos primero');
end;

Saludos

[Ledian_Fdez]

Roman, Caral tiene razon, no me mal interprete. Me referia al ERROR.


Bueno volviendo al tema señores el error persiste. Tendré que agregar alguna use, o tendré alga mal escrito, por favor les agradesería que me ayudaran con esto.

Salu2
Ledian

[[Caral]]

Hola
Perdona pero no te puede salir el mismo error.
Cual error te da?.
Saludos

[Ledian_Fdez]

[Error] Modelo1.pas(115): Undeclared identifier: 'dsIsert'
[Error] Modelo1.pas(115): Undeclared identifier: 'dsEdit'