¿Código para poner un botón en el formulario de modificación que guarde el registro?

Haber... dime el formulario de modificación, ¿no esta amarrado a la tabla?, ¿Solo es de lectura?.. porque lo puedes abrir FILTRANDO los datos,... y así todo lo que modifiques queda guardado automáticamente...
Att:telemaco

No en base a un ejemplo de otro lado le puse un código a un botón modificar:
Private Sub CmdModificar_Click()
'Abre y Carga a Modificaciones el registro seleccionado
DoCmd.OpenForm "FrmModProductos"
Form_FrmModProductos.Cod_Prod = LstProd.ItemData(LstProd.ListIndex)
DoCmd.Close acForm, "FrmProductos"
SendKeys "{ENTER}", True
End Sub
y al formulario modificaciones:
Private Sub Cod_Prod_LostFocus()
'Recibe y rellena los campos para modificar
On Error GoTo Err
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Select * From TbdProductos Where Cod_Prod='" & Cod_Prod & "'")
Nom_Prod = rst!Nom_Prod
Nom_Prod.SetFocus
Err:
Exit Sub
End Sub
Pero si tu me dices que existe otra forma te lo voy a agradecer esto me funciona como yo quiero solo que no se que poner en el botón modificar del frmModProductos para guardar los cambios la verdad apenas me estoy metiendo con programación porque me gustaría aprender entonces en base a los ejemplos que encuentro lo voy diseñando
gracias

Lo que debes hacer es crear un formulario basado en tu tabla... como sabes para eso son los formularios... el te visualizara todos los registros... ahora podemos utilizar este formulario para abrir en modo "modificar", pero que solo me muestre el registro que quiero arreglar, como sabes los formularios me muestran TODOS LOS REGISTROS... ahora solo necesito utilkizar este formulario, para no crear más y desperdiciar rendimiento y tamaño de disco, entonces este seria el código del botón:
*********************
Private Sub CmdModificar_Click()
DoCmd.OpenForm "FrmModProductos",,,"cod_prod=" & LstProd.ItemData(LstProd.ListIndex) & "")
DoCmd.Close acForm, "FrmProductos"
End Sub
*********************
Y listo... no necesitas del otro código en el formulario... YA QUE COMO ESTA AMARRADO A UNA TABLA, MOSTRARA LOS DATOS "FILTRADOS", SEGÚN LO QUE SELECCIONES EN EL CUADOR DE LISTA...
COMO TEPUEDES DAR CUENTA en el método OpenForm, ademas de mandar el nombre del formulario, lemando el filtro.. que es el tercer criterio delmetodo OpenForm (mira las comas)...
OJO: EL FORMULARIO "FrmModProductos" debe estar amarrado a la tabla que mostrara los datos... sino te mostrara todo vacío... ademas las cajas de texto.. estarán amarradas a los campos de esta tabla..
Att:telemaco

Hola
Disculpa la molestia pero cuando escribo el código en la primer linea me dice que se esperaba fin de la instrucción
Gracias

El código te mande lo debes colocar sin los asteriscos, Y REEMPLAZAR EL QUE TENIAS, osea quedaría:
Private Sub CmdModificar_Click()
DoCmd.OpenForm "FrmModProductos",,,"cod_prod=" & LstProd.ItemData(LstProd.ListIndex) & "")
DoCmd.Close acForm, "FrmProductos"
End Sub
REVISA QUE EL END SUB...no este repetido, y tampoco este repetido Private Sub CmdModificar_Click()
Solo deben estar una vez...
Me avisas
Att:telemaco

Hola:
Mira fíjate que amarro el formulario ala tabla y me pasan unos casos:
1.Pongo el código ya cheque bien y me pone que falta fin de instrucción y se pone en rojo toda la linea
2. Si pongo un paréntesis ya sea antes del primero que esta en lstprod o después del primer ampersand, me abre el formulario pero sin datos.
3. Si pongo lo del segundo caso pero al frmModificaciones le pongo entrada de datos no, ¿me pide introduzca el valor del parámetro
que sera?
De antemano agradezco todas tus molestias
att:Ariel