MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Verifica se Inputbox esta Vazia

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 908
    Registrado : 09/11/2012

    [Resolvido]Verifica se Inputbox esta Vazia Empty [Resolvido]Verifica se Inputbox esta Vazia

    Mensagem  =>Nois Seg 09 Nov 2020, 1:58 pm

    Boa tarde!

    gostaria de verificação se a inputbox esta vazia,
    eu hoje crio uma caixa de texto que recebe o valor, tem outra forma?

    tipo if varTxt = null then ("Dessa forma nao funciona")

    Código:
    On Error Resume Next

    Dim varTxt As String

    varTxt = InputBox("Informe um novo Item:", "Cadastro", "")

    Me.txtTeste = varTxt

    If Me.txtTeste = "" Then

        Exit Sub

    Else

        Dim db As Database, rs As Recordset
       
            Set db = CurrentDb()
            Set rs = db.OpenRecordset("tipoveiculo")

                rs.AddNew

                rs("TIPO_VEICULO") = varTxt

                rs.Update
               
                rs.Close ' Fecha a tabela
                Set rs = Nothing ' Limpa a tabela da memória
                db.Close ' Fecha o Database
                Set db = Nothing ' Limpa o Database da memória


        Me.Tipo_Veiculo.Requery
        Me.Tipo_Veiculo = varTxt

    End If


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1715
    Registrado : 23/01/2018

    [Resolvido]Verifica se Inputbox esta Vazia Empty Re: [Resolvido]Verifica se Inputbox esta Vazia

    Mensagem  crysostomo Seg 09 Nov 2020, 2:11 pm

    tenta esse

    Código:
    if isnull(txtTeste ) then
     ou

    Código:
    If Len("" & txtTeste ) = 0 Then MsgBox "Caixa está vazia", vbInformation, "": Exit Sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 908
    Registrado : 09/11/2012

    [Resolvido]Verifica se Inputbox esta Vazia Empty Re: [Resolvido]Verifica se Inputbox esta Vazia

    Mensagem  =>Nois Seg 09 Nov 2020, 2:26 pm

    não era isso que eu queria

    por vez encontrei a explicação que precisava no topico do JP

    maximoaccess.com/t15560-como-reconhecer-o-cancel-de-uma-inputbox


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: Qui 17 Jun 2021, 3:25 pm