Início
![[Resolvido]como colocar um texto digitavel na sentença abaixo: Empty](https://2img.net/i/empty.gif)
Carlos Rugno 26/8/2020, 18:51Private Sub Btn_Reprogramar_Click()
If MsgBox("Confirmar a Reprogramação da Entrega Para 30 dias : " & Me.Integrante & " e EPI: " & Me.Descricao & " ?", vbInformation + vbYesNo, Mensagem) = vbYes Then
If Me.Status = "FECHADO" Then
CurrentDb.Execute "UPDATE tbl_Epis Set Sit = ('" & "R" & "'),Status = ('" & "REPROGRAMADO" & "'),DataReprogramacao = ('" & Date + 30 & "') Where CodEpei =" & Me.Cod_Epi & ""
End If
Form_sub_Epis_Lanc.Requery
carregaLista
SomPreto
End If
End Sub
Quero colocar por exemplo: o Motivo da Reprogramação
If MsgBox("Confirmar a Reprogramação da Entrega Para 30 dias : " & Me.Integrante & " e EPI: " & Me.Descricao & " ?", vbInformation + vbYesNo, Mensagem) = vbYes Then
If Me.Status = "FECHADO" Then
CurrentDb.Execute "UPDATE tbl_Epis Set Sit = ('" & "R" & "'),Status = ('" & "REPROGRAMADO" & "'),DataReprogramacao = ('" & Date + 30 & "') Where CodEpei =" & Me.Cod_Epi & ""
End If
Form_sub_Epis_Lanc.Requery
carregaLista
SomPreto
End If
End Sub
Quero colocar por exemplo: o Motivo da Reprogramação
Última edição por Carlos Rugno em 2/9/2020, 21:38, editado 4 vez(es) (Motivo da edição : quero gravar na tabela:tbl_Epis Campo:Motivo)
![[Resolvido]como colocar um texto digitavel na sentença abaixo: Favicon-16x16](https://www.udemy.com/staticx/udemy/images/v8/favicon-16x16.png)
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]![[Resolvido]como colocar um texto digitavel na sentença abaixo: Yt_16x10](https://i.servimg.com/u/f16/19/98/66/47/yt_16x10.png)
Conheça meu canal no Youtube e se inscreva.![[Resolvido]como colocar um texto digitavel na sentença abaixo: Marcel11](https://i.servimg.com/u/f16/19/98/66/47/marcel11.png)
