exemplo ao clicar em um botão ele faz um loop em um arquivo tipo
antes
|1|0200|42654|BUCHA BAND DT P DT|||UN|00|40169990||40||||
|2|0200|43100|BUCHA BAND DT P DT|||PC|00|40169990||40||||
|3|0200|33382|BUCHA BAND DT P DT|||UN|00|40169990||40||||
|4|0200|34958|BUCHA BAND DT P DT|||UN|00|40169990||40||||
|5|0200|35455|BUCHA BAND DT P DT|||UN|00|40169990||40||||
|5|0200|38033|BUCHA BAND DT P/DT|||UN|00|40169990||40||||
eu quero uma logica que ao reconhecer que existe campos com dados igual na caso o campo4, ela logo atualizava assim
depois
|1|0200|42654|BUCHA BAND DT P DT A|||UN|00|40169990||40||||
|2|0200|43100|BUCHA BAND DT P DT B|||PC|00|40169990||40||||
|3|0200|33382|BUCHA BAND DT P DT C|||UN|00|40169990||40||||
|4|0200|34958|BUCHA BAND DT P DT D|||UN|00|40169990||40||||
|5|0200|35455|BUCHA BAND DT P DT E|||UN|00|40169990||40||||
|5|0200|38033|BUCHA BAND DT P/DT F|||UN|00|40169990||40||||
note que no campo4 seria adicionado o A, B, C, D, E, F
eu tinha tentado assim
Private Sub Comando59_Click()
DoCmd.Requery
Dim i As Integer
For i = 1 To Me.Lista57
essa seria minha logica
if me.campo4 = me.campo4 do registro anterior then
me.campo4 = me.campo4 + a
End If
DoCmd.GoToRecord , , acNext
Next
End Sub
antes
|1|0200|42654|BUCHA BAND DT P DT|||UN|00|40169990||40||||
|2|0200|43100|BUCHA BAND DT P DT|||PC|00|40169990||40||||
|3|0200|33382|BUCHA BAND DT P DT|||UN|00|40169990||40||||
|4|0200|34958|BUCHA BAND DT P DT|||UN|00|40169990||40||||
|5|0200|35455|BUCHA BAND DT P DT|||UN|00|40169990||40||||
|5|0200|38033|BUCHA BAND DT P/DT|||UN|00|40169990||40||||
eu quero uma logica que ao reconhecer que existe campos com dados igual na caso o campo4, ela logo atualizava assim
depois
|1|0200|42654|BUCHA BAND DT P DT A|||UN|00|40169990||40||||
|2|0200|43100|BUCHA BAND DT P DT B|||PC|00|40169990||40||||
|3|0200|33382|BUCHA BAND DT P DT C|||UN|00|40169990||40||||
|4|0200|34958|BUCHA BAND DT P DT D|||UN|00|40169990||40||||
|5|0200|35455|BUCHA BAND DT P DT E|||UN|00|40169990||40||||
|5|0200|38033|BUCHA BAND DT P/DT F|||UN|00|40169990||40||||
note que no campo4 seria adicionado o A, B, C, D, E, F
eu tinha tentado assim
Private Sub Comando59_Click()
DoCmd.Requery
Dim i As Integer
For i = 1 To Me.Lista57
essa seria minha logica
if me.campo4 = me.campo4 do registro anterior then
me.campo4 = me.campo4 + a
End If
DoCmd.GoToRecord , , acNext
Next
End Sub