Tela diaria de Locadora

[filipescoob 1]

Salve galera... Sabado e muita gente programando uns Freela igual eu, rsrsrs

 

Estou com um problema em uma tela de locadora.. o que acontece é o seguinte

 

tenho a seguinte tela abaixo

 

 

tenho um grid para mim que traz a seguinte informação

 

Domingo;Segunda;Terça;Quarta;Quinta;Sexta;Sabado;

 

Quando o operador clica duas vezes em um registro eu abro ele para edição porem quando vou edita-lo ele não peenche corretamente todos os checks acima.... da o seguinte erro.

 

Substring of range no array do split

 

abaixo o codigo

 

a = InStr(.TextMatrix(.RowSel, 6), ";")   If a > 0 Then	For i = 0 To 6	If i > a - 1 Then		Exit For	End If		 myvalue = Split(a, ";")	  For j = 0 To 6		If myvalue(i) = chkDias(j).Caption Then			chkDias(j).Value = 1		End If	  Next j	Next iEnd If	If txtValor.Text <> Empty Then		txtValor.Text = FormatCurrency(.TextMatrix(.RowSel, 7))	End If	b = InStr(.TextMatrix(.RowSel, 8), ";")MsgBox b	If b > 0 Then	For i = 0 To 6	 myvalue2 = Split(Trim(b), ";")	 If IsNull(myvalue2(i)) Then		Exit For	 End If		For j = 7 To 13		  If myvalue2(i) = chkDias(j).Caption Then			  chkDias(j).Value = 1		  End If		Next j	Next iEnd If

Se alguem puder me ajudar... Obrigado

[AlexandreMota 22]

Me envie uma cópia do seu sistema para alexaalex@bol.com.br para eu tentar alterar alguns códigos e fazer o seu programa funcionar corretamente.

[filipescoob 1]

Kara desculpe não posso pois por contrato não posso divulgar estas informações se te mandar e alguem descobrir tenho que pagar uma multa 3 vezes o valor do sistema.Sem mais agradeço e se puder me ajudar...attFilipe

[Dennys Lopes 0]

Realmente só olhando assim fica complicado ....O erro deve ser porque voce ta dando o split no ';' ..... se caso a string naum possuir ';' ou possuir menos que 6 ';'s pelo que eu vi ele vai dar esse erro ...Aconselho voce a verificar primeiro se na string tem um ';' ... e depois no for nao colocar direto 6 ... colocar de acordo com o resultado do SPLIT