Valor Padrão

Pessoal preciso muito da ajuda de vocês. Preciso que ao adicionar um novo registro, automaticamente, um campo do meu formulário, receba vários valores padrão (campo horario). Conforme imagem



https://i.servimg.com/u/f36/19/90/94/15/20180611.jpg

Bom, primeiro seu projeto é em access ou excel? Explique melhor suas intensoes pois, pela imagem basta selecionar a celular e incluir o valor (o horario ja esta definido na coluna "A").

É Accsses excel e somente uma ilustração. O valor padrao seria o campo horário

Bom dia,

Com a licença, apenas uma ideia.

- Renomeie todos os campos que você quer que sejam preenchidos automaticamente na sequencia: txt1, txt2, txt3, ..., txtn. Depois disso, logo após o código que salva o registro na tabela, coloque o seguinte:

Código:

   Dim s
    txt1 = "07:22" 'aqui você coloca a hora inicial que você quer
    
    For i = 2 To 4 Step 0
        s = Split(Me("txt" & i - 1), ":")
        Me("txt" & i) = s(0) * 60 + s(1) + 30
        
        If Me("txt" & i) Mod 60 < 10 Then
            Me("txt" & i) = Int(Me("txt" & i) / 60) & ":0" & Me("txt" & i) Mod 60
        Else
            Me("txt" & i) = Int(Me("txt" & i) / 60) & ":" & Me("txt" & i) Mod 60
        End If
        
        i = i + 1
    Next

Onde no trecho For i = 2 To 4 Step 0 você vai substituir o 4 pelo número de controles que você tem aí.

Abraço.

Cassio colei a imagem em access do meu projeto acho que assim vc tera um entendimento melhor

Bom dia,

Faça o seguinte após salvar o registro na tabela e limpar o subform.

Código:

Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("tbl")
    
    With Me.form1![HORARIO]
        For i = 0 To .ListCount - 1 Step 0
            rs.AddNew
                rs("HORARIO") = .ItemData(i)
            rs.Update
            i = i + 1
        Next
    End With
    
    form1.Requery
    rs.Close

Onde tbl é a tabela em que o subformulário está acoplado, form1 é o seu subformulário e HORARIO é o campo da tabela/subform que está a listbox que contém os horários. Substitua esses nomes pelos nomes reais dos seus campos aí.

Abraço.

Cassio não consegui eu poderia te encaminhar a minha aplicação?

Boa tarde,

Veja o modelo em anexo e tente adaptar.

Abraço.