Buscar un registro desde Word conectado a Access

[Fredmac48]

Buenas tardes Grupo

tengo el siguiente código que esta en un modulo de Word

lo que quiero es que el macro de word recorra la tabla de Access y busque el registro f_doc que este vacio o nulo y que me diga que numero de registro es ese para poder usarlo y guardar unos datos adicionales
el error me sale en ".Find ("f_doc = """)" he intentado de varias formas

Dim cnn As ADODB.Connection
Dim rstbl_consec As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rstbl_consec = New ADODB.Recordset

Dim Buscardtf_doc As Date
Dim sconsec As String

cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\ASISTENTE\Consecutivos\Consecutivos.mdb;Persist Security Info=False"
cnn.Open
With rstbl_consec
.Open "tbl_consec", cnn, adOpenStatic, adLockReadOnly
If Not (.EOF And .BOF) Then

.Find ("f_doc = """) aquí no se como hacer me da error


If Not .EOF Then
End If
End If
.Close
End With
Set rstbl_consec = Nothing
Set cnn = Nothing

End Sub

[Emilio]

--------------------------------------------------------------------------
¡Importante!: Colabora con el grupo. Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Hola!

en primer lugar Access está diseñado por y para DAO, por lo que mientras
"hables" con Access no tiene sentido usar OLEDB.
En segundo lugar ¿Find? ¿de donde has sacado ese método?
En tercer lugar, para saber si un registro está vacío el mejor método en
Access es nz, pero en Word no existe así que habrás de simularlo con Iif.

Saludos a todos
Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"Fredmac48" escribió en el mensaje de
noticias:0eae433c-fbd0-43d9-b69e-***@googlegroups.com...

Buenas tardes Grupo

tengo el siguiente código que esta en un modulo de Word

lo que quiero es que el macro de word recorra la tabla de Access y busque el
registro f_doc que este vacio o nulo y que me diga que numero de registro
es ese para poder usarlo y guardar unos datos adicionales
el error me sale en ".Find ("f_doc = """)" he intentado de varias formas

Dim cnn As ADODB.Connection
Dim rstbl_consec As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rstbl_consec = New ADODB.Recordset

Dim Buscardtf_doc As Date
Dim sconsec As String

cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=\\ASISTENTE\Consecutivos\Consecutivos.mdb;Persist Security
Info=False"
cnn.Open
With rstbl_consec
.Open "tbl_consec", cnn, adOpenStatic, adLockReadOnly
If Not (.EOF And .BOF) Then

.Find ("f_doc = """) aquí no se como hacer me da error


If Not .EOF Then
End If
End If
.Close
End With
Set rstbl_consec = Nothing
Set cnn = Nothing

End Sub

[José Mª Fueyo]

Hola
Lo primero, yo usaría If Not .EOF And Not .BOF then
¿Que error te da?

Salu2
--
José Mª Fueyo
[MS MVP Acces]