Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal boa noite, ou madrugada...rsrs
Sou iniciante em VBA e preciso de ajuda para resolver uma questão. Peço desculpas se minha pergunta é fora do foco deste fórum mas realmente tirar esta dúvida me fará melhorar muito os meus estudos em VBA. Preciso gravar em uma tabela dados de um campo de formulário que foram obtidos da multiplicação de outros dois campos(exemplo:Horas X Valor Hora). A multiplicação funcionou legal mas o FORM não grava os dados na tabela. Gostaria de gravar estes dados na tabela usando o VBA. Tem como eu fazer isso? alguém poderia me ajudar por gentileza? Fico muito grato e me perdoem eventuais falhas.
Abaixo segue o código que fiz no botão salvar do FORM.
Abraço a todos.
' -----------------------------------------------------------
Private Sub BotaoSalvar_Click()
If IsNull(Me.Descricao) Then
MsgBox "Preencher campo descrição por favor", vbInformation, "Houve uma falha no cadastro"
Descricao.SetFocus
Cancel = True
ElseIf Me.HoraInicial <= 0 Then
MsgBox "Atenção! O total de horas do serviço realizado não foi informado corretamente", vbInformation, "Houve uma falha no cadastro"
HoraInicial.SetFocus
Cancel = True
ElseIf IsNull(Me.CustoHora) Then
MsgBox "Atenção! Você não especificou o custo/hora!", vbInformation, "Houve uma falha no cadastro"
CustoHora.SetFocus
Cancel = True
ElseIf Me.TotalHoras = "0" Then
MsgBox "Algo de errado ocorreu. Vejo o total de horas decimais como Zeradas!", vbInformation, "Houve uma falha no cadastro"
TotalHoras.SetFocus
Cancel = True
ElseIf IsNull(Me.CustoTotalHoras) Then
MsgBox "Não há soma de valores, confira os dados!", vbInformation, "Houve uma falha no cadastro"
CustoTotalHoras.SetFocus
Cancel = True
Else
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Seu cadastro foi realizado ou as alterações foram salvas!", vbOKOnly + vbInformation, "Cadastro ou alterações realizadas com sucesso"
End If
End Sub
' -----------------------------------------------------------
Carregando comentários...