Como usar a Função Seimed num formulário do Access

Como consigo fazer o seguinte num formulario do access:

tenho dois campos com formataçao de data/Hora, formatado para hora abreviada:
[horainicio] e [horatermino]

criei uma caixa de texto com mesmo formato como nome: [tempo utilizado]
nesta caixa de texto, usei a formula =[horatermina]-[horainicio]
calcula certinho, se for minutos, marca 00:xx, se for acima de 60 minutos marca 1:00, etc.
criei um rótulo para mostras as palavras minuto se for até 00:59 minutos e acima disso mostrar hora (nome do rótulo=Texto28)


=SeImed([Texto28]<=0,59;"MINUTO";"HORA")

nao deu certo e mesmo porque preciso que ele mostre da segunte forma:

se for 1, mostrar a palavra minuto, caso contratrio, mostrar a palavra minutos e acima de 59 minutos, mostrar 1 hora para 1 ou horas acima de 1 e como faço para que ele mostre as fraçoes, exemplo: 1:15 (uma hora e quinze minutos) ?

Nao consegui saber bem qual a forma que vc quer, mas faça assim:

No Evento apos atualizar do seu Campo HoraTermino coloque esse codigo (adaptando aos seus campos):

Código:


'DifHora é onde calcula a diferença de tempo
If Format([difhora], "hh:mm") >= "01:00" Then
'Muda o Texto do Rotulo para HORAS
Me!rt1.Caption = "Horas"

    Else
    'Muda para MINUTOS
    Me!rt1.Caption = "Minutos"
    
End If




difhora É o nome do campo que calcula a diferença das Horas...
rt1 é o nome do ROTULO que mudara de acordo com o resultado
Coloque o mesmo Codigo no evento do seu FOrmulario NO ATUAL, para que ao navegar entre os registros ele exibe o rotulo de acordo...

Prezado amigo Fabio,

nao sei se você entendeu.

onde vc pede para que deixar invisivel, não sao rotulos e sim campos, vou tentar expressar abaixo:

campos: hora inicio: [__:__] formato hora abreviada - exemplo de entrada de dados (10:00) dez horas
        hora termino: [__:__] formato hora abreviada - exemplo de entrada de dados (10:35) dez horas e trinta e cinco minutos


agora abaixo usei uma caixa de texto:

Tempo Utilizado....:=[hora termino-hora inicio], nesse exemplo ele aparece: [00:35] depois dessa caixa de texto que preciso de um rotulo para expressar o conteudo por extenso dela, que nesse exemplo deverá ficar assim:

Tempo Utilizado....: [00:35] [minutos], a palavra minutos ou hora ou horas se for mais de uma hora, preciso de um codigo ou rotina que me dê esse rotulo por extenso, especificando se é minuto, minutos, hora ou horas.


em tempo.....
tentei fazer a rotina, mas da dando erro e pede para depurar
vou enviar tela com o erro

Depois de Re-le sua duvida, eu entendi...

Mudei la a resposta antes de vc postar... Entao veja o exemplo

tela com o erro do depurador

obs: meu Access é 2007, o exemplo que vc enviou da tando erro em tempo de execução 13 - tipos incompativeis - fim ou depurar

Meu amigo, esse texto50 e um rotulo mesmo??? confirme.. na Duvida copie o que esta no BD de exemplo...

Rotulo:

o seu banco de dados que enviou como modelo tbm nao funciona no meu access 2007, apresenta mesmo erro, enviei acima o erro apresentado com o seu modelo.
com seu modelo, ao executar o formulario, abre uma janela com seguinte erro:

erro em tempo de execuçao '13':
tipos incompativeis

aparecem dois botoes: depurar ou fim

segue tela capturada com erro ao abrir depurador.

como você consegue criar um rotulo sem escrever nada nele? Se apenas criar sem colocar pelo menos um ponto, ao dar enter para criar ele desaparece.

O Rotulo esta la com apenas um .  , a questão e que a cor da letra eu coloquei uma que nao aparece... daee pelo VBA eu mudo o Texto do rotulo e a Cor da Letra.

Se vc quer colocar uma caixa de texto e nao um Rotulo, aee tem que mudar:

Me!rt1.Caption = "Horas"

Para

Me!rt1.Value= "Horas"