Estos Son Los C Digos Visual Acces YA MODIFICADOS

Para comenzar a hacer .
1) Este es el código del formulario:
Private Sub Form_Activate()
With MSFlexGrid1
For X = 1 To .Rows - 1
.Row = X
For J = 1 To .Cols - 1
.Col = J
.CellBackColor = IIf((X Mod 2) = 1, Val(&HC0FFFF), Val(&HC0FFC0))
.CellFontBold = True
.CellForeColor = &HFF0000
Next J
Next X
End With
End Sub

Private Sub Form_Load()
MSFlexGrid1.ColWidth (0) = 300
MSFlexGrid1.ColWidth(1) =800
MSFlexGrid1.ColWidth(2) = 2500
MSFlexGrid1.ColWidth(3) = 2000
MSFlexGrid1.ColWidth(4) = 1100
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
MsgBox "Haz Clic en Movimientos", vbInformation, "¡Aviso Importante!"
End Sub

2) Programando las opciones del menú
Ahora codificaremos en Visual Basic las opciones del menú Movimientos para eso abre el menú y haz clic en cada una de lasopciones del menú, el código para las opciones son:
a) Opción Nuevo, el cual servirá para crear un nuevo registro en la tabla, el código es el siguiente:
Private Sub nuevo_Click ()
Data1.Recordset.AddNew
End Sub


b) Opción Guardar, el cual servirá para guardar un nuevo registro en la tabla, el código es el siguiente:
Private Sub guardar_Click()
Data1.UpdateRecord
Data1.Refresh
MsgBox "ElRegistro ha sido Guardado en la Base de Datos", vbExclamation, "Aviso Importante"
End Sub

c) Opción Buscar, el cual servirá para buscar un registro en la tabla, el código es el siguiente:
Private Sub buscar_Click()
Dim m As Long
m = Val(InputBox("Introduce la Matrícula que Buscas"))
Data1.Recordset.FindFirst "matricula=" & m
If Data1.Recordset.NoMatch Then
MsgBox "La Matrícula Número: " & m & " No estáen la Base de Datos", vbExclamation, "Búsquedas de Matrícula"
End If
End Sub

d) Opción Eliminar, el cual servirá para eliminar un registro de la tabla, el código es el siguiente:
Private Sub Eliminar_Click()
If MsgBox("¿Quieres Eliminar la Matrícula Número: " & Text1 & "?", 16 + 4) = 6 Then
Data1.Recordset.Delete
Data1.Refresh
Text1.SetFocus
MsgBox "Se Eliminó la Matrícula", vbCritical, "AvisoImportante"
Else
MsgBox "No se Eliminó la Matrícula Número: " & Text1, vbExclamation, "Aviso Importante"
End If
End Sub

3) -Una pantalla de Inicio, que se verá inmediatamente antes de iniciar el programa.
-Una pantalla de Bienvenida, con opciones para entrar al programa o registrarnos si es que no somos usuarios registrados para accesar el programa.
-Una pantalla de Entrada, para acceder alprograma como usuario registrado.
-Una pantalla de Registro, en donde se registrarán los usuarios que quieran entrar el programa.

4) FRM SPLASH:
Para que esta pantalla se vea inmediatamente antes que inicie el programa hay que hacer lo siguiente:
a) Selecciona el reloj y cambia su propiedad Interval a 100.

b) Haz doble clic en el reloj y escribe el siguiente código:
Private Sub Timer1_Timer()
StaticJ As Integer
J = J + 1
If J = 20 Then
frmSplash.Hide
Bienvenida.Show
Timer1.Enabled = False
End If
End Sub



5) El código del botón Registrarse es:
Private Sub Command1_Click()
Bienvenida.Hide
Registro.Show
End Sub

Cuya función es la de ocultar el formulario de Bienvenida y mostrar el formulario de Registro.

El código del botón Entrar es:
Private Sub Command2_Click()
Bienvenida.HideEntrada.Show
End Sub
Cuya función es la de ocultar el formulario de Bienvenida y mostrar el formulario de Entrada

El código del botón Cancelar es:
Private Sub Command3_Click()
Unload Me
End
End Sub

Cuya función es la de cerrar el programa.

a) El código del botón Entrar al Programa es:
Private Sub Command1_Click()
Dim usuario As String
Dim contrasena As String
Dim mensaje As StringRegistro.Data1.Refresh
usuario = Text1
contrasena = Text2
Do Until Registro.Data1.Recordset.EOF
If Registro.Data1.Recordset.Fields("usuario").Value = usuario And
Registro.Data1.Recordset.Fields("contrasena").Value = contrasena Then
MsgBox "Hola " & usuario & ", ¿Cómo has estado?", vbOKOnly, "Bienvenido al Programa"
Entrada.Hide
Alumnos.Show
Exit Sub
Else
Registro.Data1.Recordset.MoveNext
End If
Loop
mensaje =...