Problema de código

[lucasarts_18]

Hola:

Prueba así:

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.

Tenías unos parentesis demás..

[Mathom]

Ante todo, gracias. La solción que me da LucasArt ya la he probado y no funciona correctamente (al menos como yo quería). Ahora probaré lo vtdeleon a ver que tal....

[lucasarts_18]

Hola.

Seguro debe ser un espacio que te queda en blanco, en ese sentido lo de VTDELEON debería funcionar, aún así yo te recomiendo que no uses de esa forma los parentesis, de hecho nunca he visto de esa forma la sentencia.

Hasta Luego -

[Mathom]

No es lo normal. Me refiero a utilzar así los parentesis, lo que pasa es que como no me funcionaba como yo esperaba he empezado a hacer pruebas por si era algo de los parentesis. Lo normal es que los ponga:

if (DBEdit1.text = ' ') and (DBEdit2.text = ' ' ) then

aún no he probado lo de trim. Tengo tres frentes abiertos ahora con la aplicación.. en cuanto lo pruebe os comento como he quedado.

gracias a los dos.

[Mathom]

Bien, he probado tanto el que me ha dicho vtdeleon

If ((trim(DBEdit1.text) <> '') and (trim(DBEdit2.text) <> '')) then

...como...

If((trim(DBEdit1.text) <> '') and (trim(DBEdit2.text) <> '') then

...el resultado sigue siendo el mismo..me sigue entrando dentro del with de todos modos...

[roman]

Para empezar, pon un punto de corte en la línea que sigue al condicional y examina el valor de DBEdit1.Text y DBEdit2.Text. Muy posiblemente observes que sí tienen algún dato.

Por otra parte te comento que lo que haces es muy, pero muy raro y da pie a pensar que el error viene de otro lado.

¿Qué hace un Insert dentro del with? Eso va a provocar que el registro actual, el que estás comparando con los DBEdits, se guarde en la base y se inserte uno más en blanco. El post que le sigue guardará entonces tal registro en blanco.

Si lo que quieres es validar que ambos campos estén llenos tienes dos opciones. Una es asignar el evento OnValidate a cada campo y verificar que no esté vacío. Esta a mi no me gusta porque impide que el usuario pueda moverse de campos hasta no llenar uno.

La otra opción es usar el evento BeforePost del Table asociado y ahí checar que los campos se hayan llenado.

// Saludos

[[maeyanes]]

Trata con:

Código Delphi [-]
if not DBEdit1.Field.IsNull and not DBEdit2.Field.IsNull then
begin
  //...

otra forma podría ser:

Código Delphi [-]
if (DBEdit1.Field.AsString <> '') and (DBEdit2.Field.AsString <> '') then
begin
  //...

Saludos...

[lucasarts_18]

Empezado por maeyanes

otra forma podría ser:

Código Delphi [-]
   if (DBEdit1.Field.AsString <> '') and (DBEdit2.Field.AsString <> '') then
   begin
     //...

Esta última tengo mis dudas, de esa forma pienso yo (no estoy seguro) que solo sirve cuando traes valores desde la base de datos, en este caso los datos se están ingresando por lo tanto que valor tendrá Field.asString ??

Hasta Luego -