[Resolvido]Como alterar Registro em Tabela Vinculada - VBA

Olá pessoal!

Eu tinha uma maneira para alterar dados funcionando perfeitamente (enquanto a tabela era local)  

Parou de funcionar quando movi a tabela para outro banco, e depois vinculei.  

Vou colar o código.  Agradeço a quem puder me ajudar em qual linha devo fazer a modificação, para voltar a funcionar, só que agora a tabela fica em outro *.mdb.   Access 2019.

Código:

'##################################################
Dim Rst As dao.Recordset
Dim sFiltro As String, sDadoCampo As String
Dim intResult As Integer

[b]Set Rst = CurrentDb.OpenRecordset("tbCtbLanca", dbOpenTable)[/b]
sFiltro = Me.idLanc.Value

Rst.MoveFirst
Rst.Index = "PrimaryKey"
Rst.Seek "=", sFiltro

'MsgBox rst![idLanc]
Debug.Print Rst.EditMode
'--------------------------------------------------
Rst.Edit
       'Rst("idLanc") = idLanc
       Rst("ContaD") = ContaD
       Rst("ContaC") = ContaC
       Rst("ValorDC") = ValorDC
       Rst("CodigoDeBarras") = CodigoDeBarras
       Rst("Data") = Data
       Rst("DtVecto") = DtVecto
       Rst("NumDoc") = NumDoc

'--------------------------------------------------
If Rst.EditMode = dbEditInProgress Then
    intResult = MsgBox("Você quer salvar as alterações " & "neste registro?", vbYesNo, "Confirmação")
End If

If intResult = 6 Then    'Salvar alterações
    Rst.Update
ElseIf intResult = 7 Then     'Cancelar alterações
    Rst.CancelUpdate
End If
'--------------------------------------------------
Rst.Close
Set Rst = Nothing
'--------------------------------------------------
'##################################################

Olá,

Coloquei um tratamento de erro para ver qual erro ocorre. Segue:

Código:



'-- tratamento de erro ----------------------
On Error GoTo trata_erro
'--------------------------------------------

Dim Rst As dao.Recordset
Dim sFiltro As String, sDadoCampo As String
Dim intResult As Integer

    Set Rst = CurrentDb.OpenRecordset("tbCtbLanca", dbOpenTable)
    sFiltro = Me.idLanc.Value
   
    Rst.MoveFirst
    Rst.Index = "PrimaryKey"
    Rst.Seek "=", sFiltro
   
    'MsgBox rst![idLanc]
    Debug.Print Rst.EditMode
    '--------------------------------------------------
    Rst.Edit
    'Rst("idLanc") = idLanc
    Rst("ContaD") = ContaD
    Rst("ContaC") = ContaC
    Rst("ValorDC") = ValorDC
    Rst("CodigoDeBarras") = CodigoDeBarras
    Rst("Data") = Data
    Rst("DtVecto") = DtVecto
    Rst("NumDoc") = NumDoc
   
    '--------------------------------------------------
    If Rst.EditMode = dbEditInProgress Then
        intResult = MsgBox("Você quer salvar as alterações " & "neste registro?", vbQuestion + vbYesNo, "Confirmação")
    End If
   
    If intResult = 6 Then          'Salvar alterações
        Rst.Update
    ElseIf intResult = 7 Then      'Cancelar alterações
        Rst.CancelUpdate
    End If
    '--------------------------------------------------
   
    Rst.Close
    Set Rst = Nothing
   
    Exit Sub
   
trata_erro:
    MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
    Exit Sub




Att,

Alexandre Fim

Olá sr. Alexandre Fim, obrigado pelo retorno!

O erro ocorrido foi:  3219 - Operação inválida.

Eu acho, só não sei como fazer, seria "setar" ou apontar para o banco back end onde a tabela está agora armazenada.

No banco atual tem a tabela de forma vinculada, então talvez precisássemos mudar algo aqui:  CurrentDb por C:\PastaTal\Dados.mdb  ?

Código:

Dim Rst As DAO.Recordset
Dim sFiltro As String, sDadoCampo As String
Dim intResult As Integer

    Set Rst = CurrentDb.OpenRecordset("tbCtbLanca", dbOpenTable)
    sFiltro = Me.idLanc.Value

Mesmo tratando-se de uma tabela vinculada, o recordset local tem de funcionar;

Faça o teste desta forma simples;

Código:

Dim sDadoCampo As String
Dim intResult As Integer
Dim Rst As DAO.Recordset
Dim db As DAO.Database

Dim sFiltro As Variant
sFiltro = Me.idLanc.Value

Set db = CurrentDb
Set Rst = db.OpenRecordset("SELECT * FROM tbCtbLanca WHERE idLanc='" & sFiltro & "'")

If Rst.RecordCount = 0 Then Exit Sub
'--------------------------------------------------
    Rst.Edit
       'Rst("idLanc") = idLanc
       Rst("ContaD") = ContaD
       Rst("ContaC") = ContaC
       Rst("ValorDC") = ValorDC
       Rst("CodigoDeBarras") = CodigoDeBarras
       Rst("Data") = Data
       Rst("DtVecto") = DtVecto
       Rst("NumDoc") = NumDoc
   Rst.Update
'--------------------------------------------------
Rst.Close: If Not rs Is Nothing Then Set rs = Nothing
Set db = Nothing

Olá mestre JPaulo!

Muito obrigado pelo retorno!   (devo desculpas pela minha demora em retornar)

Estou anexando o banco *.mdb  (Access 2019)

Permanece o erro 3078.  Alternativamente estou conseguindo alterar via Consulta, até conseguirmos descobrir como fazer alteração via código VBA.

Grato!

"Estou anexando o banco *.mdb (Access 2019)"
Não veio o banco

Estou anexando o banco *.mdb (zipado)

Olá,

O Erro está nas ASPAS SIMPLES da instrução SQL abaixo:
Set Rst = db.OpenRecordset("'SELECT * FROM tbCtbLanca WHERE idLanc='" & sFiltro & "'")

Remova-as para ficar assim:
Set Rst = db.OpenRecordset("SELECT * FROM tbCtbLanca WHERE idLanc=" & sFiltro & "")

VAi funcionar.

É isso

Att,

Alexandre Fim

Grande Alexandre..

Obrigado queridos por responder. Deu certo Alexandre, pôs um "Fim" à questão...rsrsrsr

Conclusão: o erro era com relação as aspas, não faz diferença de ser tabela local ou vinculada. Provavelmente mudei quando coloquei vinculada e não percebi.

Tenho me beneficiado bastante das dicas aqui do site. Tem como contribuir por PIX? ou somente por PayPal?

Grato!
Alexandre Cardoso

Valeu Cardoso...o fórum agradece!!!
OBS: O sobrenome "Fim" já me rendeu vários buyiling...kkk...Tipo: O "Fim" está próximo / "É o começo do "fim" e por ai vai....hahahahaha
Não há necessidade de PIX e nem PayPal, mas sempre que vc puder, contribua ajudando demais membros deste fórum com dicas sobre o Access.

É isso.

Um abraço e boa sorte

FIM