Bloquear tabela em uma Função (Function)

[Paulo Nigro]

Oi!

Eu gostaria de saber como posso bloquear, criar um registro e desbloquear a tabela

dentro da função.

Eu uso:

Access 97,sendo um banco access somente com as tabelas e relacionamento, no servidor (linux)

e estações com Windows XP e bancos access com formulários,consultas,relatórios,funções e as

tabelas vinculadas.

Obrigado!

Tabelas:

[Fornecedor] (1-> muitos) [Lotes]

Public Function IncLot(CODFIC As Long) As String
'Definições de variáveis e objetos ====================
Dim strCod As String, intMaxCod As Integer
Dim ANT As Variant
Dim cOrdSel As Variant
Dim dbs As Database
Set dbs = CurrentDb
Dim rstSEC As Recordset
'Abertura da tabela ===================================
Set rstSEC = dbs.OpenRecordset("Forncedor", dbOpenDynaset)

' *** Bloquear a tabela aquí ***

With rstSEC
.AddNew                                                'Adiciona um novo registro
![NossoLote] = PROXIMO_NR()                'Esse Número é gerado na Função abaixo  
![NúmeroRelacionado] = CODFIC             'Código da tabela de [Fornecedor] (por parametro)
.Update
.Fields.Refresh
.Bookmark = rstSEC.LastModified
End With

' *** Desbloquear a tabela ***

rstSEC.Close
dbs.Close
Set dbs = Nothing
Set rstSEC = Nothing
End Function


Public Function PROXIMO_NR() As String
Dim strCod As String, intMaxCod As Integer
Dim ANT As Variant
Dim cOrdSel As Variant
Dim dbs As Database
Dim rsMAT As Recordset
Set dbs = CurrentDb
Set rsMAT = dbs.OpenRecordset("Lote", dbOpenDynaset)
Set rsMAT = dbs.OpenRecordset("SELECT Max(Lote.NossoLote) AS NossoLote FROM Lote")
PROXIMO_NR = rsMAT.Fields(0).Value + 1
rsMAT.Close
dbs.Close
End Function

Editado Junho 30, 2009 por Jonathan Queiroz
Adcionar tag's (Jonathan)

[MrMALJ]

Ummm até onde pude entender seu código está correto, está ocorrendo algum erro ?