[Resolvido]Mudar de singular para plural

Olá pessoal!

Estou precisando de ajuda novamente. Se puderem me ajudar a minha duvida é a seguinte:

Preciso que um rotulo informe uma frase no singular e no plural dependendo do valor que uma caixa de texto conter.

Por exemplo:

Eu tenho num formulario uma caixa de texto que conta os itens de um subformulario. Sendo assim, num determinado rotulo eu queria que, se o valor da caixa for igual a "1" que o rotulo informe "Item" e se o valor da caixa for maior que "1" que o rotulo informe "Itens".

Desde ja obrigado!

Criquio,

aonde eu insiro esse código? Em qual evento?

Eu fiz o seguinte:

Criei aq função abaixo:

Function fncPlural() As Boolean
Dim VarSing As String
If Me.txtTotal > 1 Then
VarSing = "itens"
Else
VarSing = "item"
End If
Me.Label6 = "Total de" & VarSing & "vendidos."
End Function

e no evento "Ao abrir" eu inseri:

Call fncPlural

Esta errado?

Basta colocar no evento ao carregar do seu formulario.

Private Sub Form_Load()
Dim VarSing As String
If Me.txtTotal.Value > 1 Then
VarSing = "itens"
Else
VarSing = "item"
End If
Me.Label6.Caption = "Total de " & VarSing & " vendidos."
End Sub

Amigos,

obrigado pela atenção!

JPaulo,
fiz como voce sugeriu e só funcionou para o singular, quando o valor da caixa é >= 2 nao muda para o plural.

Tem alguma configuraçao que eu preciso fazer na caixa ou no rotulo?

No evento ao carregar tambem nao funcionou.
Continua só no singular.

Uma observação:

No evento ao carregar do formulario eu ja tinha outro codigo. Pode ser esse o problema?

Em que momento você precisa dessa exibição?

Negativo.

Deixe ficar nesse evento e copie tambem para o Currente; (tem de ficar nos dois eventos).

Private Sub Form_Current()
Dim VarSing As String
If Me.txtTotal.Value > 1 Then
VarSing = "itens"
Else
VarSing = "item"
End If
Me.Label6.Caption = "Total de " & VarSing & " vendidos."
End Sub

Não se esqueça do Caption.

Não me esqueci do Caption

Coloquei o codigo nos dois eventos, mas o resultado continua o mesmo, só singular.

Por um acaso estaria usando isso em um formulário contínuo?

Não Criquio,

o formulario nao é continuo.

Existe um subformulario (continuo) dentro do formulario, mas a caixa e o rotulo nao estão no subform. Apenas o valor da caixa eu busco no subform.

Coloque aqui uma cópia do aplicativo para a gente dar uma olhada ou envie para ccsregistros@gmail.com. Veja dicas na minha assinatura ali embaixo ↓↓↓

Criquio,

o projeto que eu to adaptando esse codigo é muito grande para hospedar, mesmo seguindo as suas dicas, pois, ele tem muitas imagens vinculadas. Sendo assim, vou adaptar esse codigo em um projeto semelhante, porém menor, e hospedo aqui mesmo.

Hospedar por favor no Repositório de exemplos. Se entretanto acabou o tópico por favor não esqueça o Resolvido. Muito obrigado

Não Vieira, ainda não está resolvido. É por isso que o amigo vai postar a cópia, para que possamos analisar aonde está faltando para funcionar

Amigo, você pode retirar as imagens e tudo mais que não for necessário. Basta ter apenas o formulário com subform e tabelas com um ou dois registros apenas.

Quero agradecer o esforço de todos para encontrar uma solução.
Criqui, nao to conseguindo postar o arquivo. Compactei com o zip e ficou com 200 KB mas esta acusando que o arquivo e invalido e que o tamanho foi ultrapassado.
Se nao for pedir demais, teria algum email que eu possa envia-lo?

Abraço!

Desculpe, nao tinha prestado atenção.

Enviei para: ccsregistros@gmail.com

Ainda não chegou aqui. Aguardando.

Enviei novamente no mesmo endereço.

Qual é o formulário?

Eu compactei uma pasta com o back-end e o front end. O nome da pasta é Agenda.

Sim, mas qual é o nome do formulário aonde se encontra essa função que você precisa? Se disser qual é, será mais rápdio encontrar do que procurar um a um. Enquanto tu responder vou adiantando outros afazeres que tenho aqui.

Não tinha entendido...
O nome do formulario é "frmAniverDia".

O que se passa é o seguinte: como o seu campo está pegando a quantidade vindo de outro campo do subformulário e esse campo do subformulário conta a quantidade após o formulário ser aberto, esse campo do primeiro formulário retorna zero, pois ao abrir o formulário ainda não deu tempo de fazer a contagem. Vamos pegar essa quantidade direto da consulta:

If DCount("*", "qryAlerta") > 1 Then
VarSing = "Aniversariantes de Hoje"
Else
VarSing = "Aniversariante de Hoje"
End If

Me.Label6.Caption = VarSing

Criquio,

muito obrigado!

Funcionou perfeitamente. Como eu imaginei.

Abraço a todos!

Valeu pelo retorno. Essa é a vantagem de ser ver a coisa "in loco", pois existem vários fatores que podem influenciar no resultado