คำนวณsumไม่ได้ครับ/ขอวิธีลงรูปหน่อยครับ/ผมใส่นิพจค่าวันทีไม่ได้ครับ

[ชุติพนธ์ มหาทรัพย์]

1.ผมต้องการให้ฟอร์มรับค่าช่องจำนวนในฟิล เมื่อสิ้นสุดหน้าอะครับ แต่มันไม่รับค่า ขึ้นerrorตลอดเลยครับ ขอทางแก้หน่อยครับ


2.ผมใส่ค่านิพจ เพื่อดึงวันนที่ปัจจุบันไม่ได้ครับ




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

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

[UnKnown]

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

[ชุติพนธ์ มหาทรัพย์]

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

[UnKnown]

1. รายการในรีพอร์ตแบบ Continuous ผมใช้วิธีวางค่า sum ซ้อนใว้ข้างใน แล้วที่ด้านล่างจึงอ้างถึง =textbox... ไปอีกที


2. =Date() หรือ =Date$() นี่คำสั่งพื้นฐานเลยนะครับ ท่านลองสั่งตรวจสอบและซ่อมไฟล์ดูยังครับหรือลองทำไฟล์เปล่าๆแล้วใช้คำสั่งดูครับ


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