Ir para conteúdo
Fórum Script Brasil
  • 0

Problemas no código Access VBA


Douglas Goulart

Pergunta

Boa noite,
Estou desenvolvendo um programa em VBA Access e estou com dificuldades de quando não existir nenhum dado sobre determinado relatório, ele mandar uma mensagem dizendo que não encontrou nada e daí voltar para o formulário de relatório e quando selecionar os outros, não apresentar tal mensagem. A dificuldade está no Case 2 deste código (que está em negrito)
Eis o código:
Private Sub btnVisualizar_Click()
If gpRelatorios.Value <> 0 Then
    Dim rel As String
    Dim filtro As String
    filtro = ""
    Select Case gpRelatorios.Value
        Case 1
            If IsNull(txtInicial.Value) Or IsNull(txtFinal.Value) Then
                MsgBox "Informe as duas datas", vbInformation, "Atenção!"
                Exit Sub
            End If
            rel = "relPorData"
        Case 2
            If Viaturas.Value = 0 Then
                MsgBox "Selecione uma Viatura", vbInformation, "Atencão!"
                Exit Sub
            Else
                If Viaturas.Value <> "" Then
                MsgBox "Dados não existem!", vbInformation, "Atenção!"
                Viaturas.Enabled = False
                End If
                Viaturas.Enabled = True
                rel = "relPorViatura"
            End If

Alguém pode me dar essa ajuda?
Aguardo em QRX
[]'s

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...