[Resolvido] Banco de dados

[Gustavo_Germ 0]

Pessoal é o seguinte... de um numero de id, meus outros recordsets terão que puxar o mesmo id selecionado assim:

Private Sub Form_Load()

	Tabs.Tab = 0
	
	Set ALUNO_D2 = OpenDatabase(App.Path & "\bd_amar.mdb")
	ALUNO_S2 = "select * from Alunos order by nom"
	Set ALUNO_R2 = ALUNO_D2.OpenRecordset(ALUNO_S2, dbOpenDynaset)
	Exibir_Dados_Alu
		
	Set MAE_D2 = OpenDatabase(App.Path & "\bd_amar.mdb")
 [u][b]   MAE_S2 = "select * from Maes where maes.id_mat = " & TxtIdAlu.Text[/b][/u] (ACHO QUE O ERRO ESTÁ AQUI CERTO?????)
	Set MAE_R2 = ALUNO_D2.OpenRecordset(MAE_S2, dbOpenDynaset)
	Exibir_Dados_Mae

End Sub

Private Sub Exibir_Dados_Alu()

	On Error Resume Next
	TxtIdAlu.Text = Empty
	TxtNomAlu.Text = Empty
	TxtDatMat.Text = Empty
	CmbSer.Clear
	CmbPer.Clear
	TxtEnt.Text = Empty
	TxtSai.Text = Empty
	TxtRef.Text = Empty
	TxtDatNas.Text = Empty
	TxtCid.Text = Empty
	CmbEstado.Clear
	TxtEndRes.Text = Empty
	TxtCom.Text = Empty
	TxtCEP.Text = Empty
	TxtDDDRes.Text = Empty
	TxtTelRes.Text = Empty
	Mes.Visible = False
	ChkAtivo.Value = 0
	
	TxtIdAlu.Text = ALUNO_R2!id_matricula
	TxtNomAlu.Text = ALUNO_R2!nom
	TxtDatMat.Text = ALUNO_R2!dat_mat
	TxtDatEnt.Text = ALUNO_R2!mes_ent
	TxtSer.Text = ALUNO_R2!Ser
	TxtPer.Text = ALUNO_R2!Per
	TxtEnt.Text = ALUNO_R2!hor_ent
	TxtSai.Text = ALUNO_R2!hor_sai
	TxtRef.Text = ALUNO_R2!cri_tem_dir
	TxtDatNas.Text = ALUNO_R2!dat_nas
	TxtCid.Text = ALUNO_R2!cid
	TxtEstAlu.Text = ALUNO_R2!est
	TxtEndRes.Text = ALUNO_R2!End
	TxtCom.Text = ALUNO_R2!com
	TxtCEP.Text = ALUNO_R2!cep
	TxtDDDRes.Text = ALUNO_R2!ddd_tel
	TxtTelRes.Text = ALUNO_R2!tel
	ChkAtivo.Value = ALUNO_R2!ati
	
End Sub

Private Sub Exibir_Dados_Mae()
	
	On Error Resume Next
	TxtNomMae.Text = Empty
	TxtDatNasMae.Text = Empty
	TxtRGMae.Text = Empty
	TxtCPFMae.Text = Empty
	OptSim.Value = False
	OptNao.Value = False
	TxtProMae.Text = Empty
	TxtCidMae.Text = Empty
	CmbEstadMae.Clear
	TxtEndComMae.Text = Empty
	TxtCEPMae.Text = Empty
	TxtDDDTelComMae.Text = Empty
	TxtTelComMae.Text = Empty
	TxtDDDFaxMae.Text = Empty
	TxtFaxMae.Text = Empty
	TxtDDDCelMae.Text = Empty
	TxtCelMae.Text = Empty
	TxtDDDOutTelMae.Text = Empty
	TxtOutTelMae.Text = Empty
	TxtEmaMae.Text = Empty
	TxtObsMae.Text = Empty
	
	TxtIdMae.Text = MAE_R2!id_mae
	TxtNomMae.Text = MAE_R2!nom
	TxtDatNasMae.Text = MAE_R2!dat_nas
	TxtRGMae.Text = MAE_R2!rg
	TxtCPFMae.Text = MAE_R2!cpf
	If MAE_R2!tra = True Then
		OptSim.Value = True
		TxtProMae.Text = MAE_R2!pro
		TxtCidMae.Text = MAE_R2!cid
		CmbEstadMae.Text = MAE_R2!est
		TxtEndComMae.Text = MAE_R2!end_com
		TxtCEPMae.Text = MAE_R2!cep
		TxtDDDTelComMae.Text = MAE_R2!ddd_tel_com
		TxtTelComMae.Text = MAE_R2!tel_com
	Else
		OptSim.Value = False
	End If
	TxtDDDFaxMae.Text = MAE_R2!ddd_fax
	TxtFaxMae.Text = MAE_R2!fax
	TxtDDDCelMae.Text = MAE_R2!ddd_cel
	TxtCelMae.Text = MAE_R2!cel
	TxtDDDOutTelMae.Text = MAE_R2!ddd_out_tel
	TxtOutTelMae.Text = MAE_R2!out_tel
	TxtEmaMae.Text = MAE_R2!ema
	TxtObsMae.Text = MAE_R2!obs

