Como comprenderás es muy difícil, por no decir imposible decirte algo concreto sin saber como contabilizáis las nóminas, de que conceptos constan, si las nóminas son diferentes a cada mes, como se quiere ver, que tipo de formulario y un largo etcétera.
Por ejemplo, y como te digo, sin saber como trabajas, si tengo una tabla Empleados con los datos que nunca o casi nunca cambian, como puede ser Nombre, DNI, etc.
Y una tabla Nóminas
Ambas están relacionadas por el Idempleado. El de Empleados es autonumérico y el otro es numérico. Una relación UN empleado VARIAS nóminas y con ambas hago un formulario con subformulario
Lógicamente la primera vez habrá que poner los datos
Vamos a suponer que llega Febrero y va a cobrar exactamente lo mismo. Pulso el botón Repetir Nómina y
He pensado que usáis el formato americano de fechas, o sea, mm/dd/aaaa
El código del botón y del subformulario en general es
Private Sub Comando16_Click()
DoCmd.SetWarnings False
DoCmd. RunSQL "insert into nominas(idempleado, fecha, salariobase, irpf, ssocial, retenciones, liquido, anticipos, percibir)values" _
& "(idempleado,#" & DateAdd("m", 1, [Fecha]) & "#,salariobase,irpf,ssocial,retenciones,liquido,anticipos,percibir)"
Me.Requery
End Sub
Private Sub Percibir_GotFocus()
Percibir = Liquido - Nz([Anticipos])
End Sub
Private Sub Retenciones_AfterUpdate()
Liquido = SalarioBase - IRPF - SSocial - Retenciones
Anticipos.SetFocus
End Sub