Boa tarde Pessoal,
Estou tentando implementar no meu projeto um Recordset para gerar a numeração na tabela, porém sem numeração automática.
A ideia é a seguinte, quero duplicar alguns registros de acordo com o mês selecionado, porém não quero criar um campo númeração automática na tabela(Opção minha).
Por exemplo da forma que está, se eu escolher duplicar os registros do mês de Março, deve duplicar apenas o nome Ismael, e cód, colocar o número 4, pois deveria pegar o registro màximo e adicionar mais um.
Então com esse código abaixo acredito que estou no caminho, mas o que está ocorrendo, é que ele não está obedecendo o critério para o pegar o registro máximo e adiconar mais, me parece estar pegando o primeiro, e assim não está como gostaria.
Dim rs As Recordset
Dim I As Integer
Set rs = CurrentDb.OpenRecordset("Select Nome,Mes_Ref From Tabela1 WHERE Mes_Ref='" & Txt_Mes_Ref & "'")
Do While Not (rs.EOF)
I = DMax("[Id]", "Tabela1")
Id = I + 1
CurrentDb.Execute "INSERT INTO Tabela1(Nome,Mes_Ref)SELECT Nome,Mes_Ref FROM Tabela1 WHERE Mes_Ref='" & Txt_Mes_Ref & "'"
rs.MoveNext
Loop
Estou tentando implementar no meu projeto um Recordset para gerar a numeração na tabela, porém sem numeração automática.
A ideia é a seguinte, quero duplicar alguns registros de acordo com o mês selecionado, porém não quero criar um campo númeração automática na tabela(Opção minha).
Por exemplo da forma que está, se eu escolher duplicar os registros do mês de Março, deve duplicar apenas o nome Ismael, e cód, colocar o número 4, pois deveria pegar o registro màximo e adicionar mais um.
Então com esse código abaixo acredito que estou no caminho, mas o que está ocorrendo, é que ele não está obedecendo o critério para o pegar o registro máximo e adiconar mais, me parece estar pegando o primeiro, e assim não está como gostaria.
Dim rs As Recordset
Dim I As Integer
Set rs = CurrentDb.OpenRecordset("Select Nome,Mes_Ref From Tabela1 WHERE Mes_Ref='" & Txt_Mes_Ref & "'")
Do While Not (rs.EOF)
I = DMax("[Id]", "Tabela1")
Id = I + 1
CurrentDb.Execute "INSERT INTO Tabela1(Nome,Mes_Ref)SELECT Nome,Mes_Ref FROM Tabela1 WHERE Mes_Ref='" & Txt_Mes_Ref & "'"
rs.MoveNext
Loop
- Anexos
- Database4.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (158 Kb) Baixado 18 vez(es)