Help Me Please Edit Code
กระทู้เก่าบอร์ด อ.Yeadram

 1,104   2
URL.หัวข้อ / URL
Help Me Please Edit Code

**Why I Can't use Thai keyboard for this web board**
I Have a Code for change text to Date But it error when data is Null
please edit code when error (I'm Beginner Access)

..........................................................

Function TxtToDate(strDate As String)
        Dim ConvDate As Date
               ConvDate = DateSerial(Left(strDate, 4) - 543, Mid(strDate, 5, 2), right(strDate, 2))
        TxtToDate = ConvDate
End Function
..................................................

Thank you so much

2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R00938
On error resume next

หรือการดัก ค่า null ตรงๆ ก็ได้ เช่น

if isnull(strDate) then
txtToDate="errNull"
Exit Function
End if

-------------------
"ใช้ภาษาไทยโพสต์ในบอร์ดนี้ไม่ได้" อันนี้เดาสาเหตุไม่ออกครับ ลองรีเฟรสอีกที หรือไม่ลองล้าง Tempolary internet files ดูก็แล้วกันครับ
2 @R00947
ขอบคุณมากครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2836s