Problema con código - Access

[oMart]

Buenas tardes, paso a contarles un pequeño problema que tengo con un código que utiliza Recordsets (es código VB, de Access). El código como podrán ver es para copiar datos en el caso de que el valor este vacio. Hasta allí todo bien, mi problema es cuando llego a cierta línea del código que me dice que esta incorrecta, pero no se encontrar que falla, aun que supongo que será un error básico, pues recién me inicio en este tema.

Este es el código:

Private Sub Comando0_Click()
Dim rsEmpreses As Recordset
Dim rsContactes As Recordset
Dim rsBuscar As Recordset

Set rsEmpreses = New Recordset
rsEmpreses.Open "SELECT IDEMPRESA, NOM, COGNOMS, CARREC, TELEFON, EMAIL FROM Empreses", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdText
Set rsContactes = New Recordset
rsContactes.Open "SELECT IdContacte, Nom, Cognoms, Telefon, Carrec, Email FROM Contactes", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdText

If Not rsEmpreses.EOF And Not rsEmpreses.BOF Then
rsEmpreses.MoveFirst
While Not rsEmpreses.EOF

Set rsBuscar = New Recordset
rsBuscar.Open "SELECT * FROM Contactes WHERE id_Empresa=+ rsEmpreses!IdEmpresa", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTable

(Falla esta línea, desde rsBuscar hasta adCmdTable)

If rsBuscar.RecordCount() = 0 Then
rsContactes.AddNew
rsContactes!NOM = rsEmpreses!NOM
rsContactes!COGNOMS = rsEmpreses!COGNOM
rsContactes!Telefon = rsEmpreses!Telefon
rsContactes!CARREC = rsEmpreses!CARREC
rsContactes!EMAIL = rsEmpreses!EMAIL
rsContactes!id_Empresa = rsEmpreses!IdEmpresa
End If
rsEmpreses.MoveNext
Wend
End If
End Sub

Si alguien me pudiese ayudar le estaría muy agradecido, ya que aún me estoy iniciando en este tema y necesitaria arreglar esto cuánto antes... si alguien puede darme una pista por pequeña que sea se lo agradeceria mucho.

PD: Es mi primer mensaje en este foro, no se si este mensaje va en este lugar... pero no encontré otro, pido disculpas si no lo puse bien.

[3pies]

Como supongo que la id de la empresa es numérica, prueba a cambiar:

Código:

"SELECT * FROM Contactes WHERE id_Empresa=+ rsEmpreses!IdEmpresa" 

Por esto:

Código:

"SELECT * FROM Contactes WHERE id_Empresa=" & rsEmpreses!IdEmpresa

Salu2

[oMart]

Hola, agradezco la rápida respuesta y la ayuda que me ofreciste.
Estube probando para ver si conseguia hacerlo funcionar con lo que me dijiste pero me dice error de sintaxis en la cláusula FROM, tengo esta línea ahora, tal como comentaste:

rsBuscar.Open "SELECT * FROM Contactes WHERE id_Empresa=" & rsEmpreses!IdEmpresa, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTable

¿Es necesario añadir CurrentProject hasta adCmdTable, verdad? Por qué lo que es la sintaxis lo veo correcto.

Saludos

[3pies]

Se supone que en la tabla Contactes, tienes un campo llamado id_Empresa, ¿verdad?.

¿El error que te tiraba inicialmente, también era de sintaxis?.

[oMart]

Si, se llama id_Empresa.

La verdad me ha dado varios tipos de errores a medida que he ido retocando para mirar de arreglar. Me ha dado los siguientes:

- No coinciden los tipos
- Error de sintaxis en cláusula FROM

Me suena de algún otro, pero la verdad no recuerdo aquellos.

Gracias por tomarte la molesta de hecharme una mano.

[oMart]

Up... ¿Alguna sugerencia nueva?, sigo con el mismo problema y por mucho que toque me da algun tipo de error. Pondría la mano al fuego de que está cerca del Where el error, pero por mucho que modifique no consigo arreglarlo.

He retocado el código hasta el punto que queda así, pero me da error de sintaxis:

rsBuscar.Open ("SELECT * FROM Contactes WHERE id_Empresa = '" & rsEmpreses!IdEmpresa & "'"), CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTable

Si alguien sabe, por pequeña ayuda que sea le estaré agradecido.

Gracias de antemano

[Taribo007]

Dos pregunta.
1. Lo que quieres ahcer es pegar en la tabla contactes, los registros de la tabla empreses cuyo idEmpresa esta vacio???

