No recuedo bien lo que necesitabas hacer pero controla el error con resume next.
Ahora, si no agrego el resume next el error que me aparece es Error desconosido.
Agrega un Text1 y Datacombo1
Código:
Dim rs As Recordset
Function LlenarMedida()
'Llena el datacombo1 con registros de la tabla
Set rs = New Recordset
rs.Open "SELECT * FROM tabla", dbConex, adOpenStatic, adLockOptimistic
DataCombo1.BoundColumn = "Codtabla"
DataCombo1.ListField = "Nomtabla"
Set DataCombo1.RowSource = rs
End Function
Private Sub Form_Load()
LlenarMedida
End Sub
Private Sub DataCombo1_Click(Area As Integer)
On Error Resume Next
'Si el recordset esta vacio
With rs
If .EOF And .BOF Then
'MsgBox "No hay empleados registrados actualmente", vbInformation, "Información"
DataCombo1.Enabled = False
Else
'Coloca el Codclie en la caja de texto al selecionar un cliente del datacombo1
DataCombo1.Enabled = True
.MoveFirst
.Find "codtabla='" + Trim(DataCombo1.BoundText) + "'"
If Not .EOF Then
Text1 = .Fields(0) 'Carga el 1er campo
End If
End If
End With
End Sub
saludos