<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>