[Resolvidos]Expressão-Operação de subtração com campos igual a zero utilizando selmed-if

Tenho uma consulta onde verifico o seguinte se o campo inicio for menor que eexpediente ai ele subtrai um campo menos o outro ou retorna "00:00:00", meu problema é o seguinte quando o campo inicio é igual "00:00:00" ele não pode subtrair os dois campos e é o que está acontecendo a expressão que estou usando é essa:

SeImed([qryteste].[inicio]<[eexpediente];Formato([eexpediente]-[qryteste].[inicio];"Hora abreviada");"00:00:00")

Oi;

Está em inglês, mas pode colocar lá que o access aceita e converte.

MeuResultado: IIf(TimeValue([inicio])<TimeValue([expediente]);Format([expediente]-[inicio];"hh:nn:ss");"00:00:00")

Não testei se o do Mario funciona, mas o correto são dois If`s dentro de um:

Seimed([qryteste].[inicio]=#0:00:00#;"00:00:00";Seimed([qryteste].[inicio]<[eexpediente];Formato([eexpediente]-[qryteste].[inicio];"hh:nn:ss");"00:00:00"))

Perfeito isso mesmo funcionou JPaulo, desculpe a incoviniência mais e neste caso abaixo como faço:

ExtraAl: SeImed(Formato([Retorno Almoço]-[Almoço];"Short Time")<[talm];[Retorno Almoço]-[Almoço]-[talm];"00:00")

o Problema é quando o resultado é igual a "00:00:00" ou seja ele é menor que o campo [talm] ai está contando como extra que não pode acontecer quando for igual a "00:00:00" teria que aparecer "00:00:00".
Fico no aguardo

Grande mestre JPaulo, é possível realizar está consulta, com os critérios que mencionei, tentei adaptar o código que vc me passou anteriormente, porém não consegui

Vou fazer o teste aqui e já lhe passo.

Teste se é assim que quer;

ExtraAl: Seimed([Almoço]=#0:00:00#;"00:00";Seimed(Formato([Retorno Almoço]-[Almoço];"00:00")<[talm];[Retorno Almoço]-[Almoço]-[talm];"00:00"))

Consegui resolvi assim;

ExtraAl: SeImed(Formato([Retorno Almoço]-[Almoço];"hh:nn:ss")=#00:00:00#;"00:00:00";SeImed([Retorno Almoço]-[Almoço]<[talm];Formato([retorno Almoço]-[Almoço]-[Talm];"hh:nn:ss");"00:00:00"))

Quem se esforça sempre alcança.

Parabens

Bom dia, Grande JPaulo, lembra sobre a consulta de referencia cruzada que vc fez, está funcionando perfeitamente inclusive tem um campo onde calculo se houve atraso de almoço que é o código abaixo que estou utilizando e que está funcionando:

ExtraAl: Seimed([Almoço]=#0:00:00#;"00:00";Seimed(Formato([Retorno Almoço]-[Almoço];"00:00")<[talm];[Retorno Almoço]-[Almoço]-[talm];"00:00"))

O problema é que caso em um determinado dia a pessoa só registre a opção de Almoço e não haja o retorno Almoço ai a consulta não consegue ser executada pois tenho está condição acima. Há alguma solução?

Ola bom dia amigo;

Será que funfa ?

ExtraAl: Seimed([Almoço]=#0:00:00#;"00:00";Seimed([Retorno Almoço]=#0:00:00#;"00:00";Seimed([Retorno Almoço] Is Null;"00:00";Seimed(Formato([Retorno Almoço]-[Almoço];"00:00")<[talm];[Retorno Almoço]-[Almoço]-[talm];"00:00"))))

Desculpa JPaulo passei a expressão errada a correta é essa:

ExtraAl: SeImed(Formato([Retorno Almoço]-[Almoço];"hh:nn:ss")=#00:00:00#;"00:00:00";SeImed([Retorno Almoço]-[Almoço]<[talm];Formato([retorno Almoço]-[Almoço]-[Talm];"hh:nn:ss");"00:00"))

O problema é, caso em um determinado dia não haja o tipo de marcação Retorno Almoço ex.: Haja somente:

Data Inicio Almoço
08/03/2010 07:00 11:00
ai que está neste dia não havendo retorno almoço a consulta não consigo executar

*
Nessa expressão não contempla a hora de Inicio, então não estou a ver qual o problema.

Se não existir hora de retorno de almoço é = 00:00

Teste assim;

ExtraAl: Seimed([Retorno Almoço]=#0:00:00#;"00:00:00";Seimed([Retorno Almoço] Is Null;"00:00:00";Seimed(Formato([Retorno Almoço]-[Almoço];"hh:nn:ss")=#0:00:00#;"00:00:00";Seimed([Retorno Almoço]-[Almoço]<[talm];Formato([retorno Almoço]-[Almoço]-[Talm];"hh:nn:ss");"00:00:00"))))

Ok, o exemplo que passei é só para demostrar as marcações realmente a hora inicio não tem nada haver com a expressão.

Essa consulta é aquela de referencia cruzada que vc fez pra mim um tempo atrás os lançamento são feitos na vertical e com a consulta vc os colocou na horizontal: ex. Tabela:

Data Entrada Tipo
08/03/2010 07:00 inicio
08/03/2010 11:00 almoço
08/03/2010 13:00 Retorno almoço
08/03/2010 18:00 fim de expediente

ai se em um determinado dia não houver a tipo retorno almoço se houver somente almoço não consigo executar a consulta pelo código que passei anteriomente.

Entendi;

O que você tem de fazer, é colocar o valor por defeito nos campos da tabela =00:00:00

Assim esses campos nunca estaram vazios.

Seria no campo valor padrão? no caso seria meu campo Entrada, onde são lançadas as horas.

Perfeito;

Teste e retorne;

Não funcionou, pois meu problema é quanto ao tipo da marcação.

é uma consulta de referencia cruzada os campos que estão envolvidos são:

data Entrada tipo

no campo tipo são inseridos: inicio, almoço, retorno almoço e fim de expediente

lembra desta consulta que vc fez pra mim?

então quando não tem em um determinado dia o tipo de marcação retorno almoço a consulta não é executada pois envolve o tipo de marcação retorno almoço, gostaria de saber se quando executar está consulta em um período ex.: 01/03/2010 a 31/03/2010 verificar se no campo tipo da tabela não houver os registros de retorno almoço ai ele colocar no campo tipo retorno almoço e entrada como 00:00 e colocar a Data.

Ex.: data Entrada tipo
08/03/2010 07:00 inicio
08/03/2010 11:00 almoço

após a consulta:

data Entrada tipo
08/03/2010 07:00 inicio
08/03/2010 11:00 almoço
08/03/2010 00:00 Retorno almoço

Coloque o banco ou parte dele em site publico para se ver isso;

Segue abaixo Link:

A consulta é qrytesteconsulta olhe no dia 09/03/2010 está sem retorno almoço

http://www.ziddu.com/download/9108474/SGPONTO.rar.html

Amigão já vi o seu problema, aliás é um problemão... Mas que você pode resolver sem grandes coisas.

No dia 09-03-2010 é um caso que nunca poderá acontecer, uma vez que se é falta, o código que faz o INSERT INTO das 5 linhas, essa do Retorno do Almoço também lá está.

Se ele Iniciar o dia:
O Almoço, o Retorno do Almoço e o fim do Expediente terá de ser introduzido SEMPRE.
Não vejo outras saídas para este caso.
Vi também que o seu código não está a funfar, porque o campo BARRAS é texto e não numero, terá de ser assim;

Private Sub Descrição_AfterUpdate()
If Me.Descrição.Value = "Falta" Then
CurrentDb.Execute "INSERT INTO [tbl_cadastro_horas_entrada] (Código, Barras, Hinicio, Data, Entrada, Tipo, Descrição) VALUES (" & Me.CÓDIGO & ", '" & Me.BARRAS & "', #" & Format(Me.Hinicio.Value, "hh:nn") & "#,#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Almoço', 'Falta');"
CurrentDb.Execute "INSERT INTO [tbl_cadastro_horas_entrada] (Código, Barras, Hinicio, Data, Entrada, Tipo, Descrição) VALUES (" & Me.CÓDIGO & ", '" & Me.BARRAS & "', #" & Format(Me.Hinicio.Value, "hh:nn") & "#,#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Retorno Almoço', 'Falta');"
CurrentDb.Execute "INSERT INTO [tbl_cadastro_horas_entrada] (Código, Barras, Hinicio, Data, Entrada, Tipo, Descrição) VALUES (" & Me.CÓDIGO & ", '" & Me.BARRAS & "', #" & Format(Me.Hinicio.Value, "hh:nn") & "#,#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Fim de expediente', 'Falta');"
MsgBox "INCLUSÃO REALIZADA COM SUCESSO", vbInformation + vbOKOnly, "SGPONTO...!"
End If
If Me.Descrição.Value = "Justificado" Then
CurrentDb.Execute "INSERT INTO [tbl_cadastro_horas_entrada] (Código, Barras, Hinicio, Data, Entrada, Tipo, Descrição) VALUES (" & Me.CÓDIGO & ", '" & Me.BARRAS & "', #" & Format(Me.Hinicio.Value, "hh:nn") & "#,#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Almoço', 'Justificado');"
CurrentDb.Execute "INSERT INTO [tbl_cadastro_horas_entrada] (Código, Barras, Hinicio, Data, Entrada, Tipo, Descrição) VALUES (" & Me.CÓDIGO & ", '" & Me.BARRAS & "', #" & Format(Me.Hinicio.Value, "hh:nn") & "#,#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Retorno Almoço', 'Justificado');"
CurrentDb.Execute "INSERT INTO [tbl_cadastro_horas_entrada] (Código, Barras, Hinicio, Data, Entrada, Tipo, Descrição) VALUES (" & Me.CÓDIGO & ", '" & Me.BARRAS & "', #" & Format(Me.Hinicio.Value, "hh:nn") & "#,#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Fim de expediente', 'Justificado');"
MsgBox "INCLUSÃO REALIZADA COM SUCESSO", vbInformation + vbOKOnly, "SGPONTO...!"
End If
Exit Sub
End Sub