Pasar registros de un subformulario a otro
Tengo un formulario que tiene dos formularios..
El formulario se llama licitaciones
Y tiene dos subformulario uno que se llama Ptecnica con los siguientes campos(Idpropuestas, Fecha, Denominación, Empresa, Dirección, Ciudad, Estado, RFC, Telefono01, Fax, Observacions, Desechado"si/no") y otro Peconomica (Idpropuestas, Fecha, Denominación, Empresa, Observacions, Desechado"si/no"al dar un clic en botón que se llama generar propuesta económica pase los campos de Ptecnica pero solo los que estén marcados como "no" en el campo ("desechedao") a Peconomica
Ptecnica(esta vinculado al formulario licitaciones por el campo ("id") y Peconomica por el campo ("Ideconomica")
El formulario se llama licitaciones
Y tiene dos subformulario uno que se llama Ptecnica con los siguientes campos(Idpropuestas, Fecha, Denominación, Empresa, Dirección, Ciudad, Estado, RFC, Telefono01, Fax, Observacions, Desechado"si/no") y otro Peconomica (Idpropuestas, Fecha, Denominación, Empresa, Observacions, Desechado"si/no"al dar un clic en botón que se llama generar propuesta económica pase los campos de Ptecnica pero solo los que estén marcados como "no" en el campo ("desechedao") a Peconomica
Ptecnica(esta vinculado al formulario licitaciones por el campo ("id") y Peconomica por el campo ("Ideconomica")
1 respuesta
Respuesta de edujim
1
dim rstsub1 as recordset, rstsub2 as recordset
' Se asume que esta logica se ejecuta desde algun evento del formulario principal
set rstsub1=Ptecnica.recordsetclone()
set rstsub2=Peconomica.recordsetclone()
rstsub1.movefirst
do until rstsub1.eof
if not rstsub1!Desechado then
rstsub2.addnew
rstsub2!Campo1=rstsub1!Campo1
' asi todos los campos a pasar
rstsub2.update
rstsub1.movenext
loop
rstsub1.close:rstsub2.close
' para que se vean las adiciones en el formulario
peconomica.requery
' Se asume que esta logica se ejecuta desde algun evento del formulario principal
set rstsub1=Ptecnica.recordsetclone()
set rstsub2=Peconomica.recordsetclone()
rstsub1.movefirst
do until rstsub1.eof
if not rstsub1!Desechado then
rstsub2.addnew
rstsub2!Campo1=rstsub1!Campo1
' asi todos los campos a pasar
rstsub2.update
rstsub1.movenext
loop
rstsub1.close:rstsub2.close
' para que se vean las adiciones en el formulario
peconomica.requery
Hice todo los pasos a como me indicas pero me marca error me dice recordsetclone() no es un comando válido, si lo hago directamente con las tablas si funciona.. pero no me lo jalo como quiero de todas maneras es buena respuesta.. si fueras tan amable de enviarme un ejemplo mi correo es [email protected]
