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


4 participantes

    [Resolvidos]If ElseIf, ao clicar mudar valores em textbox

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvidos]If ElseIf, ao clicar mudar valores em textbox Empty [Resolvidos]If ElseIf, ao clicar mudar valores em textbox

    Mensagem  Assis 25/2/2010, 18:55

    Boa tarde amigos, ca estou outra vez

    Tenho a caixa de texto que ao abrir o formulario tem o valor predeterminado de 65.

    No formulário que ao fazer click dentro dela muda o valor 12 e com mais um click para 1.

    Private Sub txtCopias_Click()
    If Me.txtCopias = 65 Then
    txtCopias = 12
    Else
    txtCopias = 1
    End If

    A questão é que eu queria que ela possa fazar o circuito complecto, assim:

    65 click 12 click 1 click 65 click 12 click 1

    Desde já agradeço
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvidos]If ElseIf, ao clicar mudar valores em textbox Empty Re: [Resolvidos]If ElseIf, ao clicar mudar valores em textbox

    Mensagem  criquio 25/2/2010, 19:28

    Tente assim:

    Private Sub txtCopias_Click()
    If Me.txtCopias = 65 Then
    txtCopias = 12
    ElseIf Me.txtCopias = 12 Then
    txtCopias = 1
    Else
    txtCopias = 65
    End If
    End Sub


    ou assim

    Private Sub txtCopias_Click()
    If Me.txtCopias = 65 Then
    txtCopias = 12
    ElseIf Me.txtCopias = 12 Then
    txtCopias = 1
    ElseIf Me.txtCopias = 1 Then
    txtCopias = 65
    End If
    End Sub


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvidos]If ElseIf, ao clicar mudar valores em textbox Empty Re: [Resolvidos]If ElseIf, ao clicar mudar valores em textbox

    Mensagem  Assis 25/2/2010, 23:46

    Obrigado criquio

    Espero um dia destes também ajudar
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvidos]If ElseIf, ao clicar mudar valores em textbox Empty Re: [Resolvidos]If ElseIf, ao clicar mudar valores em textbox

    Mensagem  criquio 26/2/2010, 00:28

    Valeu pelo retorno. Precisando, estamos aí.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    carlosfn
    carlosfn
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 39
    Registrado : 03/11/2009

    [Resolvidos]If ElseIf, ao clicar mudar valores em textbox Empty Re: [Resolvidos]If ElseIf, ao clicar mudar valores em textbox

    Mensagem  carlosfn 1/3/2010, 03:07

    fiz este codigo abaixo, que para variar nao funciona.....alguma sugestao?
    Private Sub Comando190_Click()
    If IsNull(Me.RT) Or Me.RT.Value = ""
    Me.RT.BackColor = 4210943
    If IsNull(Me.SE) Or Me.SE.Value = "" Then
    Me.SE.BackColor = 4210943
    If IsNull(Me.ORDEM) Or Me.ORDEM.Value = "" Then
    Me.ORDEM.BackColor = 4210943
    If IsNull(Me.KM) Or Me.KM.Value = "" Then
    Me.KM.BackColor = 4210943
    If IsNull(Me.CLIENTE) Or Me.CLIENTE.Value = "" Then
    Me.CLIENTE.BackColor = 4210943
    If IsNull(Me.RAMO_ATIVIDADE) Or Me.RAMO_ATIVIDADE.Value = "" Then
    Me.RAMO_ATIVIDADE.BackColor = 4210943
    If IsNull(Me.OC) Or Me.OC.Value = "" Then
    Me.OC.BackColor = 4210943
    If IsNull(Me.P) Or Me.P.Value = "" Then
    Me.P.BackColor = 4210943
    If IsNull(Me.T) Or Me.T.Value = "" Then
    Me.T.BackColor = 4210943
    If IsNull(Me.C) Or Me.C.Value = "" Then
    Me.C.BackColor = 4210943
    If IsNull(Me.ICV) Or Me.ICV.Value = "" Then
    Me.ICV.BackColor = 4210943
    If IsNull(Me.KG) Or Me.KG.Value = "" Then
    Me.KG.BackColor = 4210943
    If IsNull(Me.PRIORIDADE) Or Me.PRIORIDADE.Value = "" Then
    Me.PRIORIDADE.BackColor = 4210943
    If IsNull(Me.CREDITO) Or Me.CREDITO.Value = "" Then
    Me.CREDITO.BackColor = 4210943
    If IsNull(Me.PONTO_DE_REFERENCIA) Or Me.PONTO_DE_REFERENCIA.Value = "" Then
    Me.PONTO_DE_REFERENCIA.BackColor = 4210943
    MsgBox ("Campos precisam ser preenchidos")
    Me.RT.SetFocus
    Else
    Dim stDocName As String
    stDocName = "RL CLIENTE PARA CADASTRO"
    DoCmd.OpenReport stDocName, acPreview
    Exit Sub
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvidos]If ElseIf, ao clicar mudar valores em textbox Empty Re: [Resolvidos]If ElseIf, ao clicar mudar valores em textbox

    Mensagem  JPaulo 1/3/2010, 09:31

    Private Sub Comando190_Click()
    Dim stDocName As String
    If IsNull(Me.RT) Or Me.RT.Value = "" Then
    Me.RT.BackColor = 4210943
    ElseIf IsNull(Me.SE) Or Me.SE.Value = "" Then
    Me.SE.BackColor = 4210943
    ElseIf IsNull(Me.ORDEM) Or Me.ORDEM.Value = "" Then
    Me.ORDEM.BackColor = 4210943
    ElseIf IsNull(Me.KM) Or Me.KM.Value = "" Then
    Me.KM.BackColor = 4210943
    ElseIf IsNull(Me.Cliente) Or Me.Cliente.Value = "" Then
    Me.Cliente.BackColor = 4210943
    ElseIf IsNull(Me.RAMO_ATIVIDADE) Or Me.RAMO_ATIVIDADE.Value = "" Then
    Me.RAMO_ATIVIDADE.BackColor = 4210943
    ElseIf IsNull(Me.OC) Or Me.OC.Value = "" Then
    Me.OC.BackColor = 4210943
    ElseIf IsNull(Me.P) Or Me.P.Value = "" Then
    Me.P.BackColor = 4210943
    ElseIf IsNull(Me.T) Or Me.T.Value = "" Then
    Me.T.BackColor = 4210943
    ElseIf IsNull(Me.C) Or Me.C.Value = "" Then
    Me.C.BackColor = 4210943
    ElseIf IsNull(Me.ICV) Or Me.ICV.Value = "" Then
    Me.ICV.BackColor = 4210943
    ElseIf IsNull(Me.KG) Or Me.KG.Value = "" Then
    Me.KG.BackColor = 4210943
    ElseIf IsNull(Me.PRIORIDADE) Or Me.PRIORIDADE.Value = "" Then
    Me.PRIORIDADE.BackColor = 4210943
    ElseIf IsNull(Me.CREDITO) Or Me.CREDITO.Value = "" Then
    Me.CREDITO.BackColor = 4210943
    ElseIf IsNull(Me.PONTO_DE_REFERENCIA) Or Me.PONTO_DE_REFERENCIA.Value = "" Then
    Me.PONTO_DE_REFERENCIA.BackColor = 4210943
    MsgBox ("Campos precisam ser preenchidos")
    Me.RT.SetFocus
    Exit Sub
    Else
    stDocName = "RL CLIENTE PARA CADASTRO"
    DoCmd.OpenReport stDocName, acPreview
    End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvidos]If ElseIf, ao clicar mudar valores em textbox Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvidos]If ElseIf, ao clicar mudar valores em textbox Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvidos]If ElseIf, ao clicar mudar valores em textbox Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvidos]If ElseIf, ao clicar mudar valores em textbox Empty Re: [Resolvidos]If ElseIf, ao clicar mudar valores em textbox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 08:44