codigo para buscar un registro

[mitalo]

Iniciado por xochitemol

siempre y cuando tu conexion este bien hecha aqui te va el codigo claro no como lo quiere modifica

Dim existe As String
Dim nombre As String
nombre = inoutbox(nombre)
If nombre = "" Then
Exit Sub
Else

Adodc1.RecordSource = "SELECT *FROM busqueda WHERE nombres = '" & nombre & "'"
Adodc1.Refresh

With Adodc1.Recordset
'si no encuentra
If .RecordCount = 0 Then
txtcarrera.SetFocus
Exit Sub
Else
'si encuentra registro
'Text1 = !nombres
existe = MsgBox("Ya Existe un alumno con ese nombre" & vbCrLf _
& " Desea Consultar sus datos", vbInformation + vbYesNo)
If existe = vbYes Then
txtnombre = !nombre
txtpaterno = !paterno
txtmaterno = !materno
txtcarrera = !carrera
Cmbescuela = !escuela
'txtescuela = !escuela
txtdirescuela = !direscuela
txtdirector = !director
txtobjetivo = !objetoservicio
txtactividades = !actividades
txtdependencia = !dependencia
txtdirdependencia = !dirdepen
txtunidad = IIf(!unidadad = "", "No Registrado", !unidadad)
txtresponsable = !responsable
txtcargo = !cargoresponsable ' = IIf(txtcargo = "", "No Proporcionado por el usuario", txtcargo)
txtdias = !diasprestacion ' = IIf(txtdias = "", "No Proporcionado por el usuario", txtdias)
Finicio = !Finicio
'txtinicio = !Finicio ' = IIf(Finicio = "", "No Proporcionado por el usuario", Finicio)
Ftermino = !Ftermino ' = IIf(Ftermino = "", "No Proporcionado por el usuario", Ftermino)
Fentrega = !Fentrega ' = IIf(Fentrega = "", "No Proporcionado por el usuario", Fentrega)
'!Ftermino = IIf(Ftermino = "", "No Proporcionado por el usuario", Ftermino)
'txtregistro = !Fregistro '= IIf(Label9.Caption = "", "No Proporcionado por el usuario", Label9.Caption)
txthorario = !horario
Cmbprograma = !programa ' = IIf(Cmbprograma = "", "No Proporcionado por el usuario", Cmbprograma)
Cmbsemestre = !semestre '= IIf(Cmbsemestre = "", "No Proporcionado por el usuario", Cmbsemestre)
Cmbhoras = !horas '= IIf(Cmbhoras = "", "No Proporcionado por el usuario", Cmbhoras)
txtnumero = !numcontrol ' = IIf(txtnumero = "", "No Proporcionado por el usuario", txtnumero)
numeroeliminar = Trim(txtnumero)
Label30.Caption = !numero
Option1.Enabled = False
Option2.Enabled = False
Tool.Buttons(1).Enabled = False
Exit Sub
Else
'MsgBox "Presiono NO"
Exit Sub
End If
Exit Sub
End If
End With
End If


'espero por lo menos me digas si te funciono

me marca error en el objeto adodc1 y el metodo refresh, ademas cuando introduzco un registro invalido tambien me dice que existe y si quiero ver sus datos, otra es cuando introduzco un registro valido al darle la opcion de ver sus datos no los manda a sus respectivos textbox