lunes, 27 de febrero de 2012

Ejemplo de FOrmulariO

Crearemos ahora ahora un formulario donde solo llenándolo forme una base de datos que se corra por si misma.

  • Primero haremos nuestro esquema:
  • Ahora presionaremos ATL+F11
  • Ahora damos clic en la opción insertar USEFORM
  • Ahora llenamos con NOMBRE, SUELDO, HORAS_EXTRAS, NO. DE HORAS Y BONIFICACION Y LE PONEMOS UN BOTÓN
  • Ahora damos doble clic al botón, y escribimos los criterios y coman dos
Private Sub CommandButton1_Click()
[A2] = TextBox1
[b2] = TextBox2
[c2] = TextBox5
[E2] = TextBox3
[g2] = TextBox4


[d2] = Val([E2]) / 30 / 8 * Val([g2])
[f2] = Val([E2]) * 0.0483
[h2] = Val([E2]) + Val([d2]) - Val([f2])

Range("a2").Select
Selection.EntireRow.Insert
Range("a3").Select

TextBox1 = Empty
TextBox2 = Empty
TextBox5 = Empty
TextBox3 = Empty
 TextBox1.SetFocus
End Sub


Y por ultimo le damos clic en EJECUTAR



No hay comentarios:

Publicar un comentario