... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Atualizar salário na tabela

Usuário Rosano:

Bom Dia!

Tenho uma lista de pessoas para pagar mensalmente. Gostaria de saber se tem alguma fórmula no Microsoft Access, para que eu possa colocar em um formulário, somente o nome do mês e o valor do salário, de modo que isso se reproduza para toda as pessoas que constarem na tabela.

Sempre tive curiosidade em fazer uma folha de pagamento mensal no Access.

Se  puder me ajudar, agradeço muito!

Suporte:

Rosano,

não entendi muito bem. Você paga o mesmo valor para todas as pessoas?

Usuário Rosano:

Sim,

neste exemplo todos ganham Salário Mínimo.

Suporte:

Rosano,

segue a programação que elaborei, baseada no arquivo exemplo que você me forneceu.

Private Sub btLancar_Click()
Dim rs As DAO.Recordset
Dim strsql As String
If DCount("*", "pagamentos mensais", "mês = #" & Format(Me!cboData.Column(1), "mm/dd/yyyy") & "#") > 0 Then
    MsgBox "Este mês/ano já foi lançado...", vbInformation, "aviso"
    Exit Sub
End If
strsql = "SELECT id_ap FROM [Lista de Aposentados];"
Set rs = CurrentDb.OpenRecordset(strsql, 8)
Do While Not rs.EOF
    strsql = "INSERT INTO [pagamentos Mensais] (id_ap,Ano,Mês,[vr Bruto]) "
    strsql = strsql & "VALUES ('" & rs!id_ap & "','" & Me!cboData.Column(2) & "','" & Me!cboData.Column(1)
    strsql = strsql & "','" & Me!cboData.Column(3) & "');"
    CurrentDb.Execute strsql
    rs.MoveNext
Loop
rs.Close
MsgBox "Lançamento efetuado...", vbInformation, "Aviso"
End Sub

Para testar, abra o formulário de frmTeste, escolha o mês/ano e clique em lançar. Após o lançamento, abra a tabela pagamentos mensais e veja se é isto o que deseja.

Usuário Rosano:

FANTÁSTICO!

Detonou mais uma vez!

Download

 


 

 


Não há comentário

Envie seu comentário: