Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas tardes,
Creo que el título de mi tema es un poco confuso, pero la consulta es la siguiente, tengo un userform en Excel que me envía la información a una tabla en Access, hasta ahí funciona todo de maravilla, pero que pasaría si por ejemplo en la columna [Cantidad] de Access, en la fila 15, quiero sumarle la cantidad que ya está ahí mas la cantidad que digité en el userform? por ejemplo, en Access tengo una columna [Cantidad] con los siguientes valores
ID Cantidad
1 5
2 12
3 15
entonces desde un textbox en un userform en excel, si yo digito 7 y quiero que esa data se sume a la celda con ID 2, el resultado final obtenido sería
ID Cantidad
1 5
2 19
3 15
el problema es que no sé como hacer eso, si logro hacer que el código me busque la ubicación de la ID 2 y la reemplace por el valor que deseo, pero lo que no consigo hacer es de que en lugar de reemplazo, que sume, multiplique, reste o divida, según sea la necesidad. El código que tengo para buscar una fila en Access y reemplazar valores es este:
Private Sub ActConte(ByVal nReg As Currency, ByVal NPallet As Currency) Dim Conn As ADODB.Connection Dim MiConexion Dim Rs As ADODB.Recordset Dim Base_Reportes As String Dim Query As String Dim i, j Dim Cuenta As Integer Dim Numero As Integer Dim Stock As Currency Base_Reportes = "BDPrograma.accdb" Set Conn = New ADODB.Connection MiConexion = Application.ThisWorkbook.Path & Application.PathSeparator & Base_Reportes With Conn .Provider = "Microsoft.ACE.OLEDB.12.0" .Open MiConexion End With Query = "UPDATE LContenedores SET [PALLET PROG] = '" & NPallet & "' WHERE [Id] = " & nReg Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseServer Rs.Open Source:=Query, _ ActiveConnection:=Conn 'Cerrar la conexión 'Rs.Close Conn.Close Set Rs = Nothing Set Conn = Nothing End Sub
"NPallet" es la cantidad de Pallets que tengo en un listbox según el ID, pero ahí lo que hace es reemplazarme los valores, traté de cambiar y colocar =[PALLET PROG] + NPallet pero no funciona, también puse =CDbl([PALLET PROG]) + CDbl(NPallet) pero me da un número que no tengo ni la mas mínima idea de donde sale, por ejemplo los valores son 2 en el listbox y 4 en la tabla de Access y el resultado que se pone luego es de 2250. Espero puedan ayudarme con la consulta, desde ya quedo muy agradecido por su tiempo