Search options

Dmitry
Hello,
no, sorry to respond so late!
what I want is simple:

first example
as object "colors"
multiple choice: red, yellow, green, blue
I can choose:
1- just "red"
2- red, yellow, green
3-red, blue
4-or all colors

second example:
I can choose just one, from the four choices
thks

Hello Dmitriy,
I received your email
thanks for the prompt reply as always

Hello Dmitriy
I receive your email.
many thanks

Hello
I tried to use your script in the example real estate but it did not work .... what did I do wrong? could help me understand the script
thanks
________

function CheckDublicate (Action, sTable, sField, sValue: string; id: integer;): boolean;
var
   s: string;
begin
     result := False;
     if Action = 'NewRecord' then
     begin
          s := SQLExecute ('SELECT Count(*) FROM '+sTable+' WHERE '+sField+' LIKE "' + sValue + '"');
          if StrToInt(s) > 0 then result := True;
     end;

     if Action = 'ShowRecord' then
     begin
          s := SQLExecute ('SELECT Count(*) FROM '+sTable+' WHERE ('+sField+' LIKE "' + sValue + '") AND (id <> '+ IntToStr(id) +')');
          if StrToInt(s) > 0 then result := True;
     end;
end;

procedure frmRealestate_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
     if CheckDublicate(frmRealestate.dbAction, 'realestate', 'lastname', frmRealestate.edLastName.Text, frmRealestate.ButtonSave.dbGeneralTableId) AND
        CheckDublicate(frmRealestate.dbAction, 'realestate', 'firstname', frmRealestate.edFirstName.Text, frmRealestate.ButtonSave.dbGeneralTableId) then
     begin
          ShowMessage('Person already exists.');
          Cancel := True;
     end;
end;

begin

end.

I tried but it seems not work in version 1.44

thanks yann.yvinec