AccessTr.neT
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