Anónimo
NC de Clientes
Esta Pregunta la hice a JJ77, pero no se encuentra disponible. Eres mi tercer experto espero me puedas ayudar.
Por eso busco en ti alguna respuesta a mi consulta. Te coloco el Texto completo como aparece en mi pregunta original.
Por favor, necesito de tu ayuda
Mi pregunta va encaminada hay posibilidad si mediante una consulta actualizar una tabla.
Base BC
TBC1 debo actualizar TBC2
Tabla TBC2 es una copia de la tabla TBC1.
Estructura TBC1
Numero NC REP Monto SALDO
1535 NO 3635
1535 NO 50
1535 SI 58147 789
1535 NO 571
1535 NO 9488
1535 NO 250
1535 NO 21789
1535 NO 166
1535 NO 4000
1535 NO 57192
14637 SI 56894 13009
14637 NO 8990
14637 NO 4000
14637 NO 12480
14637 NO 4989
14637 NO 4000
14637 NO 337
14637 NO 9089
14637 NO 100
14637 NO 2500
Necesito copiar según ciertas condiciones los datos de la tbc1 a la tbc2
Condiciones:
1.- La suma del monto debe ser igual a la suma del saldo. Aquellos registros que cumplan el numero igual y sumas iguales.
2.- Los números son iguales para varios montos y saldos.
3.- Los montos están sólo una vez indistintamente, hay más de un saldo
numero Monto saldo
1535 58147 3634
1535 50 y así hacia abajo
4.- En el campo NC debe actualizarse el campo con las letras "NC"
Numero NC REP Monto SALDO
NC
Esto según condiciones 1, 2
Espero este clara mi pregunta.
Aclaración que me solicito JJ77.
Has de cuenta que son columnas de excel donde esta Numero, NC, REP, Monto, Saldo.
1.- Quiero saber si hay alguna forma de sumar los montos siempre y cuando tengan el mismo numero ejm.: monto1=monto1 + Monto
monto1 = 58147 Dentro de esta columna los montos sólo aparecen una vez.
2.- Por la misma condición anterior se suman los Saldos ejm:
saldo1= saldo1 + Saldo
saldo1= 3635+50+789+571+9488+250+21789+166+4000+57192
3.- Como saldo1>monto1 no se deben copiar a la TBC2. Sólo aquellos que cumplan la siguiente. Condición monto1=saldo1.
4.- Al copiar las columnas a TBC2 se debe marcar en NC con las letras "NC", siempre que se cumpla que los numero sean iguales, y los Montos = Saldos.
Adjunto un pequeño programa que estuve realizando. Pero supero.
Do While Not tabla.EOF
If tabla.EOF Then
Exit Do
Else
num_1 = tabla.Fields("numero")
'Debug.Print num_1
If (tabla.Fields("Monto1")) > 0 Then
acum_monto1 = tabla.Fields("Monto1")
End If
Debug.Print acum_monto1
End If
tabla.MoveNext
Loop
Espero que este más claro esta vez.
De antemano muchas gracias.
Por eso busco en ti alguna respuesta a mi consulta. Te coloco el Texto completo como aparece en mi pregunta original.
Por favor, necesito de tu ayuda
Mi pregunta va encaminada hay posibilidad si mediante una consulta actualizar una tabla.
Base BC
TBC1 debo actualizar TBC2
Tabla TBC2 es una copia de la tabla TBC1.
Estructura TBC1
Numero NC REP Monto SALDO
1535 NO 3635
1535 NO 50
1535 SI 58147 789
1535 NO 571
1535 NO 9488
1535 NO 250
1535 NO 21789
1535 NO 166
1535 NO 4000
1535 NO 57192
14637 SI 56894 13009
14637 NO 8990
14637 NO 4000
14637 NO 12480
14637 NO 4989
14637 NO 4000
14637 NO 337
14637 NO 9089
14637 NO 100
14637 NO 2500
Necesito copiar según ciertas condiciones los datos de la tbc1 a la tbc2
Condiciones:
1.- La suma del monto debe ser igual a la suma del saldo. Aquellos registros que cumplan el numero igual y sumas iguales.
2.- Los números son iguales para varios montos y saldos.
3.- Los montos están sólo una vez indistintamente, hay más de un saldo
numero Monto saldo
1535 58147 3634
1535 50 y así hacia abajo
4.- En el campo NC debe actualizarse el campo con las letras "NC"
Numero NC REP Monto SALDO
NC
Esto según condiciones 1, 2
Espero este clara mi pregunta.
Aclaración que me solicito JJ77.
Has de cuenta que son columnas de excel donde esta Numero, NC, REP, Monto, Saldo.
1.- Quiero saber si hay alguna forma de sumar los montos siempre y cuando tengan el mismo numero ejm.: monto1=monto1 + Monto
monto1 = 58147 Dentro de esta columna los montos sólo aparecen una vez.
2.- Por la misma condición anterior se suman los Saldos ejm:
saldo1= saldo1 + Saldo
saldo1= 3635+50+789+571+9488+250+21789+166+4000+57192
3.- Como saldo1>monto1 no se deben copiar a la TBC2. Sólo aquellos que cumplan la siguiente. Condición monto1=saldo1.
4.- Al copiar las columnas a TBC2 se debe marcar en NC con las letras "NC", siempre que se cumpla que los numero sean iguales, y los Montos = Saldos.
Adjunto un pequeño programa que estuve realizando. Pero supero.
Do While Not tabla.EOF
If tabla.EOF Then
Exit Do
Else
num_1 = tabla.Fields("numero")
'Debug.Print num_1
If (tabla.Fields("Monto1")) > 0 Then
acum_monto1 = tabla.Fields("Monto1")
End If
Debug.Print acum_monto1
End If
tabla.MoveNext
Loop
Espero que este más claro esta vez.
De antemano muchas gracias.
1 respuesta
Respuesta de yescuder
1
A ver si te entiendo, tienes una tabla con la siguiente estructura, Numero, NC, Rep, Monto y Saldo, lo que quieres es sumar el "monto" y el "saldo" para cada "Numero", y si esta suma da igual es decir, "suma(monto)=suma(saldo)", entonces quieres hacer una copia de estos registros en otra tabla y en esta tabla cambiar el valor del campo NC por el valor "NC". ¿Es esto lo que quieres? Si es así entonces haz una consulta que sume el campo monto, y sume el campo saldo, agrupado por Numero, luego recorres el resultado de esta consulta preguntan si la suma de monto es igual a la suma de saldo, y si esto se cumple entonces haces una consulta que obtiene todos los registros del mismo Numero y los insertas en la otra tabla, y finalmente haces un Update a los registros pasados. Y así sucesivamente hasta recorrer toda la consulta inicial.