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]Saber se tabela na minha base de dados está vazia

    Compartilhe

    sedatedgurl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 2
    Registrado : 08/12/2017

    [Resolvido]Saber se tabela na minha base de dados está vazia

    Mensagem  sedatedgurl em 8/12/2017, 17:35

    Ola, gostaria como poderia saber se uma das minhas tabelas está vazia já tentei de varias formas mas sempre sem sucesso e além do mais sou meio novinha neste assunto. o meu codigo é o seguinte:

    Código:
    Sub VerificaPrimeiraVez()
           Try
              sql= "select Nome from Hotel NOTNULL"
               If sql=true Then  
                   If MsgBox("Deseja registrar os dados do seu hotel? ", MsgBoxStyle.YesNo, "Dados Empresariais") = MsgBoxResult.Yes Then
                       Registo.ShowDialog()
                   Else
                       MsgBox("Precisa de se registar para poder utilizar a aplicação.")
                       Application.Exit()
                   End If
               Else
                   Me.ShowDialog()
               End If

           Catch ex As Exception
               MsgBox(ex.Message)
           End Try


       End Sub

    obrigado e desculpem a minha falta de jeito para isto


    Última edição por sedatedgurl em 9/12/2017, 18:59, editado 2 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5549
    Registrado : 15/03/2013

    Re: [Resolvido]Saber se tabela na minha base de dados está vazia

    Mensagem  ahteixeira em 8/12/2017, 18:13

    Olá Tânia Alexandra, Bem-Vinda ao fórum!

    Este fórum é de MS Access não VB.NET

    Para o que pretende em Access, será algo assim:
    Código:
    'ahteixera 2017 para MaximoAccess
    Dim dblContador As Double
    dblContador = DCount("*", "Hotel")

    If dblContador = 0 Then
        If MsgBox("Deseja registrar os dados do seu hotel? ", vbYesNo, "Dados Empresariais") = vbYes Then
            'Registo.ShowDialog()
        Else
            MsgBox ("Precisa de se registar para poder utilizar a aplicação.")
            DoCmd.Quit
        End If
    Else
        'Me.ShowDialog()
    End If

    Abraço

    sedatedgurl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 2
    Registrado : 08/12/2017

    Re: [Resolvido]Saber se tabela na minha base de dados está vazia

    Mensagem  sedatedgurl em 8/12/2017, 18:33

    mt obrigado
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5549
    Registrado : 15/03/2013

    Re: [Resolvido]Saber se tabela na minha base de dados está vazia

    Mensagem  ahteixeira em 9/12/2017, 13:07

    Olá Tânia Alexandra, obrigado pelo retorno.

    Se a dúvida ficou esclarecida, não se esqueça de dar o tópico como Resolvido, veja como fazer:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

      Data/hora atual: 21/10/2018, 11:41