Tyty
Private Sub buscar_Click()
Dim buscar As String, criterio As String
buscar = InputBox("¿Que nombre desea buscar?", "busqueda por nombre", vbQuestion)
If buscar = "" ThenExit Sub
criterio = "nombre like '*" & buscar & "*'"
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find criterio
End If
If Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveFirst
Adodc1.Recordset.Find criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
respuesta = MsgBox("Alumno no encontrado", vbCritical)
End If
End If
End SubCODIGO PARA ELIMINAR
Private Sub eliminar_Click()
Dim confirmacion As Integer
confirmacion = MsgBox("¿Desea eliminar el Alumno?", vbYesNo + vbQuestion + vbDefaultButton2, "Eliminar Alumno")
Ifconfirmacion = vbYes Then
Adodc1.Recordset.Delete
MsgBox ("El alumno ha sido borrado")
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
Else
ExitSub
End If
End Sub
CODIGO PARA AGREGAR
On Error GoTo Error
If Text1.Text "" And Text2.Text "" And Text3.Text "" And Text4.Text "" And Text5.Text "" Then
Data1.RefreshData1.Recordset.AddNew
Data1.Recordset.Update
Else
MsgBox "Agregar Datos", vbCritical, "Error en Alta"
End If
Error:
If Err.Number 0 Then
MsgBox "Descripción del Error: "& Err.Description, vbCritical, "ERROR"
End If
Exit Sub
CODIGO PARA IMPRIMIR
Private Sub Command6_Click() (imprimir)
confirmacion = MsgBox("¿Desea imprimir los datos?", vbYesNo +vbQuestion + vbDefaultButton2, "imprimir datos")
If confirmacion = vbYes Then
Me.PrintForm
End If
End Sub
NOTA:
hay veces que los codigos no quieren funcionar me paso una solavez pero no desesperen que esos son, a mi me funcionaron y a muchos compañeros tambien. Para evitar errores es preferible que solo copien y peguen en su formulario en el boton correspondiente.
Regístrate para leer el documento completo.