Ver Mensaje Individual
  #6  
Antiguo 16-08-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Reputación: 25
egostar Va camino a la fama
Pero pensandolo bien mas bien debería ser así

Código Delphi [-]
procedure TFPedido.BitBtn1Click(Sender: TObject);
begin
If (DBEdit7.Text = '') OR
   (DBComboBox2.Text = '') OR
   (DBEdit13.Text = '')  OR 
   (DBLookUpComboBox5.Text = '') OR
   (DBLookUpComboBox6.Text = '') OR 
   (DBLookUpComboBox7.Text = '') OR 
   (DBLookUpComboBox8.Text = '') OR 
   (DBEdit14.Text = '') OR 
   (DBEdit15.Text = '') OR 
   (DBLookUpComboBox1.Text = '') then 
    MessageDlg('Hay Casillas sin Llenar Por Favor Llenarlo',mtError,[mbOK],0)
   begin
      TbPedido.Insert;
      MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
   end;
end;

Con una sola de las condiciones que se cumpla te debe dar el error.....

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita