[Resolvido]Campo com Valor em Percentagem

Boa tarde
tenho um formulário com um campo Chamado Acerto, formatado percentagem e zero casas decimais

Depois de o preencher acontece isto no ACCESS 2003

Private Sub Acerto_AfterUpdate()
Me.Acerto.Value = Me.Acerto.Value / 100
End Sub

Se escrever o valor " 10 " , acontece que o campo fica Assim " 10%"
Se escrever o valor " 25 " , acontece que o campo fica Assim " 25%"

No Access 2007 o mesmo campo fica "0%"

Agradeço

Tente tirar a fórmula, deixando os números apenas.

Assis

Tente isto no access 2003

Me.acerto.Value = Me.acerto.Value / 10000

Olá

Criquio a Sua ideia para o 2007 funciona, mas não funciona no 2003

E eu tenho clientes com o 2007 e com o 2003 da mesma base de Dados

Como terá de ser feito para que sirva nos dois sistemas ?

Obrigado

Assis tente o que lhe enviei agora, não experimentei no 2007???

Vieirasoft

A sua ideia Me.acerto.Value = Me.acerto.Value / 10000
No 2003 transforma 10 em 0%

Mas o que eu queria é que sirva para os dois Sistemas

Obrigado

significa que no 2007 não funciona dessa maneira. Mas acho estranho que isso aconteça, mais logo vou testar pois neste momento não tenho o 7 comigo.

What's fixed (old issues solved)


Several issues with existing versions of Access are solved in 2007:

Issue	Solution
Security dialogs	Every time you opened your database, Access 2003 tried to convince you that was a bad thing unless it was digitally signed. Access 2007 solves this by introducing Trusted Locations (Office Button | Access Options | Trust Center | Trust Center Settings.)
Mouse Wheel	Developers often coded to disable the mouse wheel so it would not scroll records in Form view. Access 2007 scrolls in Datasheet and Continuous view, but not form view. (Use the Mouse Wheel event if you want the old behavior.)
Email in Hyperlinks	Previous versions prefixed "http://" to all hyperlink fields. Access 2007 recognizes email addresses, and prepends "mailto:"
Percent format	If you type 5 into a field formatted as "Percent", Access 2007 understands it as 5%. Previous versions interpreted it as 500%. (This workaround is no longer required.)
Default Value (number fields)	You no longer have to remove that annoying zero Access used to assign to the Default Value property of every numeric field you created.
Reserved field names	Access 2007 recognizes the most common field names that cause problems (e.g. Name, Date, Month, and Year), and warns you (in table design.) It responds to only a very few reserved names, so you still need this utility or list.
Picture + Caption	Display both a Picture and a Caption on command buttons and tab controls (but not toggle buttons.)
Autofill (datasheets)	Previous versions attempted to guess the number you wanted when entering data in a datasheet. This annoying behavior has been removed.
Imports	Several issues solved, such as the ability to choose columns and specify data types when importing from Excel.
Internal margins	Scroll bars now work for controls with internal margins, and size-to-fit correctly. Controls now have padding as well as margins.
Filters	Several filter bugs fixed.
Decimal data type	Access can now sort Decimal fields correctly.
Queries survive if table gone	If a linked table is not present, Access 2007 opens the query in SQL View, leaving the query statement intact. (Previous versions opened in design view, removing the joins from the FROM clause.)

Provided by Allen Browne, May 2005. Last updated: April 2010.


Enter value as a percent


Note: In Access 2007 and later, if a field or control is formatted as Percent, the % is added automatically. This code is unnecessary (though it won't cause problems.)
When you set a field's Format property to "Percent" and enter 7, Access interprets it as 700%.
How do you get it to interpret it as 7% without having to type the percent sign for every entry?
Use the AfterUpdate event of the control to divide by 100.
But then if the user did type "7%", your code changes it to 0.07%.
We need to divide by 100 only if the user did not type the percent sign.
To do that, examine the Text property of the control.
Unlike the control's Value, the Text property is the text as you see it.
(In Access, unlike pure VB, the Text is available only for the control that has focus.)
Using the code


To save the function in your database:

1. Choose the Modules tab of the Database window.
   
2. Click New to open a module.
   
3. Copy the code below, and paste into your module.
   
4. Save the module with a name such as "Module1".
   

To apply to a text box named "Text23":

1. Open the form in design view.
   
2. Right-click the text box, and choose Properties.
   
3. Set the After Update property of the text box to:
   =MakePercent([Text23])
   

Public Function MakePercent(txt As TextBox)
On Error GoTo Err_Handler
'Purpose: Divide the value by 100 if no percent sign found.
'Usage: Set the After Update property of a text box named Text23 to:
' =MakePercent([Text23])

If Not IsNull(txt) Then
If InStr(txt.Text, "%") = 0 Then
txt = txt / 100
End If
End If

Exit_Handler:
Exit Function

Err_Handler:
If Err.Number <> 2185 Then 'No Text property unless control has focus.
MsgBox "Error " & Err.Number & " - " & Err.Description
End If
Resume Exit_Handler
End Function

Obrigado Ricardo, uma preciosa informação.

Você pode tambem tentar isso:

If Len(Dir("C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE)) = 0 Then
Me.Acerto.Value = Me.Acerto.Value / 100
Else
Me.Acerto.Value = Me.Acerto.Value
End If

Lembrando que para dar certo a função acima, o Office deve estar instalado na pasta padrão C:\Program Files\Microsoft Office\Office12\
Caso não esteja, e sendo todos os que tem o 2007 tenha o mesmo caminho, mude o referido caminho para o verdadeiro.

Amigos

O modulo do Ricardo funciona nos dois sistemas (2003 e 2007 )

só fiz uma alteração:

=MakePercent([TeuCampo])

Mudei para Call MakePercent([TeuCampo])
Obrigado pela ajuda