Atualizar salário na tabela
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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 |