rakamı metne cevirirken "can't find project or library&

[merdooo]

metni sayıya ceviran fonksiyonu maaş programına ekliyorum
ama

"can't find project or library"
hatası veriyor
fonksiyonu uygun sekilde ekledim
acil........................
----------------------------------
Function yazi$(sayi)
Dim virgulonce As String
Dim virgulsonra As String
Dim sayi1 As Currency
Dim sayi2 As Integer

sayi1 = Fix(sayi)
sayi2 = Val(Right(Str(sayi * 100), 2))

virgulonce = yaziyla(sayi1, False) + " YTL"

If sayi2 = 0 Then
virgulsonra = ""
Else
virgulsonra = yaziyla(sayi2, True) + " Yeni Kuruş"
End If

yazi = virgulonce + " " + virgulsonra
End Function
-------------------------------------------------
sayi2 = Val(Right(Str(sayi * 100), 2))
bu satırda ki str sararıyor ve calısmıyor.
tşk.
gosgarbaba@hotmail.com

 

[zafer]

Merhaba


Veritabanınız, başka bir veritabanına, tür kitaplığına veya nesne kitaplığına References (Başvurular) iletişim kutusunda MISSING: <başvuruadı> (EKSİK: <başvuruadı>) biçiminde işaretlenmiş bir başvuru içermektedir.

Eksik başvuruyu kaldırmak için şu adımları izleyin:
1. Visual Basic Düzenleyicisi'ni açmak için ALT+F11 tuş bileşimine basın.
2. Tools (Araçlar) menüsünde References'ı (Başvurular) tıklatın.
3. MISSING: biçiminde işaretlenmiş tür kitaplığının veya nesne kitaplığının onay kutusunu tıklatarak işaretini kaldırın

 

[merdooo]

cok cok tesekur ederim arkadaslar.
sorun cozuldu sayenizde...
kolay gelsin tekrar saolun

UNUTMADAN BİDE NEDENİNİ
ÖĞRENEBİLİRMİYİM...