Sequencial

Boa tarde
Preciso criar uma consulta aonde eu tenho um numero e preciso criar um sequencial ate este numero.
Ex: tenho numero 10 preciso criar sequencial de 1 a 10.
Também vou ter uma data inicial e este ira criar um sequencial da data somando 07 dias
Alguem pode ajudar

Olá cem,

Não sei quanto a consulta, mas com um formulário em uma caixa de texto com um looping FOR...NEXT é possível.

Código:

Public Function CriarSequencia(ValorInicial As Long, ValorFinal As Long) 'Os parâmetros estabelecem os limites inferior e superior
'Código de Eduardo Machado (Good Guy) Ano 2018
On Error Resume Next
Dim i As Long     'O tipo Long possibilita a inserção de valores acima dos limites de Integer (Sem estouro)
Dim Intervalo As Integer
Dim sSimb As Variant

ValorInicial = Nz(txtValorInicial)      'Caixa de texto para inserir o valor inicial
ValorFinal = Nz(txtValorFinal)          'Caixa de texto para inserir o valor final
Intervalo = Nz(txtIntervalo)             'Caixa de texto para inserir o intervalo. Exemplo: Intervalo = 2
                                                    'A sequência será de 2 em 2
sSimb = Nz(txtSimbolo)                  'Caixa de texto com o símbolo separador (Ex.: 1-2-3-; 1.2.3.;)
    

For i = ValorInicial To ValorFinal Step Intervalo
    txtSequencia = txtSequencia & i & sSimb  'Caixa de texto grande onde se desenvolverá a sequência
Next i


End Function

CÓDIGO DO BOTÃO:

Private Sub cmdGerar_Click()
On Error Resume Next
If Not IsNull(txtValorInicial) Or Not IsNull(txtValorFinal) Or Not IsNull(txtIntervalo) Then
Call CriarSequencia(txtValorInicial, txtValorFinal)    'Chama a função com seus parâmetros referenciados pelos argumentos aqui que são as caixas de texto.
Else
MsgBox "Preencha, por favor, todos os campos. Separador siginifica um (-) ou (/). Intervalo significa de 1 em 1 ou 2 em 2. " & _
"Digite 1 ou 2 ou qualquer outro número !!!", vbCritical, "Gerador de Números em Série"
End If
End Sub


PARA SOMAR DATA COM INTERVALO DE UM 1 DIA:

Código:

Public Function SomaData()
'Código de Eduardo Machado (Good Guy) - Ano 2018
Dim dteDataInicial As Date, dteDataFinal As Date
Dim strIntervaloTipo As String
Dim varSimb As Variant
Dim i As Integer
Dim intervalo As Integer
Dim intDiasMax As Integer

strIntervaloTipo = "d"    ' "d" especifica dias como intervalo.
varSimb = Nz(txtSimbolo)               'Caixa de texto com o símbolo separador (Ex.: 1-2-3-; 1.2.3.;)
intervalo = Me.txtIntervalo

dteDataInicial = Nz(txtDataInicial)      'Caixa de texto para inserir o valor inicial
dteDataFinal = Nz(txtDataFinal)          'Caixa de texto para inserir o valor final
intDiasMax = DateDiff("d", dteDataInicial, dteDataFinal)

For i = 0 To intDiasMax Step intervalo
txtSequencia = txtSequencia & DateAdd(strIntervaloTipo, i, dteDataInicial) & varSimb

Next i
End Function

Olá Cem,

Fiz uma pequena modificação no último código para somar datas. Segue em anexo:

Boa noite
Eu utilizado Access 2000 , ao abrir esta dando msg do anexo como banco de dados formato desconhecido

Olá cem,

Segue em anexo no formato Access 2000.

Obrigado e desculpa incomodo
Ainda esta dando a mesma msg que o banco de dados esta em formato desconhecido
Abs

Olá cem,

Crie dois formulários como estes e identifique no código da função que já te passei os campos correlatos. Chame a função pelo botão Gerar:

Gerando sequência de datas com intervalo igual a 7:

Código:

Private Sub cmdGerar_Click()
On Error Resume Next

Call SomaData
End Sub

Gerando sequência de números com intervalo igual a 1:

Código:

Private Sub cmdGerar_Click()
On Error Resume Next
If Not IsNull(txtValorInicial) Or Not IsNull(txtValorFinal) Or Not IsNull(txtIntervalo) Then
Call CriarSequencia(txtValorInicial, txtValorFinal)    'Chama a função com seus parâmetros referenciados pelos argumentos aqui que são as caixas de texto.
Else
MsgBox "Preencha, por favor, todos os campos. Separador siginifica um (-) ou (/). Intervalo significa de 1 em 1 ou 2 em 2. " & _
"Digite 1 ou 2 ou qualquer outro número !!!", vbCritical, "Gerador de Números em Série"
End If
End Sub

Olá a todos

Eduardo, tomei a liberdade de adicionar no seu exemplo da mensagem nº 5 também no formato 2000.

Carlos, tem na mensagem nº 5, no entanto está na hora de começar atualizar, é uma versão antiga.

Olá cem,

Adquira os livros abaixo para ampliar os seus conhecimentos:

Para iniciante:
https://www.maximoaccess.com/t32310-segundo-livro-publicado-do-good-guy-domine-o-access-vba-para-iniciantes-na-programacao

Para usuário avançado:
https://www.maximoaccess.com/t29536-livro-publicado-tecnicas-especiais-de-access-vba-da-autoria-de-good-guy

"O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)