Makroda Hata Kodu:13

[koyuk]

iyi aksamlar
Ilginc bir hatayla karsi karsiyayim
Ilginc olan Bilgisayarin birinde bu hatayi alirken digerinde bu hatayi almiyorum
Iki bilgisayardada Office 2007 yukludur

Private Sub txtSN9_Change()
Dim odenis As Integer, mebleg As Integer, qaliq As Integer
Dim osay As Integer
Dim amebleg As Single
Dim ntarix As Date, btarix As Date

If lblSN2.Caption <> "" Then
    If txtSN9.Value = "" Then
        odenis = 0
    Else
        odenis = txtSN9.Value
    End If
    If txtSN10.Value = "" Then
        osay = 1
    Else
        osay = txtSN10.Value
    End If
    tarix = Format(txtSN1.Value, "dd.mm.yyyy")
    [B][COLOR="Red"]ntarix = DateAdd("m", 1, tarix)
    btarix = DateAdd("m", osay, tarix)[/COLOR][/B]
    mebleg = lblSN2.Caption
    qaliq = mebleg - odenis
    amebleg = Round(qaliq / osay, 2)
    lblSN4.Caption = qaliq
    lblSN5.Caption = amebleg
    lblSN6.Caption = Format(ntarix, "dd.mm.yyyy")
    lblSN7.Caption = Format(btarix, "dd.mm.yyyy")
End If
End Sub

kirmizi ile isaretledigim satirda
Hata kodu 13 aliyorum
yani Tip uyumsuzlugu

sorun neden kaynaklana bilir acaba?

 

[koyuk]

Ofisi kaldirip tekrar yukledim bir cozum olmadi

 

[Zeki Gürsoy]

Bilgisayarın birinde çalışıp diğerinde çalışmaması ilginç...

Aşağıdaki gibi deneyin.

ntarix = DateAdd("m", 1, cdate(tarix))
btarix = DateAdd("m", osay, cdate(tarix))

 

[koyuk]

Bilgisayarın birinde çalışıp diğerinde çalışmaması ilginç...

Aşağıdaki gibi deneyin.

ntarix = DateAdd("m", 1, cdate(tarix))
btarix = DateAdd("m", osay, cdate(tarix))

ilginiz icin oncelikle tesekkurler
ne yazikki boylede ayni hatayi verdi

gecen bu hata veren bilgisayrda tarih degiskenindede sorun olmusdu
dim tarix as date diye tanimlamisdim
hata veriyordu yine 13
bende tanimlamadim sorun cozulmusdu
simdi fark etmiyor degiskenleri tanimlasamda tanimlamasamda ayni hata

 

[koyuk]

Sorun hata
diger bilgisayrdaki tarix ayracinin farkli olmasi imis
belki birilenin karsisina boyel sorun cika bilir