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