Duplicate field

[chsu]

Hi

I am struggled with the code like back and forth. Maybe I am tired or Friday of 13th? Anyway, I am trying to set up the field like below:

AME00USD101000!AME00000101000
AME10USD101000!AME00000101000
AME10USD101000!AME00000101000

AME10USD101000!AME10USD101000 - I don't want that. How to get rid of.


I wrote the code:

'WORLD - BULOCPPPSSS
Set rsStruc = dbStruc.OpenRecordset("REGBULOCPPPSSS", dbOpenSnapshot)
rsStruc.MoveFirst
Do Until rsStruc.EOF
strBU = Right(rsStruc.Fields("BUSINESS_UNIT&quot, 3)
strBUDesc = rsStruc.Fields("Bu ShortDesc&quot
strLOC = rsStruc.Fields("LOCAL_CTRY&quot
strLOCDesc = rsStruc.Fields("LOCAL_SHORTDESCR&quot
strCCC = rsStruc.Fields("CURCODE&quot
strP = rsStruc.Fields("PRACTICE&quot
strPDesc = rsStruc.Fields("DESCRIPTION&quot
strPPP = rsStruc.Fields("PPP&quot
strPPPDesc = rsStruc.Fields("PPPDESC&quot
strPPPSSS = rsStruc.Fields("PRODUCT&quot
strPPPSSSDesc = rsStruc.Fields("DESCRSHORT&quot
'NAME - WORLD
strEnt = strBU & strLOC & "000" & strPPPSSS
strEnt2 = strBU & strLOC & "USD" & strPPPSSS
strEntDesc = strLOCDesc & " " & strPPPSSSDesc
If strEnt <> strEnt1 And strP <> 0 Then Print #intName, strEnt & &quot;!&quot; & strEntDesc & &quot;!&quot; & strBU & strP & strNameEnd & strCCC & strNameEnd1
If strEnt <> strEnt1 And strP = 0 Then Print #intName, strEnt & &quot;!&quot; & strEntDesc & &quot;!&quot; & strBU & strNameEnd & strCCC & strNameEnd1
If strEnt3 <> strEnt2 And strP <> 0 Then Print #intName, strEnt2 & &quot;!&quot; & strEntDesc & &quot;!&quot; & strBU & strP & &quot; ! !USD !0! ! ! ! !CHART! ! ! !CHART&quot;
If strEnt3 <> strEnt2 And strP = 0 Then Print #intName, strEnt2 & &quot;!&quot; & strEntDesc & &quot;!&quot; & strBU & &quot; ! !USD !0! ! ! ! !CHART! ! ! !CHART&quot;
'OWNER - WORLD
If strEnt <> strEnt1 And strP = 0 Then Print #intOwn, strBU & strLOC & &quot;000&quot; & strPPP & &quot;XXX&quot; & &quot;!&quot; & strEnt & strOwnEnd
If strEnt <> strEnt1 And strP <> 0 Then Print #intOwn, strBU & strLOC & &quot;000&quot; & strPPP & &quot;XXX&quot; & &quot;!&quot; & strEnt & strOwnEnd
If strEnt3 <> strEnt2 And strP = 0 Then Print #intOwn, strBU & strLOC & &quot;USD&quot; & strPPP & &quot;XXX&quot; & &quot;!&quot; & strEnt2 & strOwnEnd
If strEnt3 <> strEnt2 And strP <> 0 Then Print #intOwn, strBU & strLOC & &quot;USD&quot; & strPPP & &quot;XXX&quot; & &quot;!&quot; & strEnt2 & strOwnEnd
If strEnt <> strEnt1 And strP = 0 Then Print #intOwn, strBU & strLOC & &quot;USD&quot; & strPPPSSS & &quot;!&quot; & strEnt & strOwnEnd
If strEnt <> strEnt1 And strP <> 0 Then Print #intOwn, strBU & strLOC & &quot;USD&quot; & strPPPSSS & &quot;!&quot; & strEnt & strOwnEnd
strEnt1 = strEnt
strEnt3 = strEnt2
strEnt2 = strEnt
rsStruc.MoveNext

Loop
rsStruc.Close

Am I missing? Please find something.

Thanks for all your help. :-0

chsu
[sig][/sig]

 

[30Hobbes]

chsu,

After looking at your code quickly the only question that I have is did you try using a Do While Loop instead of Do Until.
If you change your loop to:
Do While Not rsStruc.EOF

You may get the results you want.
[sig][/sig]