[Resolvido]Erro em Formulário de Pesquisa

Bom dia feras.
Continuando na montagem do meu BD e os erros vão multiplicando conforme aumento as funções do mesmo.
Nesta dúvida, tenho um form de pesquisa com 3 opções:

RM (Que é o registro interno do aluno)
RA (Que é o registro de aluno do estado de SP)
NOME (Nome do aluno)

Pois bem, quando a pessoa que está usando a pesquisa opta pelo RM está tudo OK. Aparece a mensagem "Deseja continuar com a pesquisa completa?" e se sim, abre o Formulário com a ficha do aluno, tudo certinho. Mas, se não insiro um RM ou digito um que não tem, aparecem mensagens de aviso, que eu fiz, e retorna para o form de pesquisa. POrém, quando insiro, após errar antes, um registro correto, o formulário aparece em branco. Não sei onde estou errando. Segue o código:

Private Sub cmdPESQUISA_Click()

CompletaForm
Form_Alunos.cmdGravar.Enabled = False
Form_Alunos.cmdPesquisar.Enabled = True
Form_Alunos.cmdSair.Enabled = True
Form_Alunos.cmdAlterar.Enabled = True
Form_Alunos.cmdExcluir.Enabled = False
Form_Alunos.txtRM.Enabled = False
Form_Alunos.txtRA.SetFocus

End Sub

Sub CompletaForm()

Dim resp
Dim RM As Integer
Dim db As Database
Dim rs As Recordset, rs2 As Recordset
Set db = CurrentDb
If Me.txtPERQUISARM <> "" Then
RM = Me.txtPERQUISARM.Value
Set rs = db.OpenRecordset("Select * from tb_Alunos Where RM= " & RM & "")
If rs.RecordCount <> 0 Then
resp = MsgBox("Deseja continuar a pesquisa completa?", vbYesNo)
If resp = vbNo Then
Exit Sub
Else
DoCmd.Close
DoCmd.OpenForm "Alunos"
Form_Alunos.txtRM = RM
Set rs = db.OpenRecordset("Select * from tb_Alunos Where RM= " & Form_Alunos.txtRM & "")
Set rs2 = db.OpenRecordset("Select * from tb_Autorizados Where RM= " & Form_Alunos.txtRM & "")
Form_Alunos.txtRM = rs("RM")
Form_Alunos.txtRA = rs("RA")
Form_Alunos.txtNOME = rs("NOME")
Form_Alunos.cmbSEXO = rs("SEXO")
Form_Alunos.txtDATA_NASC = rs("DATA_NASC")
Form_Alunos.cmbNATURALIDADE = rs("NATURALIDADE")
Form_Alunos.txtMAE = rs("MAE")
Form_Alunos.txtRGMAE = rs("RG_MAE")
Form_Alunos.txtPAI = rs("PAI")
Form_Alunos.txtRGPAI = rs("RG_PAI")
Form_Alunos.txtCERTIDAO_NOVA = rs("CERTIDAO_NOVA")
Form_Alunos.txtNUM_CERTIDAO = rs("CERTIDAO")
Form_Alunos.txtLIVRO = rs("LIVRO")
Form_Alunos.txtFOLHA = rs("FOLHA")
Form_Alunos.txtEMISSAO = rs("EMISSAO")
Form_Alunos.cmbDISTRITO = rs("DISTRITO")
Form_Alunos.cmbCOMARCA = rs("COMARCA")
Form_Alunos.cmbESTADO = rs("ESTADO")
Form_Alunos.txtENDERECO = rs("ENDERECO")
Form_Alunos.cmbBAIRRO = rs("BAIRRO")
Form_Alunos.cmbCIDADE = rs("CIDADE")
Form_Alunos.txtTEL1 = rs("TEL1")
Form_Alunos.txtTEL2 = rs("TEL2")
Form_Alunos.txtTEL3 = rs("TEL3")
Form_Alunos.txtTEL4 = rs("TEL4")
Form_Alunos.txtANO = rs("ANO")
Form_Alunos.cmbTURNO = rs("TURNO")
Form_Alunos.cmbENSINO = rs("ENSINO")
Form_Alunos.cmbSERIE = rs("SERIE")
Form_Alunos.cmbTURMA = rs("TURMA")
Form_Alunos.txtNUM_CH = rs("NUM_CH")
Form_Alunos.txtDATA_MAT = rs("DATA_MAT")
Form_Alunos.txtOBS = rs("OBS")
Form_Alunos.txtAUTORIZADOS = rs2("AUTORIZADOS")
Form_Alunos.txtRM.Enabled = True
End If
Else
MsgBox ("Não foi achado nenhum registro com o código informado!"), vbInformation + vbOKOnly, "Nenhum Registro"
Me.txtPERQUISARM = Empty
Me.txtPERQUISARM.SetFocus
End If
Else
MsgBox ("Favor digitar um registro!"), vbInformation + vbOKOnly, "Nenhum Registro"
Me.txtPERQUISARM.SetFocus
End If
End Sub


