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

    avatar
    engvinipuhl
    Novato
    Novato

    Respeito às Regras 100%

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

    VBA para Localizar e subistiuir Empty VBA para Localizar e subistiuir

    Mensagem  engvinipuhl em 19/9/2018, 19:57

    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
    avatar
    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

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

    VBA para Localizar e subistiuir Empty Re: VBA para Localizar e subistiuir

    Mensagem  maguim em 19/9/2018, 20:37

    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 ?! Surprised
    avatar
    engvinipuhl
    Novato
    Novato

    Respeito às Regras 100%

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

    VBA para Localizar e subistiuir Empty Re: VBA para Localizar e subistiuir

    Mensagem  engvinipuhl em 24/9/2018, 12:42

    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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    VBA para Localizar e subistiuir Empty Re: VBA para Localizar e subistiuir

    Mensagem  JPaulo em 24/9/2018, 13:56

    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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    VBA para Localizar e subistiuir Folder_announce_new Utilize o Sistema de Busca do Fórum...
    VBA para Localizar e subistiuir Folder_announce_new 102 Códigos VBA Gratuitos...
    VBA para Localizar e subistiuir Folder_announce_new Instruções SQL como utilizar...
    avatar
    engvinipuhl
    Novato
    Novato

    Respeito às Regras 100%

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

    VBA para Localizar e subistiuir Empty Re: VBA para Localizar e subistiuir

    Mensagem  engvinipuhl em 24/9/2018, 15:36

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

    Respeito às Regras 100%

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

    VBA para Localizar e subistiuir Empty Re: VBA para Localizar e subistiuir

    Mensagem  JPaulo em 24/9/2018, 16:35

    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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    VBA para Localizar e subistiuir Folder_announce_new Utilize o Sistema de Busca do Fórum...
    VBA para Localizar e subistiuir Folder_announce_new 102 Códigos VBA Gratuitos...
    VBA para Localizar e subistiuir Folder_announce_new Instruções SQL como utilizar...
    avatar
    engvinipuhl
    Novato
    Novato

    Respeito às Regras 100%

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

    VBA para Localizar e subistiuir Empty Re: VBA para Localizar e subistiuir

    Mensagem  engvinipuhl em 24/9/2018, 19:07

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

    Conteúdo patrocinado

    VBA para Localizar e subistiuir Empty Re: VBA para Localizar e subistiuir

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/5/2019, 06:29