นำฟังก์ชั่นที่สร้างขึ้นมาใหม่มาใช้งาน
กระทู้เก่าบอร์ด อ.Yeadram

 995   5
URL.หัวข้อ / URL นำฟังก์ชั่นที่สร้างขึ้นมาใหม่มาใช้งาน

เรียนถามผู้รู้คะ
        พอดีว่าหนูสร้างฟังก์ชั่นขึ้นมาใหม่สมมุติว่าชื่อ DayDif3 แต่พอนำไปใช้งานแล้ว เวลารัน จะขึ้นกล่องข้อความว่า "ฟังก์ชั่นที่ไม่ได้กำหนด DayDif3 ในนิพจน์" เราต้องแก้ไขตรงไหนคะ หรือต้องทำอย่างไร
โดย: ปลายฟ้า เมื่อ: 16 ก.ย. 2559 , 16:41

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

1 @R22507
1. เอาไปใช้ที่ไหน
2. แล้วตำแหน่งที่เอาไปใช้ เขียนว่ายังไง
3. ตัวฟังก์ชั่นเอง เขียนบรรทัดที่ประกาศฟังก์ชั่นว่ายังไง
4. ตัวฟังก์ชั่นเอง เขียนเอาไว้ที่ไหน

ปล. ที่ถูกต้องคือ "ถามผู้รู้ค่ะ" ไม่ใช่ "ถามผู้รู้คะ"
โดย: สันติสุข เมื่อ: 17 ก.ย. 2559 , 21:42
2 @R22508
เรียน อาจารย์สันติสุขค่ะ
ข้อ1 เอาไปใช้ใน Query ค่ะ
ข้อ 2 เขียนว่า expr1:DayDif3([ชื่อฟิลด์1],[ชื่อฟิลด์2])
ข้อ 3 รูปแบบฟังก์ชั่นค่ะ
        Function DayDif3(D1 As Date, D2 As Date)
            k = DateDiff("n", D1, D2) - 8 * 60
            If k > 0 And k < 60 Then
            DayDif3 = k
            Else
            DayDif3 = 0
        End If
        End Function
ข้อ 4 เขียนฟังก์ชั่นที่โมดูลค่ะ
ขอบคุณค่ะ
โดย: ปลายฟ้า เมื่อ: 19 ก.ย. 2559 , 09:36
3 @R22509
ลอง
1. ฟังก์ชั่นให้แก้เป็น
    Public Function DayDif3.....
       Dim k as long
       ...
2. ลองคอมไพล์ก่อนใช้งานด้วยครับ อาจเจอที่ผิดอื่นๆ
โดย: สันติสุข เมื่อ: 19 ก.ย. 2559 , 11:16
4 @R22524
ลองนำไปแก้ไขแล้วนะคะ แต่ยังไม่ได้ ขึ้นกล่องข้อความเหมือนเดิมค่ะ

ขอบคุณที่ให้คำแนะนำค่ะ
โดย: ปลายฟ้า เมื่อ: 21 ก.ย. 2559 , 08:28
5 @R22526
ไปเจอมาว่าคงเป็นปัญหาจากใน VBA Refrence มีการเลือกไลบรารี่ที่ตอนนี้ไม่มีอยู่ในระบบแล้ว (จะมีคำว่า Missing นำหน้า) ให้เอาเครื่องหมายที่เลือกไลบรารี่นั้นออกครับ

https://support.microsoft.com/en-us/kb/824277
โดย: สันติสุข เมื่อ: 21 ก.ย. 2559 , 09:03
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 1.2424s