Mensajes

La que yo siempre utilizo es esta funcion

Código [Seleccionar] Expandir


Private Function Valor10(Tecla As Integer) As Integer
Dim StrValido As String
StrValido = "1234567890."
    If Tecla > 26 Then
        If InStr(StrValido, Chr(Tecla)) = 0 Then
            Tecla = 0
        End If
    End If
    Valor10 = Tecla
End Function



Y en el evento keypress del text la llamo

Código [Seleccionar] Expandir


Private Sub txtCantidad_KeyPress(KeyAscii As Integer)
    Call Valor10(KeyAscii)
End Sub


siempre me ha funcionado bien

Saludos...

Como dice seba te funciona bien pero seria importante generar el numero de la factura cuando se balla a salvar la transaccion porque si bas atrabajar en entorno de red seria lo mas conveniente

Código [Seleccionar] Expandir



factura_articulo.Recordset.MoveLast
txtnfactura.Text = Val(factura_articulo("nº_factura")) + 1



Chekea en esta Pagina

esa libreria es muy buena pero tiene el problema que si lo vas a usar en una pc donde no tengas el vb instalado debes instalar un pache para arreglarlo que tambien tiene el mismo nombre: form2, creo que es por inconbatibilidad de idiomas.

Saludos..

Ola ct hay te dejo un Ejemplo simple de trabajar con ados de dos maneras que utilice en una pequeña clase que imparti de Vb6 para un politecnico, tambiem te dejo varios Ocx que se necesitan para correr el programa que siempro uso en mis aplicaciones que se llaman component One o algo asi. TAmbien una pequeña DataBase para el ejemplo.

Ah y otra cosa el ejemplo esta con cristal report 10 si no te lo encuentras bien con ese puedes aserlo con los reportes internos de Vb osea el data report en el foro hay una post fijo que te ayudaria si es y los reportes externos de cristal tambien estan juntos. cualquier cosa solo postea.

Descargar Ejamplo ConnectionAdo.rar
Saludos...
Talves te ayude en algo

hey jack06  esta muy bueno el code y los aspectos graficos que usaste una preguntita puedo usar algunos graficos de eso para un memoryce flash que hice hace mucho para un colegio de que estaba diseñando algunos juegos interactivos y educativos para niños hace un poco de tiempo y hasi actualizo la imagen de mi proyecto claro y estara sus firmas.

Mi proyecto contemplaba algunas cosas mas pero en definitiva era la misma idea 

Si te creas una consulta Sql te saldria mas facil evaluar la condicion y menos codigos diria yo sin necesidad de Bucles
Fijate:

Creas un Ado asi lo aria yo

Código [Seleccionar] Expandir



AdoHorarioEntrada.RecordSource = "SELECT * FROM horario_entrada WHERE nº_empleado = '" & (txtnempleado.Text) + "'"
AdoHorarioEntrada.Refresh

If AdoHorarioEntrada.Recordset.RecordCount = 0 Then   ' Si la consulta es igual k cero quiere decir que no tiene registro en esa tabla

   Aky puedes Grabar los Datos en la tabla
else
  MsgBox "horario entrada existente"
End If



Asi seria mas facil y mas rapido
Talves te ayude en algo..
Saludos...

Usa el DoEvents...

Saludos...

No lo creo porque siempre seria la llamada en dos lineas diferentes y por ende ejecutara una primero aunque sincronices dos timer, si el llama las funciones desde el bucle talves consiga lo que busca corrijanme si me equivoco.

Saludos....

Las puedes crear en Access y luego las exportas cuando desees a Sql
Una preguntita pork no instala el sql creo que Sql server 2000 lo puedes instalar sin ningun problema y lo puedes manejar con el mismo Access si quieres.