บอร์ดเรียนรู้ Access สำหรับคนไทย

Thai Access Webboard => ห้อง MS Access => ข้อความที่เริ่มโดย: ชุติพนธ์ มหาทรัพย์ ที่ 03 มี.ค. 63 , 20:54:08

หัวข้อ: คำนวณsumไม่ได้ครับ/ขอวิธีลงรูปหน่อยครับ/ผมใส่นิพจค่าวันทีไม่ได้ครับ
เริ่มหัวข้อโดย: ชุติพนธ์ มหาทรัพย์ ที่ 03 มี.ค. 63 , 20:54:08

1.ผมต้องการให้ฟอร์มรับค่าช่องจำนวนในฟิล เมื่อสิ้นสุดหน้าอะครับ แต่มันไม่รับค่า ขึ้นerrorตลอดเลยครับ ขอทางแก้หน่อยครับ
(https://thai-access.freeoda.com/images/q6meff-707981.PNG)

2.ผมใส่ค่านิพจ เพื่อดึงวันนที่ปัจจุบันไม่ได้ครับ
(https://thai-access.freeoda.com/images/q6meil-ab713f.PNG)

(https://thai-access.freeoda.com/images/q6mej1-3108ee.PNG)

3.ขอวิธีดึงรุปหน่อยครับ ตัวอย่างผมให้ ค่าAL นี้ ดึง ถาพที่1 ถ้าถูกเลือก  แล้วเมื่อเลือก AS ให้เลือกภาพที่ 2  แ้วให้ไปขึ้นในฟอร์มรายงาน

ขอคำแนะนำหน่อยครับ

หัวข้อ: : คำนวณsumไม่ได้ครับ/ขอวิธีลงรูปหน่อยครับ/ผมใส่นิพจค่าวันทีไม่ได้ครับ
เริ่มหัวข้อโดย: UnKnown ที่ 03 มี.ค. 63 , 21:19:09

2.วันที่ปัจจุบัน =Date()

หัวข้อ: : คำนวณsumไม่ได้ครับ/ขอวิธีลงรูปหน่อยครับ/ผมใส่นิพจค่าวันทีไม่ได้ครับ
เริ่มหัวข้อโดย: ชุติพนธ์ มหาทรัพย์ ที่ 04 มี.ค. 63 , 09:37:18

ใช้แล้วมัน มันก็ขึ้นแจ้งแบบเดิมเลยครับ

หัวข้อ: : คำนวณsumไม่ได้ครับ/ขอวิธีลงรูปหน่อยครับ/ผมใส่นิพจค่าวันทีไม่ได้ครับ
เริ่มหัวข้อโดย: UnKnown ที่ 04 มี.ค. 63 , 12:00:23

1. รายการในรีพอร์ตแบบ Continuous ผมใช้วิธีวางค่า sum ซ้อนใว้ข้างใน แล้วที่ด้านล่างจึงอ้างถึง =textbox... ไปอีกที
(https://thai-access.freeoda.com/images/q6niez-a40011.jpg)

2. =Date() หรือ =Date$() นี่คำสั่งพื้นฐานเลยนะครับ ท่านลองสั่งตรวจสอบและซ่อมไฟล์ดูยังครับหรือลองทำไฟล์เปล่าๆแล้วใช้คำสั่งดูครับ
(https://resources.cimaware.com/img/access-blog/EN/database/access-file-compact-3d.png)

3. ข้อนี้นี่ยังไงครับ คือว่า AL,AS นี่เป็น Checkbox ใช้ใหมครับ(เห็นใช้คำว่า"ถ้าถูกเลือก")
3.1 แบบแยกกันแสดงรูปคนล่ะที่

โค๊ด: [Select]

Private Sub AL_Click()
    Call ALAS
End Sub
Private Sub AS_Click()
    Call ALAS
End Sub

Public Sub ALAS()
DoCmd.SetWarnings False

    If Me.AL.Value = True Then
        Me.p101.Picture = CurrentProject.Path & "\" & "AL.png"
    Else
        Me.p101.Picture = ""
    End If

    If Me.AS.Value = True Then
        Me.p102.Picture = CurrentProject.Path & "\" & "AS.png"
    Else
        Me.p102.Picture = ""
    End If

DoCmd.SetWarnings True
End Sub


3.2 แบบแสดงรูปอยู่ที่เดียวเพียงแค่ตรวจดูว่า AS,AL มีการเลือกอยู่หรือไม่ถ้ามีก็นำรูปนั่นมาแสดง(*อันนี้ผมให้ AS สำคัญกว่านะ)

โค๊ด: [Select]

Private Sub AL_Click()
    Call ALAS
End Sub
Private Sub AS_Click()
    Call ALAS
End Sub

Public Sub ALAS()
DoCmd.SetWarnings False

    If Me.AS.Value = True Then
    Me.p101.Picture = CurrentProject.Path & "\" & "AS.png"
        ElseIf Me.AL.Value = True Then
        Me.p101.Picture = CurrentProject.Path & "\" & "AL.png"
    Else
        Me.p101.Picture = ""
    End If

DoCmd.SetWarnings True
End Sub