Quando tento pelo RA ou NOME, dá erro. Tentei várias formas e não consegui até agora.
O que eu queria na verdade é o seguinte:
Ao clicar no botão pesquisar, os outros 2 campos não digitados preencheriam automaticamente de acordo com o preenchido.
Exemplo: Se digito o RM, ao clicar, preenche o RA e o NOME respectivos e aparece a mensagem "Deseja continuar com a pesquisa completa?". Se sim, abre o formulário completo com a Ficha do Aluno, se não, continua somente neste form.
Não sei se deu pra entender, mas anexarei o BD para esclarecimento.
Grato.

Testei aqui..

Inseri o RM 1 >>> Mensagem de não encontrado
Depois inseri o RM 35 >>> Abriu o registro corretamente

Cumprimentos.

Rapaz isto esta realmente estranho, não vejo relação ao deixar o RM em branco e clicar e depois um RM valido e clicar o form não abre com os dados..

Estranho isso.

Cumprimentos.

Amigão veja o porque do problema..

1 - Passei os codigos que carregam o form Alunos dentro do mesmo
2 - Deixei apenas os codigos basico no form pesquisa_Aluno

Dim resp
Dim RM As Integer
Dim Db As Database
Dim rs As Recordset, rs2 As Recordset
Set Db = CurrentDb
If Me.txtPERQUISARM <> "" Then
    RM = Nz(Me.txtPERQUISARM, 0)
    Set rs = Db.OpenRecordset("Select * from tb_Alunos Where RM= " & RM & "")
        If rs.RecordCount <> 0 Then
            resp = MsgBox("Deseja continuar a pesquisa completa?", vbYesNo)
            If resp = vbNo Then
                Exit Sub
            Else
            DoCmd.OpenForm "Alunos"
            
            End If
    Else
            MsgBox ("Não foi achado nenhum registro com o código informado!"), vbInformation + vbOKOnly, "Nenhum Registro"
            Me.txtPERQUISARM = Empty
            Me.txtPERQUISARM.SetFocus
    End If
Else
    MsgBox ("Favor digitar um registro!"), vbInformation + vbOKOnly, "Nenhum Registro"

Neste codigo acima... se deixar o rm em branco... No final apos a mensagem "Favor digitar umregistro", ele abre o frm Alunos.. mesmo sem ter comando para abri-lo.

Nao entendi isso.

Cumprimentos.

Agora entendi... Creio que esta a trabalhar no 2010, estou certo?

Bem.. pelo que entendi.. ao enviar o foco para o form ALunos.. ja o abre automaticamente sem necessitar o comando


Me.CompletaForm
Form_Alunos.cmdGravar.Enabled = False
Form_Alunos.cmdPesquisar.Enabled = True
Form_Alunos.cmdSair.Enabled = True
Form_Alunos.cmdAlterar.Enabled = True
Form_Alunos.cmdExcluir.Enabled = False
Form_Alunos.txtRM.Enabled = False
Form_Alunos.txtRA.SetFocus

\Cumprimentos.

Consegui assim:

No frm Pesquisa_Aluno

Sub CompletaForm()

