MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido]como colocar um texto digitavel na sentença abaixo:

    avatar
    Carlos Rugno
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 20/06/2013

    [Resolvido]como colocar um texto digitavel na sentença abaixo: Empty [Resolvido]como colocar um texto digitavel na sentença abaixo:

    Mensagem  Carlos Rugno 26/8/2020, 18:51

    Private 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


    Ú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)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3596
    Registrado : 21/04/2011

    [Resolvido]como colocar um texto digitavel na sentença abaixo: Empty Re: [Resolvido]como colocar um texto digitavel na sentença abaixo:

    Mensagem  Marcelo David 27/8/2020, 12:20

    Bom dia,

    Carlos Rugno escreveu:Quero colocar por exemplo: o Motivo da Reprogramação

    o Motivo da Reprogramação deve ser gravado onde? Qual tabela, qual campo e registro?


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]como colocar um texto digitavel na sentença abaixo: Marcel11
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3780
    Registrado : 04/04/2010

    [Resolvido]como colocar um texto digitavel na sentença abaixo: Empty Re: [Resolvido]como colocar um texto digitavel na sentença abaixo:

    Mensagem  Avelino Sampaio 27/8/2020, 12:40

    Olá!

    Se entendi, o senhor pode utilizar a função Inputbox() para capturar está informação do motivo.  Algo Assim:

    Dim strMotivo$
    ...
    strMotivo = inputbox("Qual é o motivo ?","Motivo")
    ...


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

      Data/hora atual: 24/9/2022, 21:19