End Sub

AS LIGAÇÕES ESTÃO ASSIM:

ID_MATRICULA (PRIMARY KEY - alunos) - 1

ID_MAT (Mães) - oo

 

Alguem desconfia do meu erro??

 

Grato,

Gustavo.

[Mário Monteiro 179]

apareceu algum erro?

 

senao tira o On Error Resume Next

[scorpio 7]

Antes de resgatar qualquer valor do recordset, verifique se o mesmo retornou algo.

 

 

Mas apareceu algum erro ?

[Gustavo_Germ 0]

Antes de resgatar qualquer valor do recordset, verifique se o mesmo retornou algo.

 

 

Mas apareceu algum erro ?

Olá... então... verifiquei e retirei o ON ERROR RESUME NEXT,

 

daí veio o erro: "NENHUM REGISTRO ENCONTRADO".

 

Mas não é possível... pelo que vi ele está puxando corretamente o id d aluno... será que o erro está na gravação:

 

 

NO LOAD DO FORM, ESTOU ABRINDO A DATABASE ASSIM:

 

"

Set ALUNO_D = OpenDatabase(App.Path & "\bd_amar.mdb")
	ALUNO_S = "select * from Alunos"
	Set ALUNO_R = ALUNO_D.OpenRecordset(ALUNO_S, dbOpenDynaset)
	
	Set MAE_D = OpenDatabase(App.Path & "\bd_amar.mdb")
	MAE_S = "select * from Maes"
	Set MAE_R = ALUNO_D.OpenRecordset(MAE_S, dbOpenDynaset)"


... DAÍ NO COMANDO SALVAR:

Private Sub CmdSal_Click()

If MsgBox("ATENÇÃO!" & Chr(13) & "Deseja cadastrar " & TxtNomAlu.Text & "?", vbYesNo + vbExclamation, "AVISO") = vbYes Then
	
'GRAVAÇÃO DOS CAMPOS DO ALUNO

ALUNO_R.AddNew

ALUNO_R!nom = TxtNomAlu.Text
ALUNO_R!dat_mat = TxtDatMat.Text
ALUNO_R!mes_ent = TxtDatEnt.Text
ALUNO_R!Ser = CmbSer.Text
ALUNO_R!Per = CmbPer.Text
ALUNO_R!hor_ent = TxtEnt.Text
ALUNO_R!hor_sai = TxtSai.Text
ALUNO_R!cri_tem_dir = TxtRef.Text
ALUNO_R!dat_nas = TxtDatNas.Text
ALUNO_R!cid = TxtCid.Text
ALUNO_R!est = CmbEstado.Text
ALUNO_R!End = TxtEndRes.Text
ALUNO_R!com = TxtCom.Text
ALUNO_R!cep = TxtCEP.Text
ALUNO_R!ddd_tel = TxtDDDRes.Text
ALUNO_R!tel = TxtTelRes.Text
ALUNO_R!Ati = ChkAtivo.Value

ALUNO_R.Update

TxtIdAlu.Text = ALUNO_R!id_matricula

'GRAVAÇÃO DOS CAMPOS DA MÃE

MAE_R.AddNew

MAE_R!id_mat = TxtIdAlu.Text
MAE_R!nom = TxtNomMae.Text
MAE_R!dat_nas = TxtDatNasMae.Text
MAE_R!rg = TxtRGMae.Text
MAE_R!cpf = TxtCPFMae.Text
If OptSim.Value = True Then
	MAE_R!tra = True
	MAE_R!pro = TxtProMae.Text
	MAE_R!cid = TxtCidMae.Text
	MAE_R!est = CmbEstadMae.Text
	MAE_R!end_com = TxtEndComMae.Text
	MAE_R!cep = TxtCEPMae.Text
	MAE_R!ddd_tel_com = TxtDDDTelComMae.Text
	MAE_R!tel_com = TxtTelComMae.Text
Else
	MAE_R!tra = False
End If
MAE_R!ddd_fax = TxtDDDFaxMae.Text
MAE_R!fax = TxtFaxMae.Text
MAE_R!ddd_cel = TxtDDDCelMae.Text
MAE_R!cel = TxtCelMae.Text
MAE_R!ddd_out_tel = TxtDDDOutTelMae.Text
MAE_R!out_tel = TxtOutTelMae.Text
MAE_R!ema = TxtEmaMae.Text
MAE_R!obs = TxtObsMae.Text

MAE_R.Update
 end sub

[scorpio 7]

Execute a query "select * from Maes where maes.id_mat = " & TxtIdAlu.Text no Access e veja se retorna alguma coisa.

[Gustavo_Germ 0]

Execute a query "select * from Maes where maes.id_mat = " & TxtIdAlu.Text no Access e veja se retorna alguma coisa.

 

Blzaaaaaaaaa!!!

 

Achei o erro!!!

 

eu não estava gravando os ids do aluno nas outras tabelas! vlw!