Fórum Controle de Cirurgia Médica #134584

Primeiro é interessante voce usar um BreakPoint e analisar cada linha. Segundo é ter certeza que a myTable2 está first, ou filtrada no seu quesito caso contrario, pode trazer resultados inconsistentes.   Tente usar Objetos DataWare do tipo TQuery, isso no futuro vai te trazer mais beneficios que usa-los do tipo TTable, em vista que o desempenho será muito melhor e nesse seu caso bastaria fazer uma Select passando como parametro o que voce nao quer que apareça, como data e hora já agendadas.   Mas primeiramente, usando da maneira em que está, sugiro dar um First antes de entrar no Loop e depois verificar linha a linha com um breakpoint.    

Amigo muito obrigado pela dica, sua informação foi essencial pra resolver o problema, taí a resposta, mais uma vez obrigado, abraço...


procedure TCir_agendada.DBComboBox2Exit(Sender: TObject);
begin
        MYQuery2.Close;
        MYQuery2.SQL.clear;
        MYQuery2.SQL.Add('SELECT ID_CIR, HORA, SALA FROM cir_marcada');
        MYQuery2.SQL.Add('WHERE id_cir =:ID AND HORA =:HORAD AND SALA =:SALAD');
        MYQuery2.Params[0].AsInteger:= strtoint(DBEdit11.text);
        MYQuery2.Params[1].DataType:=ftstring;
        MYQuery2.Params[1].AsString:=DBComboBox1.Text;
        MYQuery2.Params[2].DataType:=ftstring;
        MYQuery2.Params[2].AsString:=DBComboBox2.Text;

        MYQuery2.open;
        if (MYQuery2.RecordCount) = 1 then
          begin
            ShowMessage('A Hora: '+DBComboBox1.Text+' e a Sala: '+ DBComboBox2.Text+ 'já estão reservados');
            DBComboBox1.setfocus;
          end;
        if (MYQuery2.RecordCount) = 0 then
          begin
            DBedit1.SetFocus;
          Exit;
          end;
end;