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)
Pergunta
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]
Editado por Jonathan QueirozAdcionar 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.