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

Olá! Resolve, porém o "Classificar/agrupar" é em cima de um campo (10 no máximo - usei 10 x o código) e o "detalhe" é uma "divisória" que não precisa do campo (pelo menos é o que me parece). To usando o Access 2000 Mesmo assim, obrigado pela ajuda!

Olá! Quando você cria um relatório no assistente do Access, ele coloca uma "Seção Detalhe". Com essa Seção é possível colocar funções quando ele executa o campo dentro dele. Porém, ela é diferente do "Cabeçalho/Rodapé" que faz grupamentos. Eu gostaria criar outras Seções iguais a essa. Alguém saberia como fazer isso?? Obrigado!

Obrigado a todos pela dica ... vou seguir os conselhos e as vossas dicas, e ver o que consigo fazer e isso de poder usar a aplicação sem que o utilizador tenha que ter o Acess instalado também é muito bom !! Se alguém tiver mais ideias, estou receptivo !! Olá Existe uma ferramenta chamada ODE 97 / ODE 2000 (Office Development Edition 97 / 2000) O problema é que depende da versão do Access....., coisas de Bill Gates!!! Vou ver se eu acho o link e posto aqui... Abrs! Obrigado a todos pela dica ... vou seguir os conselhos e as vossas dicas, e ver o que consigo fazer e isso de poder usar a aplicação sem que o utilizador tenha que ter o Acess instalado também é muito bom !! Se alguém tiver mais ideias, estou receptivo !! Olá Existe uma ferramenta chamada ODE 97 / ODE 2000 (Office Development Edition 97 / 2000) O problema é que depende da versão do Access....., coisas de Bill Gates!!! Vou ver se eu acho o link e posto aqui... Abrs! Dá uma olhada nisso: http://www.granite.ab.ca/Access/runtime.htm