Estou desenvolvendo um projeto para emitir um carnet de pagamento. O número máximo de prestações é 36.
Estou precisando um código que eu possa fazer o seguinte:
Na minha tabela eu tenho:
Matrícula
Nº Parcela
Vencimento
Valor
Na tela eu digito o vencimento da 1ª parcela.
O que eu gostaria de fazer:
Preencher todos os outros vencimentos, de acordo com o numero de parcelas informado.
Tenho um text box para cada vencimento, e quero preencher estes text box.
No momento estou desenvolvendo da seguinte forma:
For w_cont = 2 To Texto37.Value
w_venc_par(w_cont) = DateAdd("m", 1, w_venc_par(w_cont - 1))
Select Case w_cont
Case 2
w_ven_2 = w_venc_par(w_cont)
Case 3
w_ven_3 = w_venc_par(w_cont)
Case 4
w_ven_4 = w_venc_par(w_cont)
End Select
Next
w_ven_1; w_ven_2; w_ven_3 .... são os nomes dos meus text box. Desenvolvendo como eu estou fazendo, irei ter que ter 36 cases. Existe uma maneira de eu mudar os nomes w_ven_????, usando o valor de w_cont. Seria algo mais ou menos assim:
w_ven_(w_cont) = w_venc_par(w_cont)
Grato
Eduardo
Estou precisando um código que eu possa fazer o seguinte:
Na minha tabela eu tenho:
Matrícula
Nº Parcela
Vencimento
Valor
Na tela eu digito o vencimento da 1ª parcela.
O que eu gostaria de fazer:
Preencher todos os outros vencimentos, de acordo com o numero de parcelas informado.
Tenho um text box para cada vencimento, e quero preencher estes text box.
No momento estou desenvolvendo da seguinte forma:
For w_cont = 2 To Texto37.Value
w_venc_par(w_cont) = DateAdd("m", 1, w_venc_par(w_cont - 1))
Select Case w_cont
Case 2
w_ven_2 = w_venc_par(w_cont)
Case 3
w_ven_3 = w_venc_par(w_cont)
Case 4
w_ven_4 = w_venc_par(w_cont)
End Select
Next
w_ven_1; w_ven_2; w_ven_3 .... são os nomes dos meus text box. Desenvolvendo como eu estou fazendo, irei ter que ter 36 cases. Existe uma maneira de eu mudar os nomes w_ven_????, usando o valor de w_cont. Seria algo mais ou menos assim:
w_ven_(w_cont) = w_venc_par(w_cont)
Grato
Eduardo