accesste runtime error 2450?????

[ozoozo]

merhaba arkadaşlar
formda yazdıgım vb kodunu çalıştırıken(event sekmesinde ) hep bu hatayı veriyo.yardım edebilcek arkadaş var mı acaba.
şimdiden teşekkürler

 

[gulsum1]

arıza veren programın tamamını ekle sorununu çözelim

 

[ozoozo]

merhaba gülsüm1 programın tamamı asagıdaki gibi. access e başlıyalı 4 gün oldu baya yanlışlık olabilir.kusuruma bakma..hertürlü yardımın bu projeyi bitrmemde çok etkili olcak .şimdiden teşekkürler
Option Compare Database

Private Sub taleptarihi_AfterUpdate()
Dim fdate As Date
Dim ldate As Date
Dim tıpı As String
Dim talep As Integer

fdate = Forms!yeni!taleptarihi.Date



talep = Forms!yeni!talepsüresi.SetFocus
talep = Forms!yeni!talepsüresi.Number

ldate = DateAdd("yyyy", 1, fdate)
sdate = DateAdd("m", talep, fdate)

tıpı = Forms!yeni!taleptipi.SetFocus
tıpı = Forms!yeni!taleptipi.Text

If tıpı = "daimi" Then
Forms!yeni!konroltarihi.SetFocus
Forms!yeni!konroltarihi = ldate


If tıpı = "geçici" Then

Forms!yeni!konroltarihi.SetFocus
Forms!yeni!konroltarihi = sdate
End If
End If
Forms!yeni!Açıklama.SetFocus

End Sub
Private Sub taleptarihi_BeforeUpdate(Cancel As Integer)

End Sub


programda kontrol tarihini talep tipine göre otomatik olarak oluşturdugum forma yazdırmak istiyorum...

 

[ozoozo]

Ya sorunu çözdüm galiba."date ve number" tanımlamışım yanlış yerlere(değişkenleri atamada).object leri text olarak değiştirince sorun çözüldü.

ama bu sefer başka bir sorun var bu sorunuma çözüm bulabilirseniz sevinirim.

ilk if deyimi çalışıyo ama "geçici" durum için çalışmıyo yani ikinci if deyimine girmeden programdan çıkıyo.vba da da C deki ki else if veya switch gibi bir deyim var mı acaba varsa nasıl kullancam.ilgilenenlere teşekkürler

 

[gulsum1]

2 if alt alta yaz
if asddd then
end if

if asder then

end if

+ bu tip sıralı işlemler için Select Case kullan
Select Case Me.tıpı
Case "daimi"
Forms!yeni!konroltarihi.SetFocus
Forms!yeni!konroltarihi = ldate
Case "geçici"
Forms!yeni!konroltarihi.SetFocus
Forms!yeni!konroltarihi = sdate
End Select

 

[ozoozo]

teşekkürler gülsüm1
yardımlarınla birçok şey öğrendim accesste. bu arada bu forumda yeniyim ve forumu incelediğimde birçok konuda bilgin oldugunu ve herkese elinden geldiğince yardım etmeye çalıştıgını gördüm.
benim ve herkesin adına teşekkürler
çalışmlarında başarılar