Sistema de facturacion en access

Hace ya un tiempo publique este video en youtube, como una de mis practicas, agradezco a las personas que me envian correo, y los leo despues de un tiempo,  por este motivo les comparto el ppt original de mismo, para su ilustracion, ya que el video esta un poco borroso.

Descarga el ejemplo

Espero sea de utilidad para vuestro proposito

facturacion.ppt

El codigo del modulo:

Option Compare Database
Public Function SoloNumeros(ByVal KeyAscii As Integer) As Integer
If InStr(«0123456789», Chr(KeyAscii)) = 0 Then
SoloNumeros = 0
Else
SoloNumeros = KeyAscii
End If
If KeyAscii = 8 Then SoloNumeros = KeyAscii
If KeyAscii = 13 Then SoloNumeros = KeyAscii
End Function
Public Function Solodecimales(ByVal KeyAscii As Integer) As Integer
If InStr(«0123456789.», Chr(KeyAscii)) = 0 Then
Solodecimales = 0
Else
Solodecimales = KeyAscii
End If
If KeyAscii = 8 Then Solodecimales = KeyAscii
If KeyAscii = 13 Then Solodecimales = KeyAscii
End Function
Public Function SoloLetras(ByVal KeyAscii As Integer) As Integer
SoloLetras = Asc(UCase(Chr(KeyAscii)))
End Function
Public Function Redondear(dblnToR As Double, Optional intCntDec As Integer) As Double
Dim dblPot As Double
Dim dblF As Double
If dblnToR < 0 Then dblF = -0.5 Else: dblF = 0.5
dblPot = 10 ^ intCntDec
Redondear = Fix(dblnToR * dblPot * (1 + 1E-16) + dblF) / dblPot
End Function