MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Problema com subformulario

    Compartilhe

    Dery_santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 03/10/2016

    [Resolvido]Problema com subformulario

    Mensagem  Dery_santos em Seg 24 Out 2016, 13:52

    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?

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Problema com subformulario

    Mensagem  Noobezinho em Seg 24 Out 2016, 14:33

    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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Dery_santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 03/10/2016

    Re: [Resolvido]Problema com subformulario

    Mensagem  Dery_santos em Seg 24 Out 2016, 17:23

    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
    Anexos
    Cad_LC.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (57 Kb) Baixado 2 vez(es)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Problema com subformulario

    Mensagem  Silvio em Seg 24 Out 2016, 18:38

    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 )


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Problema com subformulario

    Mensagem  Noobezinho em Seg 24 Out 2016, 18:53

    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 Razz


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Problema com subformulario

    Mensagem  Silvio em Seg 24 Out 2016, 18:59

    Fala Noobezinho, sem crise !!

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

    Agora é com ele....

    Abraços Noobezinho.
    Anexos
    Cad_LC_new.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (86 Kb) Baixado 4 vez(es)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Dery_santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 03/10/2016

    Re: [Resolvido]Problema com subformulario

    Mensagem  Dery_santos em Seg 24 Out 2016, 19:05

    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

    Dery_santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 03/10/2016

    Re: [Resolvido]Problema com subformulario

    Mensagem  Dery_santos em Ter 25 Out 2016, 14:18

    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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Problema com subformulario

    Mensagem  Silvio em Ter 25 Out 2016, 14:57

    Que bom que resolveu.

    O fórum agradece o retorno.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qui 08 Dez 2016, 00:06