MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Inputbox erro

    Compartilhe
    avatar
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    [Resolvido]Inputbox erro

    Mensagem  Roberto_1977 em Qui Jul 31, 2014 10:46 am

    Bom dia a todos,

    Estou com um problema com um "Inputbox".
    Caso a pessoa click em "Cancel" ou "fecha Input [X]" da erro.
    Qual a melhor forma para contornar problema?

    Private Sub Command345_Click()

    If Text350.Value > Text327.Value Then
    Text329.Value = Text327.Value + InputBox(vbCrLf & vbCrLf & "Nº Rolos já Filtrados " & Me.Text327 - 1 & " de " & Me.Text350 & vbCrLf & "Qual é a quantidade de rolos a filtrar?", "Nº Rolos")
    DoCmd.Requery
    Command344_Click

    End If
    End Sub

    Obrigado Smile
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Inputbox erro

    Mensagem  Avelino Sampaio em Qui Jul 31, 2014 11:03 am

    Olá!

    Veja a minha dica 22:

    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso!
    avatar
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Inputbox erro

    Mensagem  Roberto_1977 em Qui Jul 31, 2014 11:17 am

    Bom dia Avelino,

    Quem sabe sabe...
    Ficou a funcionar na perfeição...  cheers cheers 

    Obrigado pela dica.

      Data/hora atual: Sab Abr 29, 2017 2:15 pm