Bueno este tema va para saber que deseos tienen para el próximo año que se acerca, cosas como que tecnología, le gustaría tener, novia, trabajos, lo que sea...
No se que se sho!
Mi deseo seria que se aprenda a valorar mas los recursos naturales, que cambiemos nuestra manera de pensar y empecemos cuidar lo que tenemos antes de que sea demasiado tarde, no por nosotros, por que sho ya tengo 20 años, sino que por nuestros hijos. Y ser feliz con la persona que amo.
Ayer cumplí 3 años del registro en el foro... Que rápido paso el tiempo, últimamente me he alegado un poco por que no me dan los tiempos pero siempre le pego una visita así no entre a la cuenta...
Bueno me gustaría saber cuando llevan de usuarios.... xD
Tengo un monitor samsuns syncmaster 3, medio viejooo!! pero resulta que la imagen es mas grande que el monitor.. y el boton esta roto... no se que hacer,,,
Hola amigos, perdonen esto creo que va en software, da igual..
Ando necesitando un programa para dictarle a la pc, osea los programas de text.. Algo haci como la aplicación de vista, que le decis, "inicio" y abre el enicio pero lo quiero para escribir...
Bueno les cuento me he puesto de novio xD! más alla de eso, a mi no me gusta la rutina para nada... Y algo que se vé muy seguido es el la combersaciones por cel y msj..
Ella: hola como estas? nos vemos hoy? El: bien, vos? bueno en donde? Ella:donde kieras... El: nose deci vos!! dale! Ella: bueno a donde vamos siempre.
Otra...
Ella: hola te extraño!! El: que bueno hace dos dias que no nos vemos! Ella: pero que tiene no te puedo extrañar? El: si yo tambien (ella le gana por cansancio) El: venite a tomar mates! Ella: a tu casa? El: si que tiene? estoy solo por el momento! Ella: oks esperame!
Otra
El: ok nos vemos a las 10. Ella: ok nos vemos--- Ella: 10 minutos despues, voy a ir a las 11... El: oks te espero! Ella: LLega dos horas terde pidiendo que la entiendas!
Creo que esas son las situaciones mas comunes que se pueden dar en una pareja! a mi me paso todas jeje..
Hola amigos, aca les dejo una aplicacion muy falcil (expertos es para los que recien empiesan en esto) aclarado eso pueden dejar cuanquier comentario...
Código:
Dim a As Byte 'Declara una bariable general
Private Sub Command1_Click() Data1.Recordset.AddNew 'Permite crear un nuevo registro Command2.Enabled = True 'Habilita el boton 2 Command10.Enabled = True 'Habilita el boton 10 Text1.Enabled = True 'Habilita el text1 Text2.Enabled = True 'Habilita el text2 Text3.Enabled = True 'Habilita el text3 Text4.Enabled = True 'Habilita el text4 Text5.Enabled = True 'Habilita el text5 Command1.Enabled = False 'Desabilita el boton 1 Command3.Enabled = False 'Desabilita el boton 3 Command4.Enabled = False 'Desabilita el boton 4 Text1.SetFocus 'Toma como foco el text1 End Sub
Private Sub Command12_Click() Data2.Recordset.AddNew 'Crea una lista de impresion de articulos nueva Label9 = Date 'Muestra la fecha en el label 9 Text9 = "" 'vacia el text9 Text10 = "" 'vacia el text10 Text11 = "" 'vacia el text11 Text12 = "" 'vacia el text12 Text13 = "" 'vacia el text13 Text14 = "" 'vacia el text14 Text15 = "" 'vacia el text15 Text16 = "" 'vacia el text16 Text17 = "" 'vacia el text17 Text18 = "" 'vacia el text18 Text19 = "" 'vacia el text19 Text20 = "" 'vacia el text20 Label17 = "" 'vacia el label17 Label18 = "" 'vacia el label18 Label19 = "" 'vacia el label19 Label20 = "" 'vacia el label20 Label21 = "" 'vacia el label21 Label22 = "" 'vacia el label22 Label23 = "" 'vacia el label23 Label24 = "" 'vacia el label24 Label25 = "" 'vacia el label25 Label26 = "" 'vacia el label26 Label27 = "" 'vacia el label27 Label28 = "" 'vacia el label28 Label29 = "" 'vacia el label29 Label30 = "" 'vacia el label30 Label31 = "" 'vacia el label31 Label32 = "" 'vacia el label32 Label33 = "" 'vacia el label33 Label34 = "" 'vacia el label34 Label35 = "" 'vacia el label35 Label36 = "" 'vacia el label36 Label37 = "" 'vacia el label37 Label38 = "" 'vacia el label38 Label39 = "" 'vacia el label39 Label40 = "" 'vacia el label40 Label41 = "" 'vacia el label41 Label42 = "" 'vacia el label42 Label43 = "" 'vacia el label43 Label44 = "" 'vacia el label44 Label45 = "" 'vacia el label45 Label46 = "" 'vacia el label46 Label47 = "" 'vacia el label47 Label48 = "" 'vacia el label48 Label49 = "" 'vacia el label49 End Sub
Private Sub Command15_Click() Data2.Recordset.Update 'permite guardar nuevos datos en la base de datos End Sub
Private Sub Command17_Click() Form2.Show 'abre el form2 End Sub
Private Sub Command18_Click() Form3.Show 'abre el form3 End Sub
Private Sub Command17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command17.Width = 1500 Command17.Height = 400 End Sub
Private Sub Command18_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command18.Width = 1500 Command18.Height = 400 End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command2.Width = 1200 Command2.Height = 400 End Sub
Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command3.Width = 1200 Command3.Height = 400 End Sub
Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command4.Width = 1200 Command4.Height = 400 End Sub
Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command5.Width = 1200 Command5.Height = 400 End Sub
Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command6.Width = 1200 Command6.Height = 400 End Sub
Private Sub Command7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command7.Width = 1200 Command7.Height = 400 End Sub
Private Sub Command8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command8.Width = 1200 Command8.Height = 400 End Sub
Private Sub Command9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command9.Width = 1200 Command9.Height = 400 End Sub
Private Sub Command10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command10.Width = 1200 Command10.Height = 400 End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.Width = 1200 Command1.Height = 400 End Sub
Private Sub Command11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command11.Width = 2700 Command11.Height = 400 End Sub
Private Sub Command12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command12.Width = 1000 Command12.Height = 400 End Sub
Private Sub Command13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command13.Width = 1200 Command13.Height = 400 End Sub
Private Sub Command14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command14.Width = 1000 Command14.Height = 400 End Sub
Private Sub Command15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command15.Width = 1000 Command15.Height = 400 End Sub
Private Sub Command16_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command16.Width = 1000 Command16.Height = 400 End Sub
Private Sub Command10_Click() Data1.Recordset.CancelUpdate 'cancela un dato antes de ser cargado en la base de datos Command2.Enabled = True 'Habilita el boton 2 Command10.Enabled = True 'Habilita el boton 10 Text1.Enabled = True 'Habilita el text1 Text2.Enabled = True 'Habilita el text2 Text3.Enabled = True 'Habilita el text3 Text4.Enabled = True 'Habilita el text4 Text5.Enabled = True 'Habilita el text5 Command1.Enabled = False 'desabilita el boton 1 Command3.Enabled = False 'desabilita el boton3 Command4.Enabled = False 'desabilita el boton4 End Sub
Private Sub Command11_Click() CrystalReport1.Action = 1 'Muestra un informe prebio de imprecion End Sub
Private Sub Command13_Click() d = MsgBox("Salir?", vbYesNo) 'd toma el valor de un mesaje If d = vbYes Then End 'si de es verdadero sale de la aplicacion, si es falso no End Sub
Private Sub Command14_Click() On Error Resume Next 'En caso que alla un error que la aplicacion siga corriendo Dim cant1 As Single 'declara la bariable tipo numerico Dim cant2 As Single 'declara la bariable tipo numerico Dim cant3 As Single 'declara la bariable tipo numerico Dim cant4 As Single 'declara la bariable tipo numerico Dim cant5 As Single 'declara la bariable tipo numerico Dim cant6 As Single 'declara la bariable tipo numerico Dim cant7 As Single 'declara la bariable tipo numerico Dim cant8 As Single 'declara la bariable tipo numerico Dim cant9 As Single 'declara la bariable tipo numerico Dim cant10 As Single 'declara la bariable tipo numerico
Dim precio1 As Single 'declara la bariable tipo numerico Dim precio2 As Single 'declara la bariable tipo numerico Dim precio3 As Single 'declara la bariable tipo numerico Dim precio4 As Single 'declara la bariable tipo numerico Dim precio5 As Single 'declara la bariable tipo numerico Dim precio6 As Single 'declara la bariable tipo numerico Dim precio7 As Single 'declara la bariable tipo numerico Dim precio8 As Single 'declara la bariable tipo numerico Dim precio9 As Single 'declara la bariable tipo numerico Dim precio10 As Single 'declara la bariable tipo numerico
Dim total1 As Single 'declara la bariable tipo numerico Dim total2 As Single 'declara la bariable tipo numerico Dim total3 As Single 'declara la bariable tipo numerico Dim total4 As Single 'declara la bariable tipo numerico Dim total5 As Single 'declara la bariable tipo numerico Dim total6 As Single 'declara la bariable tipo numerico Dim total7 As Single 'declara la bariable tipo numerico Dim total8 As Single 'declara la bariable tipo numerico Dim total9 As Single 'declara la bariable tipo numerico Dim total10 As Single 'declara la bariable tipo numerico
Dim subtotal As Single 'declara la bariable tipo numerico Dim iva As Single 'declara la bariable tipo numerico Dim total As Single 'declara la bariable tipo numerico
cant1 = Text11 'la bariable cant1 toma el valor del text11 cant2 = Text12 'la bariable cant2 toma el valor del text12 cant3 = Text13 'la bariable cant3 toma el valor del text13 cant4 = Text14 'la bariable cant4 toma el valor del text14 cant5 = Text15 'la bariable cant5 toma el valor del text15 cant6 = Text16 'la bariable cant6 toma el valor del text16 cant7 = Text17 'la bariable cant7 toma el valor del text17 cant8 = Text18 'la bariable cant8 toma el valor del text18 cant9 = Text19 'la bariable cant9 toma el valor del text19 cant10 = Text20 'la bariable cant10 toma el valor del text20
precio1 = Label18 'la bariable precio1 toma el valor del label18 precio2 = Label21 'la bariable precio2 toma el valor del label21 precio3 = Label24 'la bariable precio3 toma el valor del label24 precio4 = Label27 'la bariable precio4 toma el valor del label27 precio5 = Label30 'la bariable precio5 toma el valor del label30 precio6 = Label33 'la bariable precio6 toma el valor del label33 precio7 = Label36 'la bariable precio7 toma el valor del label36 precio8 = Label39 'la bariable precio8 toma el valor del label39 precio9 = Label42 'la bariable precio9 toma el valor del label42 precio10 = Label45 'la bariable precio10 toma el valor del label45
total1 = cant1 * precio1 'la bariable total1 toma el balor de cant1 * precio1 total2 = cant2 * precio2 'la bariable total2 toma el balor de cant2 * precio2 total3 = cant3 * precio3 'la bariable total3 toma el balor de cant3 * precio3 total4 = cant4 * precio4 'la bariable total4 toma el balor de cant4 * precio4 total5 = cant5 * precio5 'la bariable total5 toma el balor de cant5 * precio5 total6 = cant6 * precio6 'la bariable total6 toma el balor de cant6 * precio6 total7 = cant7 * precio7 'la bariable total7 toma el balor de cant7 * precio7 total8 = cant8 * precio8 'la bariable total8 toma el balor de cant8 * precio8 total9 = cant9 * precio9 'la bariable total9 toma el balor de cant9 * precio9 total10 = cant10 * precio10 'la bariable total10 toma el balor de cant10 * precio10
subtotal = total1 + total2 + total3 + total4 + total5 + total6 + total7 + total8 + total9 + total10 'el subtotal es igual a la suma de todos los totales iva = 0.21 * subtotal 'iva es igual al 0.21 por el subtotal total = subtotal + iva ' el total final es igual a la sume del subtotal mas el iva
Label19 = total1 'label19 toma el valor de total1 Label22 = total2 'label22 toma el valor de total2 Label25 = total3 'label25 toma el valor de total3 Label28 = total4 'label28 toma el valor de total4 Label31 = total5 'label31 toma el valor de total5 Label34 = total6 'label34 toma el valor de total6 Label37 = total7 'label37 toma el valor de total7 Label40 = total8 'label40 toma el valor de total8 Label43 = total9 'label43 toma el valor de total9 Label46 = total10 'label46 toma el valor de total10
Label47 = subtotal 'label47 toma el valor de subtotal Label48 = iva 'label48 toma el valor de iva Label49 = total 'label49 toma el valor del total
End Sub
Private Sub Command2_Click() Data1.Recordset.Update 'carga un nuevo registro en la base de datos Command2.Enabled = True 'Habilita el boton 2 Command10.Enabled = True 'Habilita el boton 10 Text1.Enabled = True 'Habilita el text1 Text2.Enabled = True 'habilita el text2 Text3.Enabled = True 'habilita el text3 Text4.Enabled = True 'habilita el text4 Text5.Enabled = True 'habilita el text5 Command1.Enabled = False 'desabilita el boton 1 Command3.Enabled = False 'desabilita el boton 3 Command4.Enabled = False 'desabilita el boton4 Text1.SetFocus 'toma foco en el text1
End Sub
Private Sub Command3_Click() Data1.Recordset.Edit 'Permite editar un registro de la base de datos prebiamente seleccionado Command2.Enabled = True 'Habilita el boton 2 Command10.Enabled = True 'Habilita el boton 10 Text1.Enabled = True 'Habilita el text 1 Text2.Enabled = True 'Habilita el text 2 Text3.Enabled = True 'Habilita el text 3 Text4.Enabled = True 'Habilita el text 4 Command1.Enabled = False 'Desabilita el boton 1 Command3.Enabled = False 'Desabilita el boton 3 Command4.Enabled = False 'Desabilita el boton 4 Text1.SetFocus 'Toma foco en el text 1 End Sub
Private Sub Command4_Click() Data1.Recordset.Delete 'Elimina un registro prebiamente seleccionado Data1.Recordset.MoveFirst 'Una vez eliminadoe el registro se mueve el primero End Sub
Private Sub Command5_Click() Data1.Recordset.MoveFirst 'Se mueve el primer registro End Sub
Private Sub Command6_Click() On Error Resume Next 'Si se produce un error la aplicion sigue corriendo Data1.Recordset.MovePrevious 'Se mueve al registro anterior de donde estes en ese momento End Sub
Private Sub Command7_Click() Data1.Recordset.MoveNext 'Se mueve al siguiente End Sub
Private Sub Command8_Click() Data1.Recordset.MoveLast 'Se mueve al ultimo End Sub
Private Sub Command9_Click() Data1.Refresh 'Actualiza la base de datos en caso de que otros usuarios cargar nuevos registros End Sub
Private Sub DBGrid1_DblClick() If a = 1 Then 'si a es igual a uno entonces Label17 = Data1.Recordset.Fields("Articulo") 'label17 toma el valor del campo articulo Label18 = Data1.Recordset.Fields("Precio") 'label18 toma el valor del campo precio Text3 = Text3 - Text11 'al text3 restarle el valor del text11 End If If a = 2 Then Label20 = Data1.Recordset.Fields("Articulo") 'label20 toma el valor del campo articulo Label21 = Data1.Recordset.Fields("Precio") 'label21 toma el valor del campo precio Text3 = Text3 - Text12 'al text3 restarle el valor del text12 End If If a = 3 Then Label23 = Data1.Recordset.Fields("Articulo") 'label23 toma el valor del campo articulo Label24 = Data1.Recordset.Fields("Precio") 'label24 toma el valor del campo precio Text3 = Text3 - Text13 'al text3 restarle el valor del text13 End If If a = 4 Then Label26 = Data1.Recordset.Fields("Articulo") 'label26 toma el valor del campo articulo Label27 = Data1.Recordset.Fields("Precio") 'label27 toma el valor del campo precio Text3 = Text3 - Text14 'al text3 restarle el valor del text14 End If If a = 5 Then Label29 = Data1.Recordset.Fields("Articulo") 'label29 toma el valor del campo articulo Label30 = Data1.Recordset.Fields("Precio") 'label30 toma el valor del campo precio Text3 = Text3 - Text15 'al text3 restarle el valor del text15 End If If a = 6 Then Label32 = Data1.Recordset.Fields("Articulo") 'label32 toma el valor del campo articulo Label33 = Data1.Recordset.Fields("Precio") 'label33 toma el valor del campo precio Text3 = Text3 - Text16 'al text3 restarle el valor del text16 End If If a = 7 Then Label35 = Data1.Recordset.Fields("Articulo") 'label35 toma el valor del campo articulo Label36 = Data1.Recordset.Fields("Precio") 'label36 toma el valor del campo precio Text3 = Text3 - Text17 'al text3 restarle el valor del text17 End If If a = 8 Then Label38 = Data1.Recordset.Fields("Articulo") 'label38 toma el valor del campo articulo Label39 = Data1.Recordset.Fields("Precio") 'label39 toma el valor del campo precio Text3 = Text3 - Text18 'al text3 restarle el valor del text18 End If If a = 9 Then Label41 = Data1.Recordset.Fields("Articulo") 'label41 toma el valor del campo articulo Label42 = Data1.Recordset.Fields("Precio") 'label42 toma el valor del campo precio Text3 = Text3 - Text19 'al text3 restarle el valor del text19 End If If a = 10 Then Label44 = Data1.Recordset.Fields("Articulo") 'label44 toma el valor del campo articulo Label45 = Data1.Recordset.Fields("Precio") 'label45 toma el valor del campo precio Text3 = Text3 - Text20 'al text3 restarle el valor del text20 End If End Sub
Private Sub Form_Initialize() Label9 = Date 'label9 muestra la fecha End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Width = 1215 Command1.Height = 375
Command2.Width = 1215 Command2.Height = 375
Command3.Width = 1215 Command3.Height = 375
Command4.Width = 1215 Command4.Height = 375
Command5.Width = 1215 Command5.Height = 375
Command6.Width = 1215 Command6.Height = 375
Command7.Width = 1215 Command7.Height = 375
Command8.Width = 1215 Command8.Height = 375
Command9.Width = 1215 Command9.Height = 375
Command10.Width = 1215 Command10.Height = 375
Command11.Width = 2655 Command11.Height = 375
Command12.Width = 975 Command12.Height = 375
Command13.Width = 1215 Command13.Height = 375
Command14.Width = 975 Command14.Height = 375
Command15.Width = 975 Command15.Height = 375
Command16.Width = 975 Command16.Height = 375
Command17.Width = 1335 Command17.Height = 375
Command18.Width = 1335 Command18.Height = 375 End Sub
Private Sub Text11_Change() a = 1 'a toma el valor de uno End Sub
Private Sub Text11_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'Si apretamos enter entonces KeyAscii = 0 'Que no haga Beep ElseIf KeyAscii <> 8 Then 'Si apretamos back Space entonces (Borrar)
If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub 'Si apretamos Punto o Coma que escriba y salga If Not IsNumeric(Chr(KeyAscii)) Then 'Si no es número entonces KeyAscii = 0 'que no escriba nada End If End If End Sub
Private Sub Text12_Change() a = 2 'a toma el valor de dos End Sub
Private Sub Text12_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'Si apretamos enter entonces KeyAscii = 0 'Que no haga Beep ElseIf KeyAscii <> 8 Then 'Si apretamos back Space entonces (Borrar)
If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub 'Si apretamos Punto o Coma que escriba y salga If Not IsNumeric(Chr(KeyAscii)) Then 'Si no es número entonces KeyAscii = 0 'que no escriba nada End If End If End Sub
Private Sub Text13_Change() a = 3 ' a toma el valor de 3 End Sub
Private Sub Text13_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'Si apretamos enter entonces KeyAscii = 0 'Que no haga Beep ElseIf KeyAscii <> 8 Then 'Si apretamos back Space entonces (Borrar)
If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub 'Si apretamos Punto o Coma que escriba y salga If Not IsNumeric(Chr(KeyAscii)) Then 'Si no es número entonces KeyAscii = 0 'que no escriba nada End If End If End Sub
Private Sub Text14_Change() a = 4 'a toma el valor de 4 End Sub
Private Sub Text14_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'Si apretamos enter entonces KeyAscii = 0 'Que no haga Beep ElseIf KeyAscii <> 8 Then 'Si apretamos back Space entonces (Borrar)
If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub 'Si apretamos Punto o Coma que escriba y salga If Not IsNumeric(Chr(KeyAscii)) Then 'Si no es número entonces KeyAscii = 0 'que no escriba nada End If End If End Sub
Private Sub Text15_Change() a = 5 'a toma el valor de 5 End Sub
Private Sub Text15_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'Si apretamos enter entonces KeyAscii = 0 'Que no haga Beep ElseIf KeyAscii <> 8 Then 'Si apretamos back Space entonces (Borrar)
If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub 'Si apretamos Punto o Coma que escriba y salga If Not IsNumeric(Chr(KeyAscii)) Then 'Si no es número entonces KeyAscii = 0 'que no escriba nada End If End If End Sub
Private Sub Text16_Change() a = 6 ' a toma el valor de 6 End Sub
Private Sub Text16_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'Si apretamos enter entonces KeyAscii = 0 'Que no haga Beep ElseIf KeyAscii <> 8 Then 'Si apretamos back Space entonces (Borrar)
If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub 'Si apretamos Punto o Coma que escriba y salga If Not IsNumeric(Chr(KeyAscii)) Then 'Si no es número entonces KeyAscii = 0 'que no escriba nada End If End If End Sub
Private Sub Text17_Change() a = 7 'a toma el valor de 7 End Sub
Private Sub Text17_KeyUp(KeyCode As Integer, Shift As Integer) If KeyAscii = 13 Then 'Si apretamos enter entonces KeyAscii = 0 'Que no haga Beep ElseIf KeyAscii <> 8 Then 'Si apretamos back Space entonces (Borrar)
If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub 'Si apretamos Punto o Coma que escriba y salga If Not IsNumeric(Chr(KeyAscii)) Then 'Si no es número entonces KeyAscii = 0 'que no escriba nada End If End If End Sub
Private Sub Text18_Change() a = 8 ' a toma el valor de 8 End Sub
Private Sub Text18_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'Si apretamos enter entonces KeyAscii = 0 'Que no haga Beep ElseIf KeyAscii <> 8 Then 'Si apretamos back Space entonces (Borrar)
If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub 'Si apretamos Punto o Coma que escriba y salga If Not IsNumeric(Chr(KeyAscii)) Then 'Si no es número entonces KeyAscii = 0 'que no escriba nada End If End If End Sub
Private Sub Text19_Change() a = 9 'a toma el valor de 9 End Sub
Private Sub Text19_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'Si apretamos enter entonces KeyAscii = 0 'Que no haga Beep ElseIf KeyAscii <> 8 Then 'Si apretamos back Space entonces (Borrar)
If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub 'Si apretamos Punto o Coma que escriba y salga If Not IsNumeric(Chr(KeyAscii)) Then 'Si no es número entonces KeyAscii = 0 'que no escriba nada End If End If End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'Si apretamos enter entonces KeyAscii = 0 'Que no haga Beep ElseIf KeyAscii <> 8 Then 'Si apretamos back Space entonces (Borrar)
If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub 'Si apretamos Punto o Coma que escriba y salga If Not IsNumeric(Chr(KeyAscii)) Then 'Si no es número entonces KeyAscii = 0 'que no escriba nada End If End If End Sub
Private Sub Text20_Change() a = 10 ' a toma el valor de 10 End Sub
Private Sub Text20_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'Si apretamos enter entonces KeyAscii = 0 'Que no haga Beep ElseIf KeyAscii <> 8 Then 'Si apretamos back Space entonces (Borrar)
If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub 'Si apretamos Punto o Coma que escriba y salga If Not IsNumeric(Chr(KeyAscii)) Then 'Si no es número entonces KeyAscii = 0 'que no escriba nada End If End If End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'Si apretamos enter entonces KeyAscii = 0 'Que no haga Beep ElseIf KeyAscii <> 8 Then 'Si apretamos back Space entonces (Borrar)
If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub 'Si apretamos Punto o Coma que escriba y salga If Not IsNumeric(Chr(KeyAscii)) Then 'Si no es número entonces KeyAscii = 0 'que no escriba nada End If End If End Sub
Private Sub Text6_Change() Data1.RecordSource = ("select * from stock where articulo like " & "'" & Text6 & "*'" & " order by articulo") 'inicia una busquedad de articulos en la tabla stock Data1.Refresh 'actualiza la base de datos End Sub
Private Sub Text7_Change() Data1.RecordSource = ("select * from stock where codigo like " & "'" & Text7 & "*'" & " order by codigo") 'inicia una busqueda por codigo en la tabla stock Data1.Refresh 'actualiza la base d datos End Sub
Tiene algunas cosas como los botones que se agrandan y contraen, despues alguna funciones de busqueda por codigo, y nombre.. etc..
Hola amigos, y mienbros del staff que pueden o no leer esto jeje...
Como se han de imaginar yo no soy un usuario que le busca un problema a todo, o que se queja de todo pero eso no viene al caso...
El tema por que abro este tema es que me gustaria que alla mas actualizaciones a nivel manueles el la parte de "manueles, tutoriales etc" que aparece ni bien uno pone elhacker en google. Hay temas como "como ser un hacker en terminos legales" que lei ese manual y es de windows 98 y 95 escasamente de NT, es su tiempo a sido una locura modificar windows 95, pero lo cierto es que estamo en el 2009 y eso creo que es algo ochentoso o casi jeje.
A lo que voy es que si kieren y recibo la ayudo de un par de colaboradores podemos hacer manualess de herramientas y eso... mas actuales...