[Resolvido]Calculadora de Fita

Alguem tem algum modelo de calculadora que possa postar...
ja vi um topico com esse titulo mas não tem o modelo postado...


grato

Bom dia

Bons calculos

http://dl.dropbox.com/u/8169944/Calculadora%20Fita.mdb

Valeu... obrigado ai... deu super certo...

Descupe-me... é que coloquei a calculadora no access 2010 e esta dando um erro ...


tem como postar uma feita no access 2010

Não tenho o 2010
Esperemos que alguem ajude....

bom dia washytonn, favor informe qual erro está acontecendo.

quando digito dois valores, dar um erro no modulo abaixo:

Private Sub HandleNumberClick(strNum As String)
Dim varCaption As Variant
Dim varLen As Variant

If LastInput <> csStateNums Then
lblReadOut.Caption = ""
DecimalFlag = False
End If

varCaption = lblReadOut.Caption
varLen = Len(varCaption)
lblReadOut.Caption = lblReadOut.Caption & strNum
If varLen > 0 And Left$(varCaption, 1) = "0" And InStr(varCaption, ".") = 0 Then
lblReadOut.Caption = Mid$(lblReadOut.Caption, 2)
End If
LastInput = csStateNums
End Sub

o erro que aparecer é exatamente nessa parte:


If varLen > 0 And Left$(varCaption, 1) = "0" And InStr(varCaption, ".") = 0 Then
lblReadOut.Caption = Mid$(lblReadOut.Caption, 2)

Testei o arquivo aqui e deu tudo certinho!

Veja se as referências estão como as mostradas abaixo:

cara onde ativo as referencias no access 2007 e no access 2010?

Abra a janela do VBA clique no Menu Ferramentas/Referências e se abrirá a caixa para seleção.

valeu... obrigado...

Resolveu? se sim favor marque o tópico como resolvido.

Abraços.

valeu