[Resolvido]Bloquear registro em formulário não acoplado usando Recordset.

Saudações.

Em um ambiente de rede tenho um formulário não acoplado que abre um registro para alterações.

Como bloqueio este registro para alteração?

   Dim rstArea As Recordset
   Dim sSQL As String
   dim dbsBD As Database
   
   Set dbsBD = OpenDatabase("\\Servidor\aisbd\BD.mdb")

   sSQL = "SELECT idArea, sgArea, nmArea FROM tabArea WHERE idArea = " & iAreaCod  ' codigo do registro
   
   Set rstArea = dbsBD.OpenRecordset(sSQL, dbOpenDynaset)

 
Tentei usar o parâmetro "dbPessimistic" mas da "Erro em tempo de execução '3001' Argumento inválido.

Set rstArea = dbsBD.OpenRecordset(sSQL, dbOpenDynaset, , dbPessimistic)

O que esta errado?

Toninho boa tarde,

Se o formulário estão com os campos não acoplados, qualquer edição que o usuário irá fazer não irá impactar na tabela.
Neste caso, voce pode usar a propriedade do campos para bloquear a edição:


Se tratando de bloqueio de recordset para somente leitura, o correto é utilizar:


Set rstArea = dbsBD.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)

É isso

Att,
FIM

Fim muito obrigado.

Uma duvida, como posso fazer a verificação do:

Set rstArea = dbsBD.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)

Se o registro esta bloqueado para edição?

Mais um a vez Obrigado.

Toninho bom dia,

Você utiliza as propriedades e métodos do recordset para operações com registro?
 - rst.AddNew
 - rst.Edit
 - rst.Update

Ou você utiliza instruções SQL:
 - INSERT INTO Tabela (Campo1, Campo) VALUES (Valor1, Valor2)....
 - UPDATE Tabela SET Campo1 = Valor, Campo2 = Valor2 ......

compartilhe uma cópia do seu bd (somente objetos envolvidos no problema) para análise e solução.

Att,
FIM

Saudações Fim,

Estou utilizando:
- rst.AddNew
- rst.Edit
- rst.Update

O sistema vai ser em rede e estou fazendo alguns testes para ve qual pratica seria melhor.

Segue um exemple do que estou fazendo.

Pasta de trabalho é teste.

Abraço

Olá Toninho,

Baixei seu exemplo e percebi que você utilizou 03 formulários para um mesmo cadastro. Não é necessário!

Vou elaborar um único formulário onde as ações (incluir, alterar, excluir, pesquisar) são realizadas.
Você criou um subformulário do tipo formulário contínuo, para simular uma lista de registro. Neste caso, vou substituir por uma listbox e deixar o formulário mais dinâmico, sem que haja dependência de outros formulários.
Também percebi que vc tem uma certa familiaridade com a linguagem VBA, e então vou criar os controles todos desacoplados à tabela e vou incluir os comentários sobre cada procedimento executado no formulário.

Assim que eu terminar eu disponibilizo o exemplo.

É isso.
Att,

FIM

Valeu Fim,

Ficarei no aguardo.

Grande abraço.

Bom dia Toninho,

Elaborei um novo formulário para o cadastro de Áreas. Ficou assim:


Optei em utilizar Instruções SQL para minimizar processamento, pois não necessita de abrir e carregar na memoria recordset's para executar comandos de registro.
Neste caso, utilizo as funções (Execute) do próprio banco de dados.

Faça os testes de Inclusão, Alteração e Exclusão e verifique se vai gerar algum erro. (pelos testes que fiz, acredito que não..rss)

OBS: Abra o código-fonte e observe os comentário que fiz em cada linha, para voce entender o que cada uma delas executa.

NOTA: sugiro que você converta o sistema para versão mais atualizada do Access, para não gerar problemas quando houver atualizações do Office da Microsoft. (sempre dá problema !!! rsss)

Segue versão.

É iss.
Att,
FIM

Fim,

Muito bom seu exemplo.

Muito Obrigado.

Abraço.

Valeu Toninho !!
voce pode utilizar este formulário como modelo para os demais, se achar necessário.
Boa sorte
Sucesso
Att,
FIM

Vou usar com certeza, vai se a base do sistema.

Valeu

Mais uma vez obrigado.

Abraço