MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    avatar
    Carlos Rugno
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    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 em Qua 26 Ago 2020, 14: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 Qua 02 Set 2020, 17:38, editado 4 vez(es) (Razão : quero gravar na tabela:tbl_Epis Campo:Motivo)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3206
    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 em Qui 27 Ago 2020, 08: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?


    .................................................................................
    Marcelo David | [Resolvido]como colocar um texto digitavel na sentença abaixo: LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3683
    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 em Qui 27 Ago 2020, 08: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!


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.

      Data/hora atual: Seg 30 Nov 2020, 01:59