VBA para Localizar e subistiuir

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

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 & "")

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

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

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

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

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