<TABLE cellSpacing=2 cellPadding=0 width="100%">
<T>
<TR>
<TD =#f2f5f7 colSpan=2>Hola que tal, tengo un problema para agregar un texto a un campo de otra tabla, lo que quiero hacer es de que es una estacion de una caja, y cuando el cajero le va a aplicar un pago pida primero si lo va hacer por efectivo o por Tajeta de credito, lo que quiero es cuando escoja uno de los 2, ese texto (Efectivo o Tarjeta) se almacene en un campo que hago llamar FORMA DE PAGO

declare en el evento vForma_de_Pago como un entero y MYSet5 ADODB.Recordset

tengo la idea pero todavia no la he definido bien de que sale el msg de texto y me pide una de las 2 al guardarlo se agregue en el campo con el texto:

1 - Efectivo
2 - Tarjeta


vForma_de_Pago = InputBox("FORMA DE PAGO(1.EFECTIVO, 2.TARJETA DE CREDITO)")

If Me.vForma_de_Pago = 1Then
Set MySet5 = New ADODB.Recordset

MySet5.Open "SELECT TOP 0 * FROM [Prestamos Personales movimientos agrupados]", MyDb, adOpenKeyset, adLockOptimistic
MySet5.AddNew
MySet5.("Forma de Pago") = Forms![Prstamos Personales Movimientos (SubFormulario Pagos Múltiples)]!Forma_de_Pago
MySet5.Update
MySet5.close
End If

Espero y me puedan ayudar, gracias.</TD></TR></T></TABLE>

que tal!, espero haberte entendido; lo que pretendes es guardar un Texto en un campo de alguna tabla, muy bien, verifica primero que tipo de dato estas almacenando en esa tabla (Cadena de texto o Char); segundo, para actualizar los campos desde un objeto RecordSet en Tiempo de ejecucion, debes asignarle un tipo de cursor al recordset

MySet5.CursorLoation = adUseClient

despues en la consulta si quieres todos los registros de la tabla entonces

MySet5.Open "SELECT * FROM Tabla_A_Trabajar", MyDb, adOpenDynamic, AdLockOptimistic

y luego puedes proceder a agregar un nuevo registro en la tabla

MySet5.AddNew

puedes actualizar el campo de esta manera

MySet5.Fields!["Nombre_de_Campo"] = Forma_De_Pago

si quieres actualizar un solo registro de la base de la tabla usa

MySet5.UpdateBatch

MySet5.Close

Hola que tal... con lo que me pones lo estoy checando y lo estoy poniendo asi.
Set MySet5 = New ADODB.Recordset

MySet5.CursorLocation = adUseClient
MySet5.Open "SELECT * FROM [Prestamos Personales movimientos agrupados]", MyDb, adOpenKeyset, adLockOptimistic
MySet5.AddNew
MySet5.Fields("Forma de pago") = InputBox("FORMA DE PAGO(1.EFECTIVO, 2.DEPOSITO A BANCOS)", )
MySet5.Update
MySet5.Close

que tal, tu código aparenta estar bien, pero si en dado caso te causa algun error al momento de actualizar (te lo menciono por experiencia), usa el método U

.....usa el método UpDateBatch

con respecto a que si estaba bien el codigo y si me trabaja bien solo una ultima pregunta como le asignaria aqui un If .... es que como el valor me lo guarda entero y yo quiero que sea el texto el que se registre en el campo. te lo agradeceria si me dieras una idea como aplicarlo, gracias.

mySet5.Fields!["Forma de Pago"] = iif (InputBox ("Forma de Pago ......", "Mensaje") = "1", "Efectivo", "Tarjeta de Crédito")