[Resolvido]Problema com subformulario

Pessoal eu estou quebrando a cabeça e não consegui resolver , assim


tenho o formulário Cadastro de LC, dentro dele tenho o sub formulário  SuB_cad_LC , e o botão que chama o formulário SUb_cad_LC_RC


Quando eu clico no botão ele e abre o formulário SUb_cad_LC_RC trás os campos NumRC  e Numeero da LC e alo selecionar ele deve inserir o numero da LC para vincular na tabela e com isso essas informações devem ser atualizadas no subformulário SUB_cad_LC, até ai tudo bem, o problema é que sempre que cadastro registro novos o sub formulário atualiza só que ele trás primeiro as  informações referente a outro registo ai eu dou o F5 e ele mostra o registro certo, detalhe já coloquei o comando Requery na função fechar, atualizar ao perder foco no formulário Sub_cad_LC_RC,
ele faz a atualização mas trás os dados errados é como se eu tivesse que dar 2 F5 para trazer as informações certas, alguém pode me ajudar?

Experimente o comando refresh no lugar do requery.

Se não funfar, tenta disponibilizar somente a tabela e os formulários em questão, para

nos analizar.


[ ]'s

Bom eu já tentei também não deu certo..segue o banco. a tabela principal é cadastro de Licitação preenche so o numero de LC e depois clica no botão selecionar RC

Se me permitem...

1- não tem chave primaria em tuas tabelas ( Autonumeração ); As que tem as mesmas estão como texto.
2- não há uma relação entre as tabelas envolvidas pela chave primária e pela chave secundária.
3- por isso não vai funcionar mesmo.


Corrija isso e você vai ver que vai funcionar.

Obs. coloque o campo da chave primaria no teu formulário principal e subformulário ( master fiel e Child Field )

A primeira coisa e que vi no teu aplicativo é a falta de relacionamento entre as duas tabelas.

Veja na aba Ferramentas de banco de dados -> Relações

Leia primeiro sobre relacionamento na ajuda de Access  e irá ver que para vincular o registro de uma tabela a outra, precisa de um relacionamento e para isso, geralmento usa-se o código, assim como está fazendo.
Entenda relaciomento de 1 para 1  e  relacionamente de 1 para muito ( acredito ser o teu caso).

Utilize máscara de entrada para valores com moeda, muito zeros sem máscara, confunde o usuário.

Procure fazer sozinho, caso não consiga, retorne.

*Silvio, estava digitando quando enviou msg

Fala Noobezinho, sem crise !!

Aproveitei o arquivo do colega, e fiz para ele como deve ser.

Agora é com ele....

Abraços Noobezinho.

Oi obrigado pelas informações, quanto a chave primaria o campo tem que ser esses mesmo que estão como texto mas com as mascaras , mas vou tentar fazer diferente e também esqueci mesmo os relacionamentos das tabelas , obrigado por lembrar vou tentar fazer aqui e aviso .


Obrigado

Oi Pessoal muito obrigado pela ajuda


Na verdade o que estava acontecendo é que o registro do formulário só estava gravando na tabela após atualizar todo ele o código que coloquei pra gravar após atualizar o campo numero da lc estava com erro e não atualizava a tabela por isso que só aparecia os dados certos do subformulário depois que eu saia e voltava no registro ou dava 2 f5, ao eu acertei o código no evento ao perder foco no campo numero lc, ficou assim:


Private Sub txtnumlc_LostFocus()

Dim mensagem As String
Dim strcriteria As String
Dim antnumerorccadrc As String
Dim dbs As Database
Dim strSQL1 As String
Dim NumeroDB As Recordset
Dim NumeroRC As Recordset
Dim Modal As String
Dim Modal1 As Recordset

NUMERO_LC = UCase(NUMERO_LC)

' abre um recordset para verificar se existe algum nº já cadastrado de SOC
Set dbs = CurrentDb

strSQL1 = "SELECT DISTINCTROW [NUMERO LC] AS NUMEROLC " & _
"FROM [CADASTRO DE LICITAÇÃO] " & _
"WHERE (([CADASTRO DE LICITAÇÃO]![NUMERO LC]) = '" & Me.txtnumlc & "') "
Set NumeroDB = dbs.OpenRecordset(strSQL1)

' Modal = (NumeroDB.NUMEROLC)

If NumeroDB.BOF = False Then ' verifica se encontrou ou não registros
NumeroDB.MoveFirst
Do Until NumeroDB.EOF
If (NumeroDB!NUMEROLC) = Me.txtnumlc Then
MsgBox " Este Número de Licitação já existe, FABOR VERIFIQUE O NUMERO DIGITADO."
Me.txtnumlc.SetFocus
Exit Do
End If

NumeroDB.MoveNext
If NumeroDB.EOF Then
Exit Do
End If
Loop

Else
Me.ano = Right(Str(Format(Date, "yyyy")), 4)
cadcontrato = True
End If


End Sub


Só percebi graças a dica do relacionamento pois com o relacionamento ele informava que para amarrar a tabela RC na LC tinha que haver o registro na tabela LC coisa que não estava acontecendo .

Mais uma vez obrigado

Que bom que resolveu.

O fórum agradece o retorno.