Boton Buscar

[adripinto]

*YO ESTOY TRABAJANDO CON MYSQL Y VISUAL BASIC POR LO TANTO USO LA HERRAMIENTA ADO PARA LLAMAR LA BD..LO QUE ME OCURRE ES QUE CUANDO BUSCO Y NO TENGO REGISTRO ME DA UN ERROR..LO QUE QUIERO ES UNA INSTRUCCION Q FUNCIONE Y NO GENERE ERROR CUANDO NO TENGO REGISTROS...GRACIAS


Private Sub cmdBuscar_Click()
criterio = "codproveedor="
RESPUESTA = InputBox("Ingrese Código a buscar:")
If Not RESPUESTA = "" Then
criterio = criterio & RESPUESTA
adoProveedor.Recordset.MoveFirst
adoProveedor.Recordset.Find criterio 'find para buscar
If adoProveedor.Recordset.EOF Then
MsgBox "Este Código no existe..."
cmdCancelar.Enabled = False
cmdAgregar.Enabled = True

Else
'existe
txtCodigo.Text = adoProveedor.Recordset.Fields("codproveedor")
txtDescripcion.Text = adoProveedor.Recordset.Fields("descripcion")
cmdAgregar.Enabled = False
cmdGuardar.Enabled = False
cmdBuscar.Enabled = True
cmdModificar.Enabled = True
cmdEliminar.Enabled = True
cmdCancelar.Enabled = True
End If
End If

End Sub

[David]

Código:

 
On Error Resume Next

Puedes colocar eso en la primera línea, de modo que cuando ocurra algún error salte a la siguiente línea...

[fede_rosario]

Private Sub cmdBuscar_Click()
criterio = "codproveedor="
RESPUESTA = InputBox("Ingrese Código a buscar:")
If Not RESPUESTA = "" Then
criterio = criterio & RESPUESTA
if adoProveedor.recordset.recordcount < 1 then
goto sale:
end if
adoProveedor.Recordset.MoveFirst
adoProveedor.Recordset.Find criterio 'find para buscar
If adoProveedor.Recordset.EOF Then
MsgBox "Este Código no existe..."
cmdCancelar.Enabled = False
cmdAgregar.Enabled = True

Else
'existe
txtCodigo.Text = adoProveedor.Recordset.Fields("codproveedor")
txtDescripcion.Text = adoProveedor.Recordset.Fields("descripcion")
cmdAgregar.Enabled = False
cmdGuardar.Enabled = False
cmdBuscar.Enabled = True
cmdModificar.Enabled = True
cmdEliminar.Enabled = True
cmdCancelar.Enabled = True
End If
End If
sale:
End Sub

[David]

Gracias fede_rosario por la aclaración. (Le puse On Error Resume Next como no tengo VB6 y me pareció que iba a ayudarlo)
Saludos .

P.S.: Puedes usar Exit Sub en vez de GoTo.