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

    VBA para Localizar e subistiuir

    Compartilhe

    engvinipuhl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 22/06/2018

    VBA para Localizar e subistiuir

    Mensagem  engvinipuhl em Qua 19 Set 2018, 2:57 pm

    Boa Tarde,vou tentar explicar , estou com problema para criar um simples código  que :

    primeiro Seleciono em Caixa de combinação "CBOcoreção" o qual fornece o código chave do campo [Código Parcelas] da tabela " BD_Contrato_Parcelas ",então ao executar,
    deveria substitui o campo [Fator Coretivo] da tabela " BD_Contrato_Parcelas " onde [Código Parcelas] igual a seleção "CBOcoreção",pelo valor contido em meu formulário atual "Controle Coeficiente Parcelas" no campo [CBOcoeficiente]

    Fico grato se me ajudarem,sou novo na plataforma SQL

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 378
    Registrado : 15/05/2013

    Re: VBA para Localizar e subistiuir

    Mensagem  maguim em Qua 19 Set 2018, 3:37 pm

    opa blz?


    entao vou mandar um codigo que uso aqui no meus forms pra vc.

    usar sempre apos atualizar.


    Tem que fazer edições de  txtbox e logica de query para poder funcionar

    Ve se te atende:


    Código:
    If Me.SITUAÇÃO.Column(1) = "INATIVO" Then
        If MsgBox("Tem Certeza que deseja Alterar O Tipo do Prestador", vbYesNo, "Exit") = vbYes Then
        
        Dim rs As Recordset
        Set rs = CurrentDb.OpenRecordset("select codpasta, SITUAÇÃO from BANCODEDADOSCENTRAL where codpasta = " & Me.CODPASTA & "")
        rs.Edit
            rs("SITUAÇÃO") = Me.SITUAÇÃO.Column(1)
        rs.Update
        rs.Close
        
        Me.SITUAÇÃO.Enabled = False
        Else
        Me.SITUAÇÃO = rs!SITUAÇÃO
        End If
    End If
    Me.Refresh
    Forms!frmPesquisa.Requery

    query

    Código:
    Set rs = CurrentDb.OpenRecordset("select CAMPO PRIMARY DE RELAÇÃO, NOME DO CAMPO AONDE ESTA NA TABELA from NOME DA TABELA where CONDIÇÃO DE AONDE VERIFICAR O CAMPO FILHO(PRIMARY)= " & TXTBOX DO FORM RELACIONADO COM NUMERO DO CAMPO PRIMARY & "")


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]

    engvinipuhl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 22/06/2018

    Re: VBA para Localizar e subistiuir

    Mensagem  engvinipuhl em Seg 24 Set 2018, 7:42 am

    Código:
    Private Sub Substituir_Click()
    Dim rs
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("select Código_Parcelas,Fator_coretivo,From BD_Contrato_Parcelas where Código Parcelas= " & Me.CBOCoreção & "")
    rs.Edit
    rs("Fator_coretivo") = Me.CBOcoeficiente
    rs.update
    rs.Close
    Me.Refresh
    Forms!Controle_coeficiente_Parcelas.Requery



    End Sub

    tentei assim,mas não roda ,ficando em amarelo já a primeira linha
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: VBA para Localizar e subistiuir

    Mensagem  JPaulo em Seg 24 Set 2018, 8:56 am

    Varios erros ae.

    1º Delete o Dim rs, que está a mais.
    2º Antes do FROM tem uma virgula, delete-a.
    3º Nomes de campos com espaços, têm de estar dentro de colchetes.

    Código:

    Dim db As Database
    Dim rs As Recordset

    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT Código_Parcelas,Fator_coretivo FROM BD_Contrato_Parcelas WHERE [Código Parcelas]= '" & Me.CBOCoreção & "'")

    rs.Edit
      rs("Fator_coretivo") = Me.CBOcoeficiente
    rs.update
    rs.Close

    Também não sei se vai funfar, porque as combobox`s funcionam com colunas, sendo que a primeira coluna é a zero.
    Exemplo:
    Me.CBOcoeficiente.Column(1) 'se for a segunda coluna


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    engvinipuhl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 22/06/2018

    Re: VBA para Localizar e subistiuir

    Mensagem  engvinipuhl em Seg 24 Set 2018, 10:36 am

    A primeira linha ainda em amarelo,e um alerta 'que o tipo definido pelo usuário não foi definido'
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: VBA para Localizar e subistiuir

    Mensagem  JPaulo em Seg 24 Set 2018, 11:35 am

    Código:
    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT Código_Parcelas,Fator_coretivo FROM BD_Contrato_Parcelas WHERE [Código Parcelas]= '" & Me.CBOCoreção & "'")

    If rs.RecordCount=0 Then Exit Sub

    rs.Edit
      rs("Fator_coretivo") = Me.CBOcoeficiente
    rs.update
    rs.Close


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    engvinipuhl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 22/06/2018

    Re: VBA para Localizar e subistiuir

    Mensagem  engvinipuhl em Seg 24 Set 2018, 2:07 pm

    Obrigado pela ajuda,mas ainda o mesmo erro.......

      Data/hora atual: Dom 16 Dez 2018, 10:52 am