Dim resp
Dim RM As Integer
Dim Db As Database
Dim rs As Recordset, rs2 As Recordset
Set Db = CurrentDb
If Me.txtPERQUISARM <> "" Then
    RM = Nz(Me.txtPERQUISARM, 0)
    Set rs = Db.OpenRecordset("Select * from tb_Alunos Where RM= " & RM & "")
        If rs.RecordCount <> 0 Then
            resp = MsgBox("Deseja continuar a pesquisa completa?", vbYesNo)
            If resp = vbNo Then
                Exit Sub
            Else
            DoCmd.OpenForm "Alunos"
            
            End If
    Else
            MsgBox ("Não foi achado nenhum registro com o código informado!"), vbInformation + vbOKOnly, "Nenhum Registro"
            Me.txtPERQUISARM = Empty
            Me.txtPERQUISARM.SetFocus
    End If
Else
    MsgBox ("Favor digitar um registro!"), vbInformation + vbOKOnly, "Nenhum Registro"
   'Me.txtPERQUISARM.SetFocus
End If
End Sub

e no form Alunos

Private Sub Form_Load()
On Error Resume Next
Dim Db As DAO.Database
Dim rs As DAO.Recordset, rs2 As DAO.Recordset
Dim StrID As Long

Set Db = CurrentDb

    fSetAccessWindow (0)
    Me.txtCERTIDAO_NOVA.Enabled = True
    Me.txtNUM_CERTIDAO.Enabled = True
    Me.txtFOLHA.Enabled = True
    Me.txtLIVRO.Enabled = True
    
    StrID = Form_Pesquisa_Alunos!txtPERQUISARM.Value
    
            Set rs = Db.OpenRecordset("Select * from tb_Alunos Where RM= " & StrID & "")
            Set rs2 = Db.OpenRecordset("Select * from tb_Autorizados Where RM= " & StrID & "")
            Me.txtRM = rs("RM")
            Me.txtRA = rs("RA")
            Me.txtNOME = rs("NOME")
            Me.cmbSEXO = rs("SEXO")
            Me.txtDATA_NASC = rs("DATA_NASC")
            Me.cmbNATURALIDADE = rs("NATURALIDADE")
            Me.txtMAE = rs("MAE")
            Me.txtRGMAE = rs("RG_MAE")
            Me.txtPAI = rs("PAI")
            Me.txtRGPAI = rs("RG_PAI")
            Me.txtCERTIDAO_NOVA = rs("CERTIDAO_NOVA")
            Me.txtNUM_CERTIDAO = rs("CERTIDAO")
            Me.txtLIVRO = rs("LIVRO")
            Me.txtFOLHA = rs("FOLHA")
            Me.txtEMISSAO = rs("EMISSAO")
            Me.cmbDISTRITO = rs("DISTRITO")
            Me.cmbCOMARCA = rs("COMARCA")
            Me.cmbESTADO = rs("ESTADO")
            Me.txtENDERECO = rs("ENDERECO")
            Me.cmbBAIRRO = rs("BAIRRO")
            Me.cmbCIDADE = rs("CIDADE")
            Me.txtTEL1 = rs("TEL1")
            Me.txtTEL2 = rs("TEL2")
            Me.txtTEL3 = rs("TEL3")
            Me.txtTEL4 = rs("TEL4")
            Me.txtANO = rs("ANO")
            Me.cmbTURNO = rs("TURNO")
            Me.cmbENSINO = rs("ENSINO")
            Me.cmbSERIE = rs("SERIE")
            Me.cmbTURMA = rs("TURMA")
            Me.txtNUM_CH = rs("NUM_CH")
            Me.txtDATA_MAT = rs("DATA_MAT")
            Me.txtOBS = rs("OBS")
            Me.txtAUTORIZADOS = rs2("AUTORIZADOS")
            Me.txtRM.Enabled = True
    End Sub

Cumprimentos

