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:
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:
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?
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?