MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Alterar um registro de um formulário tipo folha de dados desvinculado

    avatar
    daniel.fi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 1
    Registrado : 18/03/2013

    Alterar um registro de um formulário tipo folha de dados desvinculado Empty Alterar um registro de um formulário tipo folha de dados desvinculado

    Mensagem  daniel.fi 21/11/2019, 17:55

    Boa tarde pessoa.

    Eu utilizo um um front em access e a base em um outro arquivo de access tb.

    Para conectar os dois, utilizo o seguinte código:

    Código:

    Dim gConexao As ADODB.Connection

    Sub lsConectar()
        Dim strConexao As String
        Set gConexao = New ADODB.Connection
        Dim ARQUIVO As String
       
        ARQUIVO = "REDE\BASE_Dimensionamento.accdb"
        strConexao = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ARQUIVO & ";Persist Security Info=False;Jet OLEDB:Database Password=teste"
       
        gConexao.Open strConexao
    End Sub

    Sub lsDesconectar()
        If Not gConexao Is Nothing Then
            gConexao.Close
            Set gConexao = Nothing
        End If
    End Sub

    o código acima faz a conexão e desconecta da base externa.

    para carregar o formulário tipo folha de dados com os registros de um consulta a uma tabela, utilizo o seguinte código:

    Código:

    Global rstSuppliers As ADODB.Recordset

    Sub MakeRW()
        DoCmd.OpenForm "FRM_TBL_TTV_PERSON", acFormDS, , , acFormReadOnly
        Set rstSuppliers = New ADODB.Recordset
       
        lsConectar
       
        rstSuppliers.CursorLocation = adUseClient
        rstSuppliers.Open "Select * From TBL_TTV_PERSON", gConexao '_
        Set Forms("FRM_TBL_TTV_PERSON").Recordset = rstSuppliers
       
        lsDesconectar
       
    End Sub

    tudo funciona certinho, mas ai quando tento alterar qualquer registro nesse formulário tipo folha de dados, ele não deixa, parece estar como somente leitura, mas já alterei as propriedades na abertura do formulário. Eu não consigo fazer nada.

    Alguém tem ideia como resolver esse problema?
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 479
    Registrado : 25/02/2016

    Alterar um registro de um formulário tipo folha de dados desvinculado Empty Re: Alterar um registro de um formulário tipo folha de dados desvinculado

    Mensagem  FranklinJSP 22/11/2019, 15:51

    Bom día!

    Envia uma imagem do formulário com os registros

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

      Data/hora atual: 26/4/2024, 22:38