Boa Piloto. O erro foi consertado.
Porém, o que queria inicialmente, antes da abertura do form Alunos é o seguinte:
No Form Pesquisa, coloquei mais um item: Lista de Opções: RM, RA e NOME.
De acordo com o botão marcado, os outros dois campos ficam desabilitados e, por exemplo:
O Cliente marca o RA. Então, após digitar o número do RA que deseja e clicar em Pesquisar, os campos RM e NOME se preenchem com os dados relativos ao item RA e só depois vem a pergunta "Deseja continuar a pesquisa completa?" Se sim, abre o Form Alunos, se não apaga os dados e continua no Form Pesquisa. Deu pra entender?
Grato desde já.

Manda o bd novamente.

Cumprimentos.

Segue.
Abraço.

Amigào podes utilizar o Dlookup para isso, algo assim nos eventos apos atualizar do RA:

SuaCaixaRM = Dlookup("RM","SuaTabela","RA = " & Me.SuaCaixaTextoRA & "")

Tente ai.

Cumprimentos.

Fala Piloto.
Então, tentei do jeito que me falou, mas da erro: "Número de argumentos incorreto ou atribuição de propriedade inválida"
Nunca usei o "Dlookup" e gostaria de saber como funciona, pois, vejo em muitos BDs, mas nunca entendi seu funcionamento. Talvez entendendo seu funcionamento melhore meus projetos tb.
Como deve perceber, sou iniciante no Access e VBA e tem comandos que desconheço, tal qual o "Nz" também.
Agradeço muito sua paciência comigo e sua ajuda está sendo importante para meu aprendizado.
Agradeço tb a todos os que me ajudaram em outros tópicos relacionados a este projeto.

Ah, esqueci de falar que o campo RA, tal qual o NOME, são campos TEXTO.

Para Números:
Me.SuaCaixaRM = Dlookup("RM","SuaTabela","RA = " & Me.SuaCaixaTextoRA & "")

Para Textos::
Me.SuaCaixaRM = Dlookup("RM","SuaTabela","RA = '" & Me.SuaCaixaTextoRA & "'")

Leia este artiogo:
http://maximoaccess.forumeiros.com/t1533-funcao-dlookup-explicacao

Cumprimentos.

Boa Piloto!
Funcionou e já fiz as outras modificações que necessitava. Alguns errinhos apareceram, mas estou resolvendo.
Agora, sem querer abusar, mas já abusando, estou tentando imprimir relatórios à partir dos respectivos botões e não está abrindo a pré-visualização e nem imprimindo. Que que imprima o relatório relativo ao RM selecionado.
Deu pra entender?
Valeu man e desculpe o abuso!

Piloto, mexendo agora no meu projeto, percebi que quando confirmo a pesquisa completa e abre o Form_Alunos, o Form_Pesquisa_Alunos não fecha. Tem como?

Ao abrir o form alunos coloque:

DoCmd.Close acForm, "NomeDoForm"


Cumprimentos

Para o relatorio, veja este tópico apartir da mensagem número 12

http://maximoaccess.forumeiros.com/t11962-enviar-objeto-como-dpf-com-a-opcao-saida-tipo-selecao

Cumprimentos.

Sempre mandando bem PILOTO.
A parte do fechamento ta resolvida.
A do formulário, vendo o post que me mandou, consegui om se fosse mandar por e-mail. Mas não é isso que quero.
Gostaria que abrisse a visualização de impressão e depois eu daria a opção por msg de imprimir ou não.
Fiz esse código para um dos botões de impressão de relatório, mas não acontece nada.
Segue:

Private Sub cmdMatricula_Click()

On Error GoTo Err_cmdMatricula_Click

DoCmd.OpenReport "rel_MatFrente", acViewReport, "", "", acNormal

Exit_cmdMatricula_Click:
Exit Sub

Err_cmdMatricula_Click:
MsgBox Err.Description
Resume Exit_cmdMatricula_Click

End Sub

Abraços.

Boas Amigo, estou com problemas de saúde, motivo pelo qual por ora não poderei continuar neste tópico. Aguarde a ajuda de algum colega do fórum.

Desculpe-me por isso.

Abraços.

Melhoras ae Piloto. Se cuida e fica com Deus bro.
CErteza que alguem vai ajudar aqui.
Abraço!

Tirarei minha dúvida sobre o botão do relatório em outro forum.
Dúvidas iniciais resolvidas.
Grato.

O Fórum agradece o Retorno.