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


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

    avatar
    Carlos Rugno
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    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 : 3301
    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?


    .................................................................................
    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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/5/2021, 06:38