PROBLEMA DE INDICE COMPOSTO

JAIRMAR 10/08/2009 09:42:39
#319430

Bom dia Pessoal.

Tenho uma tabela chamada historico_markenting que usa um indice composto não primario onde eu quero que o ponteiro do indice me posicione no primeiro registro obdecendo os valores dos campos indexados que sáo: lembrete igual a branco, atendente igual a [Ô]jose[Ô], data_lembrete igual a [Ô]08/08/09[Ô]. Ele posiciona no primeiro, mas quando uso o comando [Ô]do while[Ô] para ele continuar sequencialmente obdecendo o paramentro do [Ô]do wihile[Ô] ele me informa totalmente errado parecendo que o meu indice composto náo está indexado.
Segue exemplo abaixo
campos tipo valor
lembrete sim/náo [Ô]0[Ô] obs. [Ô]0[Ô] = [Ô]não[Ô] , [Ô]-1[Ô] = [Ô]sim[Ô]
atendente texto [Ô]jose[Ô]
data_lembrete data [Ô]08/08/09[Ô]


Private Sub ler_arq()

Data1.Refresh
Data1.Recordset.MoveFirst
wlembrado = 0
Data1.Recordset.FindFirst [Ô]lembrado like[ô][Ô] & wlembrado & [Ô][ô] [Ô]
If Data1.Recordset.NoMatch Then Exit Sub
Do While Data1.Recordset.Fields([Ô]lembrado[Ô]) = 0
watendente = Data1.Recordset.Fields([Ô]atendente[Ô])
wlembrete = Data1.Recordset.Fields([Ô]data_lembrete[Ô])
wassunto = Data1.Recordset.Fields([Ô]assunto_tratar[Ô])
wresp1 = Data1.Recordset.Fields([Ô]resposta_cliente1[Ô])
wresp2 = Data1.Recordset.Fields([Ô]resposta_cliente2[Ô])
wfone1 = Data1.Recordset.Fields([Ô]fone1[Ô])
[ô]proximo registro
pesquisa_contato
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Exit Sub
Loop


End Sub

Me ajudem


Obrigado