SoloCodigo

Hola a todos,
estoy haciendo una aplicación que consiste en coordinar VB con una b.datos access (Dao), la base

tiene contraseña y las tablas se abren bien, el problema es que se me cae en la siguiente instrucción:

If Not Data1.Recordset.EOF Then

Con el sgte. mensaje:

"Error '91' en tiempo de ejecución:
Variable de tipo Object o la variable de bloque With no está establecida"

Yo sé que el error 91 indica que la consulta en cuestión estaría nula, el problema es que antes de ponerle contraseña a la data, el código funcionaba bien.

Por fa, respondame alguien que sepa lo que pasa.

Gracias.

 Muchas gracias por el código.

tengo un problema con el famoso .ocx del crystal report
hice un instalador que corre muy bien en mi computador
pero cuando lo instalo en alguno de los pc del cliente,
y se intenta abrir un form en donde haya un control crystal report
me lanza este error:
-------------------
error '372' en tiempo de ejecución:
no se pudo cargar el control 'Crystal Report' de CRYSTL32.OCX. Puede que su versión de

CRYSTL32.OCX haya caducado. Asegúrese de que utiliza la versión del control proporcionada con la

aplicación.

-------------------

El programa lo comencé a hacer con la versión 4.6 del crystal y después instalé una versión más

actualizada del crystal, y ahora tengo este problemita.

Quién sabe qué puedo hacer.  
Gracias.

yo de nuevo.
se me ocurrió quitarle el enlace a la data
y lo he probado varias veces y todavía no falla.
de todos modos, si puedes te agradecería mucho lo del ejemplo que te hablé antes,
Gracias Brroz.

Hola a todos,
tengo un control combobox enlazado a una data
funciona bien, incluso tiene un procedimiento para buscar escribiendo dentro de él
el drama es que me modifica los datos que muestra.
Por ejemplo, si el combo despliega los nombres Juan, Claudio, Teresa, Isabel, y

escojo Teresa, me modifica Juan y a claudio con el nombre Teresa.
Lo peor es que esto ni siquiera sucede siempre. Puede pasar una de cada 5 veces que

se ingresa al combo.

Este codigo le tengo puesto:

Data3.Recordset.FindFirst "ucase(nombre) = '" & (Combo1.Text) & "'"

y el procedimiento:
Sub BuscaCombo(ByRef KeyAscii As Integer)
If KeyAscii < 32 Then Exit Sub

Dim Posic As Long, Buscar As String
On Error Resume Next
With Screen.ActiveControl

If .SelLength = 0 Then
Buscar = .Text & Chr$(KeyAscii)
Else
Buscar = left$(.Text, .SelStart) & Chr$(KeyAscii)
End If

Posic = SendMessage(.hWnd, &H14C, -1, ByVal Buscar)

If Posic <> -1 Then
.ListIndex = Posic
.SelStart = Len(Buscar)
.SelLength = Len(.Text) - .SelStart
KeyAscii = 0
End If

End With
On Error GoTo 0

End Sub

Alguien sabe por qué me pasa eso?
Gracias.

Hola amigos,
tengo un dbcombo enlazado al campo nombres de  una data y necesito buscar esos nombres a medida que escribo en el dbcombo, no me sirve la primera letra porque es muy lento por lo larga de la lista.

¿alguien sabe?