Ir para conteúdo
Fórum Script Brasil
  • 0

Bloquear tabela em uma Função (Function)


Paulo Nigro

Pergunta

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 por Jonathan Queiroz
Adcionar tag's (Jonathan)
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...