Posteado por: marcos perezi | agosto 27, 2010

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

About these ads

Responses

  1. Hola amigo

    Me ha gustado mucho tu blog, me puedes pasar la base de datos que pones en el video, mi e-mail es josemarta2003@gmail.com

    Muchas gracias

  2. El archivo de Power Point, no existe, subelo de nuevo pleases.


Deja un comentario

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

Categorías

Seguir

Recibe cada nueva publicación en tu buzón de correo electrónico.

A %d blogueros les gusta esto: