[Resolvido]Erro 2950 em front end com Acces runtime

Tenho um sistema de back/frontend rodando com o backend em servidor e os clientes com o front (quanto mais explicado...)
O problema é o seguinte, em uma caixa de combinação onde é listado os numeros de NIS para procurar os dados no banco, assim que clico me dá a mensagem de retorno 2950. Interessante é que em algumas máquinas roda bem, mas em algumas não. Já fiz todo o procedimento recomendado por todo mundo, mas o erro persiste. Migrei de comando de macro para o VB mas continua o erro, que agora com VB dá erro de tempo de execução. O código básico é esse:

A macro chama esse comando

-1; ; Primeiro; ="[Code_beneficiario] = " & Str(Nz(Screen.ActiveControl,0))

Troquei para VB:

Private Sub Combinação30_AfterUpdate()
   ' Encontrar o registro que coincide com o controle.
   Dim rs As Object

   Set rs = Me.Recordset.Clone
   rs.FindFirst "[Code_beneficiario] = " & Str(Nz(Me![Combinação30], 0))
   If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub


É um sistema de gestão do Bolsa Família

Código:

Private Sub Combinação30_AfterUpdate()
Dim rs As DAO.Recordset

  Set rs = Me.RecordsetClone
  rs.FindFirst "[Code_beneficiario]='" & Str(Nz(Me![Combinação30], 0)) & "'"
  If Not rs.NoMatch Then
     If Me.Dirty Then
        Me.Dirty = False
     End If
     Me.Bookmark = rs.Bookmark
  End If
Set rs = Nothing
End Sub

Nota: É provavel que você tenha de indicar em que coluna da caixa de combinação, está o valor:
Exemplo: Me.Combinação30.Column(0), ou 1, ou 2, etc...

Valeu, JPaulo, substitui o código mas ainda deu o mesmo erro

Deve utilizar aspas simples, porque str é texto;

rs.FindFirst "[Code_beneficiario]='" & Str(Nz(Me![Combinação30], 0)) & "'"

Teste;

O erro 2950 tem a haver com segurança da macro que está a usar.
Ou seja, a principal razão desse erro é que o MS Access não confia nesse banco de dados.

Brother, não entendo. Roda em algumas máquinas e em outras não. Consegui solucionar em uma criando um certificado no servidor e instalando na máquina. Fiz o mesmo com as outras e nada. Cadastrei como confiáveis as pastas, e nada.

Até criei um formulário novo, só com o código VB que voce passou. Funciona na máquina desenvolvedora, mas em todas as clientes não. Tem win 8.1 e 11.

Tente isso:

Código:


Private Sub Combinação30_AfterUpdate()
On Error GoTo trata_erro
' Encontrar o registro que coincide com o controle.
Dim rs As DAO.Recordset

    Set rs = Me.Recordset.Clone
    rs.FindFirst ("[Code_beneficiario] = " & Nz(Me.Combinação30.Column([informe_qual_coluna_possui_o_codigo], 0))
    If Not rs.EOF Then
        Me.Bookmark = rs.Bookmark
    End If
   
    '-- Fecha e detrói o recordset
    rs.Close
    Set rs = Nothing
   
    Exit Sub

trata_erro:
    MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub
   
End Sub




Brother, valeu, mas o erro persiste.

Veja este tópico com o mesmo problema.
https://www.maximoaccess.com/t24118-resolvido-a-execucao-foi-interrompida-devido-a-um-erro-em-tempo-de-execucao

Neste outro link de Comunidade Microsoft, usuário alega que era oscilação na rede:
https://answers.microsoft.com/pt-br/msoffice/forum/all/erro-access-a-execu%C3%A7%C3%A3o-deste-aplicativo/62318447-0092-47f9-afc8-500f7417647f

Veja se te ajuda ai.

Att,

Alexandre Fim

Já fez o Bebug e Compile para verificar se tem algum erro em algum trecho de código ?

Fiz o debug e nenhum erro foi encontrado. Como aqui é empresa pública, acionei o suporte para reinstalação das bibliotecas C++, VB runtime e Access runtime. Vamos ver se resolverá. Achei esta sugestão no link
https://www.errorvault.com/en/troubleshooting/runtime-errors/microsoft/microsoft-access/error-2950_microsoft-access-error-2950.

Valeu, gente, vou aguardar e dou retorno, se neste ínterim aparecer mais alguma sugestão, aplico.

Vivas

Vai mais uma dica.

Não terá a ver com previlégios de utilizador no servidor, uma vez que em algumas maq. dá e noutras não dá??

bons testes

Opa, não. Achei outro sistema que tem a mesma dinâmica que esse que está me dando problemas. Fazendo adaptações no problemático, depois posto a solução.

Bem, Senhores.

Consegui resolver parcialmente o problema, recriando formulários mais leves. Aproveitei o Menu para preencher os dados da busca, um botão para exibir parcialmente o resultado, e daí para o formuláriod e trabalho. Funcionou mas não descobri a solução exata. E VB continua dando erro, substituí por macros mesmo.

Um abraço e obrigado pelas sugestões. O público do Bolsa Família agradece.