önceki mesajda da bahsi geçtiği üzere,uygulamanızı inceleme imkanı olmadığı için geçici bir bilgilendirme düşüncesi ile fikir vermesi adına,
örnek kalıp kullanımı olarak,aşağıda yer alan kodlamaların benzerinde bir kodlama kullanılabilir.
döngü içerisinde .MoveNext kod satırından önce;
Kod:
IIF(rs.Fields("Field181").Value="EUR","€",IIF(rs.Fields("Field181").Value="USD","$",IIF(rs.Fields("Field181").Value="GBP","£","TL")))
Kod:
If rs.Fields("Field181").Value = "EUR" Then
rs.Fields("Field181").Value="€"
elseIf rs.Fields("Field181").Value = "USD" Then
rs.Fields("Field181").Value="$"
elseIf rs.Fields("Field181").Value = "GBP" Then
rs.Fields("Field181").Value="£"
else
rs.Fields("Field181").Value="TL"
End If