Reorganizar numeração

[Irenko 0]

Não sei se isso é possivel, mas vamos tentar.

 

Carrego os seguintes dados em 05 TextBox array:

 

TextDesc 0 a 5

 

XXXXX

BBBBB

CCCCC

DDDDD

EEEEE

FFFFF

 

TextItem 0 a 5

 

1

2

3

4

5

 

Criei 05 CheckBox um para cada TextBox. O usuario carrega os dados acima com a opcão de escolher quais serão gravados, suponhamos que o mesmo atraves dos checkbox escolha os items 1, 2 e 5 então seria gravado:

 

3

4

 

Como organizar substituindo esses items para:

1

2

 

Não sei se fui claro na minha duvida, mas é possivel?

 

Ou então como fazer isso no proprio Form, o usuario escolhe quais não gravar o restante passa a ser sequencial.

[Paulo Mendes 0]

Cara...Beleza.

 

Utiliza a propriedade Tag do Controle. Tipo se for Tag = 1 ele grava e se for Tag = 0 ele não grava. Você grava a Tag quando o cara clica no CheckBox de cada form, então se ele clicar na CheckBox1 para Text1, logo Text1.Tag = 1, e vice e versa.

 

Para selecionar os TextBox com tag é muito simples

 

Dim Ctrl as Variant

For Each Ctrl in Me.Controls
  if TypeName(Ctrl) = TextBox and Ctrl.Tag = 1 Then
	<comando com os selecionados>
	<...>
  End IF
Next

Vê se funciona.

 

Paulo Mendes.