Access - Incrementar meses automaticamente

   
Vista:

Incrementar meses automaticamente

Publicado por Roberto robpersa@hotmail.com (145 intervenciones) el 20/09/2012 19:04:22
Hola. Tengo un formulario en el que tengo que introducir automáticamente los 12 meses del año con los salarios de empleados.Para eso tengo un campo en la tabla que se llama MES . Tengo el código hecho para que me añada los registros automáticamente pero lo que no consigo es que me incremente el mes en cada registro.
El mes de Enero le introduzco manualmente con su salario y luego con código tengo que añadir a la tabla los 11 registros siguientes correspondientes a los meses restantes hasta Diciembre.


Seria:

MES SALARIO
Enero 1.200
Febrero 1.200
..
..
..
..
Diciembre 1.400


Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Ing.Ramon Alexander Perez Batista

Incrementar meses automaticamente

Hola. como estas.
intentalo de esta forma.
dim smes,nmes,i as integer
dim salario as double
dim mes as string
'--------entrada de salario
salario=1200
'------cacturamos el mes que se intruduce
mes=txtmes.text
'almacena el numero del mes correspondiente al mes.


select case mes
case "Enero"
nmes=1
case "Febrero"
nmes=2
case "Marzo"
nmes=3
case "Abril"
nmes=4
case "Mayo"
nmes=5
case "Junio"
nmes=6
case "Julio"
nmes=7
case "Agosto"
nmes=8
case "Septiembre"
nmes=9
case "Octubre"
nmes=10
case "Noviembre"
nmes=11
case "Diciembre"
nmes=12
end select

'------utilizamos un bucle para sumar los meses
for i=1 to 12

select case nmes

case "1"
mes="Enero"
case "2"
mes="Febrero"
case "3"
mes="Marzo"
case "4"
mes="Abril"
case "5"
mes="Mayo"
case "6"
mes="Junio"
case "7"
mes="Julio"
case "8"
mes="Agosto"
case "9"
mes="Septiembre"
case "10"
mes="Octubre"
case "11"
mes="Noviembre"
case "12"
mes="Diciembre"
end select

'------------agrega los meses a una lista con su salario
list1.additem mes & " " & salario

nmes=nmes+1

if nmes=12 then
nmes=0
end if

next i

'----todo dentro de un command buton

espero que te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Incrementar meses automaticamente

Publicado por ROBERTO (145 intervenciones) el 24/09/2012 11:36:58
Gracias Ramon. Me ha servido perfectamente. Muchas gracias por tu ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Ing.Ramon Alexander Perez Batista

Incrementar meses automaticamente

Publicado por Ing.Ramon Alexander Perez Batista (2 intervenciones) el 24/09/2012 22:08:42
A la orden Roberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar