Hola, este es el código de un botón "aceptar". Es un pequeño formulario donde hay 2 DBEdits, el tema es que quiero que si los dos han sido rellenados inserte el nuevo registro pero si uno de los dos está vacio aparezca un mensaje de advertencia pero sin grabar el dato que si que está. Utilizo un "if" donde si los dos son "<>" de vacio inserte el registro pero cuando solo relleno uno no entre en el with y por lo tanto no grabe nada, sin embargo aunque sólo rellene uno de los dos me entra en el with modificando el registro. Os dejo el código a ver si veis el fallo, yo me he encabezonado y no lo veo...
Código Delphi
[-]
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
If ((DBEdit1.text <> '') and (DBEdit2.text <> '')) then
begin
With DataModule7.Table1 Do
Begin
Try
Insert;
Post;
Except
Application.MessageBox ('El nombre introducido no es correcto'+chr(13)+
'El nombre esta repetido, prueba con otro',
'Insertar registro',
Mb_Ok+Mb_IconStop);
Cancel;
Insert;
End;
End;
end
else
ShowMessage ('¡Debe rellenar todos los campos!')
end;
end.
aleee