[Resolvido]Dados em formulário com controle guia

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

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

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