RunTime error13 Htasi Hk - Baskı Önizleme

RunTime error13 Htasi Hk - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: RunTime error13 Htasi Hk (/konu-runtime-error13-htasi-hk.html)

Sayfalar: 1 2

RunTime error13 Htasi Hk - Subco - 12/12/2010

Arkadaslar Merhaba,

Yapmaya calistigim programda asagidaki hata nin cikmasini istemiyorum. bunun yerine bir mesaj ciksin ve OK deyince form a geri donsun.

[img]C:\Users\user-12\Desktop\debughatasiaa[/img]

bu konuda yardimci olabilirmisiniz.

Saygilar

Subco

Cvp: RunTime error13 Htasi Hk - alpeki99 - 12/12/2010

Eklemek istediğiniz kayıt ile alan türü birbiri ile uyumsuz ise bu hatayı alırsınız. Örnek uygulamayı ekleyin lütfen.

input a tarih disinda veri girince uyarsin - Subco - 12/12/2010

Arkadaslar Merhaba,

asagida ki kod da INPUT a tarih giriliyor, eger kullanici tarih degilde metin girerse yada tarih disinda bir bilgi girdigi zaman mseaj olarak uyari versin " lutfen girdiginiz bilgileri kontrol ediniz" gibi, bunu nasil yapabilirim.



Private Sub Form_Open(Cancel As Integer)

  

strDate = InputBox("Lutfen Puantaj Giris Tarihini Giriniz!!!", "Main Database") ',Format(Now() - 1, "dd/mm/yy"))

    

If strDate = "" Then Cancel = True: Exit Sub

If CDate(strDate) < Now() - 7 Or CDate(strDate) > Now() Then MsgBox strDate & " is wrong date.You can't enter this date", vbCritical: Cancel = True: Exit Sub

              

    strDate = Format(strDate, "MM/dd/yyyy")



    Me![Tarih].DefaultValue = "#" & strDate & "#"

    

        TimerStartTime = Now()

           

    End Sub

ilginiz icin simdiden cok tesekkur ederim.

Saygilar,

Subco

d Sub

Cvp: RunTime error13 Htasi Hk - Subco - 12/12/2010

Sn alpeki99 Bey

Frm_Manhour formuna girerken tarih soruyor, burada tarih yerine kullanici baska bir sey ayzinca run time hatasi cikiyor ben bu hatanin engllenmesini cikmamasini istiyorum bunun yerine bir uyari mesaji cikabilir. ilgili dosya ekte dir bilgilerinize.

saygilar

subco

Cvp: RunTime error13 Htasi Hk - Hayri16 - 13/12/2010

Sayın subco;
Sorununuz için bilebildiğim kadarıyla 3 çözüm önerisi sunuyorum.
1- Hatayı dikkate almadan devam etmek için

Private Sub Form_Open(Cancel As Integer) 'bu satırın altına aşağıdaki satırı ekleyin

On Error GoTo hata

sonra en alta da, "end sub" dan önceye

hata:

Exit Sub

End Sub

ekleyiniz.
2- Girilen tarihin geçerlilik kontrolünü yap. isdate(değer) fonksiyonu
"strdate = InputBox("Lutfen Puantaj Giris Tarihini Giriniz!!!", "Main Database")" satırının altına

If IsDate(strdate) = False Then

MsgBox ("Geçersiz tarih")

Exit Sub

End If

kodunu ekle
3- Girişi inputbox la değil. Bu forumda çok örneğini bulacağın şifre giriş formlarıyla tarih sor. Orada yapacağın metin kutusuna takvim bağla. Kullanıcı sadece takvimden seçebilsin.

Benim önerilerim bunlar. İnşallah işine yarar. Saygılarımla.

Cvp: RunTime error13 Htasi Hk - Subco - 13/12/2010

Sn Hayri16

Ilginiz icin cok tesekkur ederim. Onerilerinizi uyguladim.
Ancak runtime error olmuyor ama , mesajdan sonra formu aciyor tarih alanina 10/12/2010 yaziyor. eger girilen tarih formati hataliysa onceki mesajlarda belirttigim gibi ise, form acilmasin, kullanici forma giremesin.

Ilginiz icin cok tesekkur ederim.

Saygilar

Subco