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


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

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


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




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

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




 

03 มี.ค. 63 , 21:19:09
ตอบกลับ #1

UnKnown

2.วันที่ปัจจุบัน =Date()
:ninja:     ลองคิด,ลองทำแนวคนไม่เก่งแอคเซส
หมายเหตุ เพื่อความปลอดภัยโปรดสำรองข้อมูลใว้ก่อนการแก้ไข
 

04 มี.ค. 63 , 09:37:18
ตอบกลับ #2
ใช้แล้วมัน มันก็ขึ้นแจ้งแบบเดิมเลยครับ

 

04 มี.ค. 63 , 12:00:23
ตอบกลับ #3

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
:ninja:     ลองคิด,ลองทำแนวคนไม่เก่งแอคเซส
หมายเหตุ เพื่อความปลอดภัยโปรดสำรองข้อมูลใว้ก่อนการแก้ไข
 


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


 

Sitemap 1 2 3 4 5