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:

    Carlos Rugno
    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
    • Mensagem nº1

    [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)
    • Ir para o topo
    Marcelo David
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3878
    Registrado : 21/04/2011
    • Mensagem nº2

    [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.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]como colocar um texto digitavel na sentença abaixo: Marcel11
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010
    • Mensagem nº3

    [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 vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº4

    [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

    • Ir para o topo
      Data/hora atual: 17/5/2024, 11:23