2. En ese ultimo intento, que error te da exacatmente?? Para aclararnos, con la ultima prueba (copia el codigo excato), que error te da???

Un saludo

[oMart]

Listo ahí consegui arreglar la maldita frase, la dejé así y ya no da error:

rsBuscar.Open "SELECT * FROM Contactes WHERE id_Empresa = " & rsEmpreses!IdEmpresa, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdText

Ahora me da error más abajo, en este punto:

rsContactes!id_Empresa = rsEmpreses!IdEmpresa

Me da el siguiente mensaje de error:

"No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido"

¿Qué quiere decir que falla algun tipo de nombre? De ser así están todos bien

Gracias por sus respuestas!

[guille_el3]

Código:

 rsContactes!id_Empresa = rsEmpreses!IdEmpresa

Ojo que a la izquierda estas utilizando id_Empresa y a la derecha IdEmpresa, con mayúscula y guión bajo. ¿es correcto eso?

[oMart]

Iniciado por guille_el3

Código:

 rsContactes!id_Empresa = rsEmpreses!IdEmpresa

Ojo que a la izquierda estas utilizando id_Empresa y a la derecha IdEmpresa, con mayúscula y guión bajo. ¿es correcto eso?

Si, es correcto.

El campo de la tabla Contactes es id_Empresa y el de la tabla Empreses IDEMPRESA (si, en mayusculas, pero no se por que me lo pone automáticamente "IdEmpresa" en vez de "IDEMPRESA", ¿puede ser ese el error?

[3pies]

Te pasa porque en esta línea no llamaste al campo id_Empresa de la tabla Contactes, por eso te da error, ya que no lo tiene cargado en memoria:

Código:

rsContactes.Open "SELECT IdContacte, Nom, Cognoms, Telefon, Carrec, Email FROM Contactes",

Cámbiala por esta otra:

Código:

rsContactes.Open "SELECT IdContacte, id_Empresa, Nom, Cognoms, Telefon, Carrec, Email FROM Contactes",

Salu2

[oMart]

Iniciado por 3pies

Te pasa porque en esta línea no llamaste al campo id_Empresa de la tabla Contactes, por eso te da error, ya que no lo tiene cargado en memoria:

Código:

rsContactes.Open "SELECT IdContacte, Nom, Cognoms, Telefon, Carrec, Email FROM Contactes",

Cámbiala por esta otra:

Código:

rsContactes.Open "SELECT IdContacte, id_Empresa, Nom, Cognoms, Telefon, Carrec, Email FROM Contactes",

Salu2

Gracias por la respuesta.

La verdad que esa probabilidad la probé, ya le introducí id_Empresa en rsContactes pero sigue dando el mismo error. De todas formas ya se lo metí tal como dices, pero sigue dando el error que dije anteriormente... no puede ser por que me pone IdEmpresa automáticamente en vez de IDEMPRESA?

Saludos

[3pies]

En teoría debería dar lo mismo mayúsculas que minúsculas.

¿Seguro que después de incluir eso, te sigue dando el mismo error:"No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido", y en la misma línea?.

[oMart]

Así es...:



Y despúes de darle a ejecutar...:



La verdad no se por que le ocurre esto, le puse aquella línea como comentario y me copió los datos, pero claro, le falta copiar el campo de id_Empresa...

[Taribo007]

Iniciado por Taribo007

Dos pregunta.
1. Lo que quieres ahcer es pegar en la tabla contactes, los registros de la tabla empreses cuyo idEmpresa esta vacio???

2. En ese ultimo intento, que error te da exacatmente?? Para aclararnos, con la ultima prueba (copia el codigo excato), que error te da???

Un saludo

Si la respuesta a la primera pregunta es si, te sobra todo el codigo y te basta con una sentencia.

Un saludo

[oMart]

Lo que quiero basicamente es copiar en Contactes desde la tabla Empreses los campos que esten vacios en Contactes...

[Taribo007]

Si me he enterado bien, prueba asi:

DoCmd.RunSQL "INSERT INTO Contactes (Id_Empresa, Nom, Cognoms, Telefon, Carrec, Email) SELECT Empreses.IDEMPRESA, Empreses.NOM, Empreses.COGNOMS, Empreses.CARREC, Empreses.TELEFON, Empreses.EMAIL " & _
" FROM Contactes RIGHT JOIN Empreses ON Contactes.Id_Empresa = Empreses.IDEMPRESA " & _
" WHERE Contactes.Id_Empresa Is Null;"

Un saludo