MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Erro em código VBA popular dados no subform

    flasbc
    flasbc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Erro em código VBA popular dados no subform Empty [Resolvido]Erro em código VBA popular dados no subform

    Mensagem  flasbc em 23/4/2019, 21:16

    Galera boa noite!

    Preciso preencher campos de um sub formulário de peças apenas digitando o código da referida peça, no entanto esta dando erro de compilação, poderiam me ajudar?
    Segue o código:

    Código:

    Dim rs As DAO.Recordset

       Set rs = CurrentDb.OpenRecordset("SELECT * FROM Cód_Peças WHERE DN4 = " & Me.DN4 & ";")
      
       If Not rs.EOF Then
           EQUIPAMENTO = rs!EQUIPAMENTO
           MODELO = rs!MODELO
           PEÇA = rs!PEÇA
           FABRICANTE = rs!FABRICANTE
           QUANTIDADE = rs!QUANTIDADE
       End If
           rs.Close
       Set rs = Nothing


    Estou deixando o bd para melhor entendimento.
    Anexos
    [Resolvido]Erro em código VBA popular dados no subform AttachmentDatabase2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 5 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Erro em código VBA popular dados no subform Empty Re: [Resolvido]Erro em código VBA popular dados no subform

    Mensagem  JPaulo em 24/4/2019, 09:16

    Olá;

    Código:
    Private Sub dn4_AfterUpdate()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset

       Set db = CurrentDb
       Set rs = db.OpenRecordset("SELECT * FROM Cód_Peças WHERE DN4 = '" & Me.dn4 & "';")
      
       If Not rs.EOF Then
           EQUIPAMENTO = rs!EQUIPAMENTO
           MODELO = rs!MODELO
           PEÇA = rs!PEÇA
           FABRICANTE = rs!FABRICANTE
           QUANTIDADE = rs!QUANTIDADE
       End If
        DoCmd.GoToRecord , , acNewRec
       rs.Close: Set rs = Nothing
       Set db = Nothing
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Erro em código VBA popular dados no subform Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Erro em código VBA popular dados no subform Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Erro em código VBA popular dados no subform Folder_announce_new Instruções SQL como utilizar...
    flasbc
    flasbc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Erro em código VBA popular dados no subform Empty Re: [Resolvido]Erro em código VBA popular dados no subform

    Mensagem  flasbc em 24/4/2019, 13:49

    Obrigado JPaulo havia esquecido de alguns parâmetros

    Conteúdo patrocinado

    [Resolvido]Erro em código VBA popular dados no subform Empty Re: [Resolvido]Erro em código VBA popular dados no subform

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/12/2019, 04:43