[Resolvido]InputBox não abrir formulário se o registo não existe

Boa tarde Amigos

Se o número que pretende não existe não abre o formulário "frmReqAltera"

Private Sub Comando56_Click()
Dim x As String

x = InputBox("Informe o Nº de Requisição a Alterar ? ", "Valor")

If StrPtr(x) <> 0 Then

MsgBox "Esse Nº de Requisição Não Existe !", vbInformation, "Aviso"
Exit Sub

DoCmd.OpenForm "frmReqAltera", , , "[requisição]=" & Val(x)

End If

End Sub

Dim x,F As String

x = InputBox("Informe o Nº de Requisição a Alterar ? ", "Valor")
F= NZ(DCount("*","Tabela","[requisição] = " & x & ""),0)
If F>0 Then
   DoCmd.OpenForm "frmReqAltera", , , "[requisição]=" & Val(x)
else
   MsgBox "Esse Nº de Requisição Não Existe !", vbInformation, "Aviso"
End If

Obrigado Fabio

Mas se clicar em cancelar dá erro 3075

Assis:

Me parece que está usando msgbox com 3 botões, ao invés de 2 botões (Sim e Não).

Olha gente:

Não gosto do inputbox(), ele acaba com o profissionalismo do aplicativo.

E me desculpem a franqueza, é coisa para preguiçoso.

Melhor fazer um pequeno formulário de acordo com o layout do aplicativo.

Isso mantém o aplicativo elegante.

Digamos que a caixa de texto tenha o nome de txtNumReq
No evento após atualizar:

if isnull(me.txtNumReq) then
   msgbox"digite o número de requisiçoes, blablabla"
   exit sub  
Endif

If Dcount("*","Tabela","[requisição] =" &  me.txtNumReq) = 0 then
   msgbox "Numero de requisição inexistente"
else
  DoCmd.OpenForm "frmReqAltera", , , "[requisição] = " &  me.txtNumReq
End If

Balem

Fabio

Consegui resolver.

Obrigado


Noob

Gostei e guardei como exemplo.

E também gostei do "é coisa para preguiçoso"

Obrigado

Eu também não gosto! Muito Limitada e feia! rererererere

Grato pelo retorno e até a próxima se Deus quiser!

Ótimo amigos!

[ ]'s aos dois

Balem