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 não abrir formulário se o registo não existe

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Ter 24 Abr 2018, 17:53

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3899
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Ter 24 Abr 2018, 18:18

    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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Ter 24 Abr 2018, 18:34

    Obrigado Fabio

    Mas se clicar em cancelar dá erro 3075





    .................................................................................
    *** Só sei que nada sei ***

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em Ter 24 Abr 2018, 22:00

    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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Ter 24 Abr 2018, 23:07

    Fabio

    Consegui resolver.

    Obrigado


    Noob

    Gostei e guardei como exemplo.

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

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3899
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qui 26 Abr 2018, 13:25

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

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


    Última edição por FabioPaes em Qui 26 Abr 2018, 13:39, editado 1 vez(es)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em Qui 26 Abr 2018, 13:28

    Ótimo amigos!

    [ ]'s aos dois cheers

    Balem

      Data/hora atual: Dom 27 Maio 2018, 09:12