Uso de JOINRS
Publicado por Leonard (58 intervenciones) el 12/12/2007 17:34:42
Conseguí este ejemplo en esta dirección
http://www.clubusenet.com/thread/2540939.html
Por ejemplo, en el código siguiente saco un recordset con los nombres que no
tienen CIF y lo paso a una variable de texto, stLista que utilizo primero
para mostrarlos en un Msgbox y después como filtro para insertar registros
en otra tabla usando "In (" & stlista & "))
Set rsNombreSinCif = New ADODB.Recordset
rsNombreSinCif.Open stNombreSinCif, CurrentProject.Connection, adOpenStatic,
adLockReadOnly
stlista = JoinRS(rsNombreSinCif, "Nombre", ",")
If Nz(stlista, "") <> "" Then
MsgBox "Los nombres indicados más abajo existen ya en la
aplicación,........" & _
end if
Mi pregunta estuve intentando usarla no logro hacerla funcionar, entiendo que es lo que hace la función, pero no tengo idea de como hacerla funcionar
StNombreSinCIF que debe ser? aparte de un string, que debe contener, no se
http://www.clubusenet.com/thread/2540939.html
Por ejemplo, en el código siguiente saco un recordset con los nombres que no
tienen CIF y lo paso a una variable de texto, stLista que utilizo primero
para mostrarlos en un Msgbox y después como filtro para insertar registros
en otra tabla usando "In (" & stlista & "))
Set rsNombreSinCif = New ADODB.Recordset
rsNombreSinCif.Open stNombreSinCif, CurrentProject.Connection, adOpenStatic,
adLockReadOnly
stlista = JoinRS(rsNombreSinCif, "Nombre", ",")
If Nz(stlista, "") <> "" Then
MsgBox "Los nombres indicados más abajo existen ya en la
aplicación,........" & _
end if
Mi pregunta estuve intentando usarla no logro hacerla funcionar, entiendo que es lo que hace la función, pero no tengo idea de como hacerla funcionar
StNombreSinCIF que debe ser? aparte de un string, que debe contener, no se
Valora esta pregunta
0