Consultas: DoCmd.RunSQL a CurrentDb.Execu

   Saludos a todos!! 

me encuentro ejecutando consultas DoCmd.RunSQL, y las que he podido las he realizado en CurrentDb.Execute, que es un método bastante rápido, ncesito convertir una consulta que ejecuto con DoCmd.RunSQL a CurrentDb.Execute.

detallo consulta RunSQL:

necesito borrar registros de detalles de una partida contable, que dependen de una llave principal

tengo una consulta llamada:qry_Temp_CrossDiario_PartidasAEliminarAux

SELECT tbl_ContaLibroDiarioPartidas.NoPartida, tbl_ContaLibroDiarioPartidas.Año, tbl_ContaLibroDiarioPartidas.IdConvenio, tbl_ContaLibroDiarioPartidas.Fecha
FROM tbl_ContaLibroDiarioPartidas
WHERE (((tbl_ContaLibroDiarioPartidas.IdConvenio)=[forms]![frm_Cross_Menu_PANELCENTRAL]![Idconvenio]) AND ((tbl_ContaLibroDiarioPartidas.Fecha) Between [forms]![frm_Cross_Menu_PANELCENTRAL]![del] And [forms]![frm_Cross_Menu_PANELCENTRAL]![al]));

luego desde VBA, ejecuto un runsql:

'Borro el detalle de las partidas del mes o período.....
DoCmd.RunSQL "DELETE tbl_ContaLibroDiarioDetalles.[NoPartida], tbl_ContaLibroDiarioDetalles.Año, tbl_ContaLibroDiarioDetalles.IdConvenio, * " & _
"FROM tbl_ContaLibroDiarioDetalles " & _
"WHERE (((tbl_ContaLibroDiarioDetalles.[NoPartida]) In (Select NoPartida From qry_Temp_CrossDiario_PartidasAEliminarAux)) AND ((tbl_ContaLibroDiarioDetalles.Año) In (Select Año From qry_Temp_CrossDiario_PartidasAEliminarAux)) AND ((tbl_ContaLibroDiarioDetalles.IdConvenio) In (Select IdConvenio From qry_Temp_CrossDiario_PartidasAEliminarAux))); "

luego de la enterior ejecución, borro las partidas: (aquí me da un error, aunque el problema no es aquí... )

'Borro las partidas del mes o período....
CurrentDb.Execute "DELETE NoPartida, Año, IdConvenio, Fecha " & _
"FROM tbl_ContaLibroDiarioPartidas " & _
"WHERE CDbl(Fecha) Between " & CDbl(Forms!frm_Cross_Menu_PANELCENTRAL!Del) & " And " & CDbl(Forms!frm_Cross_Menu_PANELCENTRAL!Al) & " And " & " IdConvenio = " & Forms!frm_Cross_Menu_PANELCENTRAL!IdConvenio

el error que me da es el 3362, el cual indica que no se pueden borrar las partidas, debido a que todavía existen detalles de las mismas...

entonces... si convierto la primera y segunda consulta para que pueda ejecutarlo desde CurrentDb.Execute me dajaría de dar ese error, pero, tengo el problema de no saber cómo integrar las consulta en una.

en mis intentos he logrado realizar la primera consulta así: (aunque no sé como integrarla a la segunda consulta)

Dim strSqlBorraDetallesPdas As String

 strSqlBorraDetallesPdas = "SELECT tbl_ContaLibroDiarioPartidas.NoPartida, tbl_ContaLibroDiarioPartidas.Año, tbl_ContaLibroDiarioPartidas.IdConvenio, tbl_ContaLibroDiarioPartidas.Fecha " & _
                              "FROM tbl_ContaLibroDiarioPartidas " & _
                              "WHERE ((tbl_ContaLibroDiarioPartidas.Fecha) Is Not Null) AND CDbl(Fecha) Between " & CDbl(Forms!frm_Cross_Menu_PANELCENTRAL!Del) & " And " & CDbl(Forms!frm_Cross_Menu_PANELCENTRAL!Al) & " And " & " tbl_ContaLibroDiarioPartidas.IdConvenio = " & Forms!frm_Cross_Menu_PANELCENTRAL!IdConvenio & "; "

¿podrían darme algunas ideas, comentarios o ejemplos? para resolver este problema...

gracias de antemano

 Carlos Santa María
Guatemala Centro América

Editado por calucasanta - 05/Febrero/2011 a las 17:13