Tyty

CODIGO PARA BUSCAR
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.