MS ACCESS Y VB 6.0

VIDEO TUTORIAL CREAR BASES DE DATOS EN ACCESS E IMPLEMENTARLA A VISUAL BASIC 6.0.

DESCARGAR VISUAL BASIC 6.0 http://uploaded.to/file/bchdiaqw






CÓDIGOS DE LOS BOTONES:


SIGUIENTE:




Private Sub SIGUIENTE_Click(Index As Integer)
DataEnvironment1.rsCommand1.MoveNext
If DataEnvironment1.rsCommand1.EOF Then
DataEnvironment1.rsCommand1.MoveLast
MsgBox "Estamos en el último registro"
End If
End Sub




ANTERIOR:




Private Sub ANTERIOR_Click(Index As Integer)
DataEnvironment1.rsCommand1.MovePrevious


If DataEnvironment1.rsCommand1.BOF Then


DataEnvironment1.rsCommand1.MoveFirst


MsgBox "Estamos en el primer registro"


End If
End Sub




PRIMERO:




Private Sub PRIMERO_Click(Index As Integer)
DataEnvironment1.rsCommand1.MoveFirst
End Sub




ULTIMO:




Private Sub ULTIMO_Click(Index As Integer)
DataEnvironment1.rsCommand1.MoveLast
End Sub




NUEVO:




Private Sub NUEVO_Click()
DataEnvironment1.rsCommand1.AddNew
End Sub




GUARDAR:






Private Sub GUARDAR_Click()
If MsgBox("¿desea guardar los cambios?", vbQuestion + vbYesNo, "Pregunta") = vbYes Then


MsgBox ("guardado")


DataEnvironment1.rsCommand1.Update
End If
End Sub






IMPRIMIR:




Private Sub IMPRIMIR_Click()
DataReport1.Show
End Sub




CÓDIGOS DE LA BARRA DE MENÚ: 


SALIR:








Private Sub SALIR_Click()
If MsgBox("¿desea Salir de la aplicacion?", vbQuestion + vbYesNo, "Pregunta") = vbYes Then


End
End If
End Sub








TABLAS:


1.- ASIGNATURA




Private Sub ASIGNATURA_Click()
Form3.Show
End Sub




2.-NOTAS






Private Sub NOTAS_Click()
Form2.Show
End Sub