Visual Basic - Buscar,Modificar

Life is soft - evento anual de software empresarial
 
Vista:

Buscar,Modificar

Publicado por Alf (1 intervención) el 25/01/2003 20:58:42
Hola, tengo éste código para hacer una búsqueda y a su vez modificar los datos si procede, pero creo q está un poco desordenado e incluso q habrá q quitar o añadir algo, pues no funciona del todo bien.
La búsqueda me la hace bien, los datos del registro los presenta en los TextBox q tengo en el formulario frmdatos, pero me deja el control adodc1 inabilitado, tambien un contador NumReg como total de registros, a pesar de tener x números de ellos, me cuenta como "1".
Gracias anticipadas, si alguen me puede ayudar.Hasta pronto Alf.

Private Sub cmdBuscarModificar_Click()
On Error GoTo Interrupcion
Dim Reply As String
Dim Actual As String
Dim mensaje As String
Dim NumReg As Integer

txtnombre(0).SetFocus
Reply = InputBox("Introducir nombre a Buscar o Modificar", "BUSCAR O MODIFICAR MATERIA")
If Reply = "" Then Exit Sub

Actual = "SELECT * FROM Tabladatos WHERE [Materia Activa] ='" & Reply & " ' "

Adodc1.RecordSource = Actual
Adodc1.Refresh
Adodc1.Enabled = True

If Reply <> Actual Then
mensaje = MsgBox("Nombre no encontrado-¿desea buscar otro?", vbYesNo + vbQuestion, "BUSCAR O MODIFICAR MATERIA")
If mensaje = vbNo Then Exit Sub

End If

Adodc1.Recordset.Update
EntradaRegistro = False
Adodc1.Enabled = True
Adodc1.Recordset.Requery
txtnombre(0).SetFocus
Adodc1.Recordset.MoveLast
NumReg = Adodc1.Recordset.RecordCount
Label22.Caption = NumReg

Exit Sub
Interrupcion:
MsgBox Err.Description

End Sub

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder