MaximoAccess

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

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 31 Jul 2014, 9: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 : 3383
    Registrado : 04/04/2010

    Re: [Resolvido]Inputbox erro

    Mensagem  Avelino Sampaio em Qui 31 Jul 2014, 10: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 31 Jul 2014, 10:17 am

    Bom dia Avelino,

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

    Obrigado pela dica.

      Data/hora atual: Seg 26 Jun 2017, 12:03 pm