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]Dados em formulário com controle guia

    Compartilhe

    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 25/07/2017

    [Resolvido]Dados em formulário com controle guia

    Mensagem  alantb em Sex 04 Ago 2017, 15:16

    Olá, inseri um Controle Guia em um formulário (frmBoletim) inseri textboxs, labels,etc. O primeiro comando que estou tentando executar é uma CONSULTA. Já tentei em vários eventos: EXIT, LOSTFOCUS, AFTER_UPDATE e Click de um botão (cmdConsultar), mas não puxa os dados que inseri na tabela(tbFormulario). Ocorre sempre erro em tempo de execução 91 "váriavel do objeto ou variável do bloco with nao foi definida". Isso ocorre sempre no ínicio, no módulo (ModuloConexao).Para melhor exemplificar segue o arquivo em anexo. Para testar: executar o "frmBoletim" e digitar o código "1", pois inseri apenas um registro na tabela para teste.Obrigado!!

    ALAN
    Anexos
    promo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (238 Kb) Baixado 20 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Dados em formulário com controle guia

    Mensagem  JPaulo em Ter 08 Ago 2017, 15:50

    Ola;

    O currentdb tem de instanciar dentro da função, o resto pode ficar fora;

    Código:
    Public Comando As String 'variavel ondem serão colocados os comandos SQL, como Insert, Update e Select
    Public dataset As DAO.Recordset 'variavel ondem serão passados comandos SQl do tipo select que vão preenche-lo e colocarão os dados em uma especia de tabela virtual na memória RAM

    Function valida_selecao()
    Dim Banco As DAO.Database

    Set Banco = CurrentDb
    Set dataset = Banco.OpenRecordset(Comando, dbOpenDynaset)  'inicializa o dataset, executa o comando sql passado através da variavél Comando e preenche o dataset na memória

    End Function

    E no código de preenchimento do recordset, dentro do seu formulario, tem de alterar apenas o 1º campo de .Text, para .Value ou nada.

    Código:
    Me.txtDe = dataset("dtDe")

    Deve criar ainda uma outra função para fechar o recordset, senão o seu banco vai corromper;

    No Módulo:
    Código:
    Public Function fecharecordset()
    On Error Resume Next
        If Not dataset Is Nothing Then
            dataset.Close: Set dataset = Nothing
        End If
    End Function

    No final do código no seu formulario, chama a função;

    Código:
          Else 'caso não tenha sido achado nenhum registro
              MsgBox ("Não foi achado nenhum registro com o código informado!"), vbInformation + vbOKOnly, "Nenhum Registro"
          End If
      Else
          MsgBox ("Necessário informar um código para efetuar a consulta!"), vbInformation + vbOKOnly, "Codigo Necessário!"
      End If
      Call fecharecordset


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 25/07/2017

    Re: [Resolvido]Dados em formulário com controle guia

    Mensagem  alantb em Sex 15 Set 2017, 18:27

    JPAULO, suas informações foram muito utéis , mas ainda falta algo, em todo caso usei as dicas em outras partes do código. Por enquanto vamos encerrar por aqui.Valeu!!

    ALAN

      Data/hora atual: Qua 22 Nov 2017, 10:53