[Resolvido]Inputbox erro

Convidado 31/7/2014, 10:46

Convidado: Convidado

Mensagem nº1

[Resolvido]Inputbox erro

Mensagem Convidado 31/7/2014, 10:46

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

**Avelino Sampaio** 31/7/2014, 11:03

Avelino Sampaio

Avelino Sampaio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010

Mensagem nº2

Re: [Resolvido]Inputbox erro

Mensagem Avelino Sampaio 31/7/2014, 11:03

Olá!

Veja a minha dica 22:

http://www.usandoaccess.com.br/dicas/dica45.asp?id=1&idlista=174#inicio

Sucesso!

.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.