AccessTr.neT

Merhabalar;

Ekteki dosyada Ücret tutarı ve İkramiye tutarını girdikten sonra xml dosyasına çevirince virgülü noktaya çevirmiyor. Buradaki hata ne olabilir.

excelden pek anlamam ama 
şu kodları bir deneyin

 Dim aaa As String
If aaa <> "" Then
                aaa = PEK.Replace(",", ".")
       
       Else
       End If

Merhaba C*e*l*o*y*c*e ;
İlginiz için Teşekkür ederim. Fakat,
Aşağıdaki kod Excel dosyasının içeriğinde var, ancak çalışmıyor.

PEK = 0

       'MsgBox Val(PRIM_UCRET)

       If (IsNumeric(PRIM_UCRET)) Then

         PEK = PEK + Val(PRIM_UCRET)

       End If

       If (IsNumeric(PRIM_IKRAMIYE)) Then

         PEK = PEK + Val(PRIM_IKRAMIYE)

       End If

       PEK = Replace(PEK, ",", ".")