Boa tarde amigos!
Tenho dois problemas que preciso resolver. Primeiro, tenho uma agenda de marcação de horários com 42 textBox, uma para cada horário do dia, os horários são marcados em intervalos de 20 minutos entre 7 e 20 horas. Quando clico numa textBox, ela chama o formulário de agendamento de horário, após realizado o agendamento e ao clicar em salvar, preciso que o controle seja devolvido para a textBox que chamou e que seja impresso na mesma algumas informações como "Hora - Procedimento - Nome do Cliente". Segundo problema. Sou iniciante em programação. Fiz o código para preencher os horários disponíveis nas textBox, porém tive que repetir o código 42 vezes, o certo seria utilizar um laço de repetição, porém como tenho que utilizar objetos (textBox) no laço não soube como fazer. Se alguém puder me ajudar serei grato. Segue parte do código, lembrando que repetí o código para 8 horas, 9 horas, e consecutivamente. Resolvendo o primeiro problema já estaria solucionado, porém meu código ficaria muito poluído, se der para resolver os dois problemas seria melhor. Um grande abraço.
Private Sub Form_Load()
If Me.txt700.Value = Me.txt700 Then
Me.txt700.Value = Me.txt700.Value
Me.txt700.Enabled = False
Else
Me.txt700.Value = "07:00"
End If
If Me.txt720.Value = Me.txt720 Then
Me.txt720.Value = Me.txt720.Value
Else
Me.txt720.Value = "07:20"
End If
If Me.txt740.Value = Me.txt740 Then
Me.txt740.Value = Me.txt740.Value
Else
Me.txt740.Value = "07:40"
End If
Tenho dois problemas que preciso resolver. Primeiro, tenho uma agenda de marcação de horários com 42 textBox, uma para cada horário do dia, os horários são marcados em intervalos de 20 minutos entre 7 e 20 horas. Quando clico numa textBox, ela chama o formulário de agendamento de horário, após realizado o agendamento e ao clicar em salvar, preciso que o controle seja devolvido para a textBox que chamou e que seja impresso na mesma algumas informações como "Hora - Procedimento - Nome do Cliente". Segundo problema. Sou iniciante em programação. Fiz o código para preencher os horários disponíveis nas textBox, porém tive que repetir o código 42 vezes, o certo seria utilizar um laço de repetição, porém como tenho que utilizar objetos (textBox) no laço não soube como fazer. Se alguém puder me ajudar serei grato. Segue parte do código, lembrando que repetí o código para 8 horas, 9 horas, e consecutivamente. Resolvendo o primeiro problema já estaria solucionado, porém meu código ficaria muito poluído, se der para resolver os dois problemas seria melhor. Um grande abraço.
Private Sub Form_Load()
If Me.txt700.Value = Me.txt700 Then
Me.txt700.Value = Me.txt700.Value
Me.txt700.Enabled = False
Else
Me.txt700.Value = "07:00"
End If
If Me.txt720.Value = Me.txt720 Then
Me.txt720.Value = Me.txt720.Value
Else
Me.txt720.Value = "07:20"
End If
If Me.txt740.Value = Me.txt740 Then
Me.txt740.Value = Me.txt740.Value
Else
Me.txt740.Value = "07:40"
End If