ผมชื่นชมการตั้งกระทู้แบบนี้ครับ
มีการตั้งโจทย์สอบถามเป็นขั้นเป็นตอนมีการยกตัวอย่างด้วยรูป
และบอกถึงปัญหาที่พบ หรือ ผลลัพธ์ที่อยากได้ อย่างชัดเจนง่ายต่อการตอบมากๆ ครับ 
ท่านอื่นถ้าสะดวก ตั้งกระทู้แบบนี้จะดีต่อผู้ตอบและคนตอบจะได้คำตอบที่รวดเร็วครับ

แก้เป็น
Me.PackPerPallet = DLookup("[PackQuantity]", "[Packing]", "Number='" & [SizeOfCarton] & "'")

เจอ กระทู้ที่ 98 ของ อจ.PNR ใช้แบบกำหนด tag เป็นกลุ่ม click แล้ว in-visible ถ้าจะให้ visible เหมือนเดิม ต้องให้ true ตรงไหน
Private Sub Command321_Click()
 Dim ctl As Control
    For Each ctl In Me
        If ctl.Tag = "Group1" Then
                ctl.Visible = False
     
        End If
        Next ctl
End Sub

แก้เป็นแบบนี้ครับ ถ้าแสดงอยู่ก็ให้ซ่อน ถ้าซ่อนอยู่ก็ให้แสดง Group1 คือชื่อของ Tag สามารถตั้งชื่อได้ตามความต้องการ
Private Sub Command6_Click()
 Dim ctl As Control
    For Each ctl In Me
        If ctl.Tag = "Group1" And ctl.Visible = False Then
                ctl.Visible = True
        ElseIf ctl.Tag = "Group1" And ctl.Visible = True Then
                ctl.Visible = False
        End If
        Next ctl
End Sub

หรือจะสร้าง Toggle แบบไอเดียคุณ nonc31 ก็น่าจะสะดวกดีครับเช่น
ผมสมมุติ ชื่อ Toggle ชื่อ Toggle13

Private Sub Toggle13_Click()
    Dim ctl As Control
    For Each ctl In Me
If ctl.Tag = "Group1" And Me.Toggle13 Then
                ctl.Visible = True
        ElseIf ctl.Tag = "Group1" And Not Me.Toggle13 Then
                ctl.Visible = False
        End If
        Next ctl
End Sub

ไม่มีไฟล์ที่แนบมาครับ ลองตรวจเช็คดู

ตามหัวข้อเลยครับ ผมทำฟอร์มไว้ฟอร์มนึง มันสามารถตั้งค่าให้เปิดเอาจาก Desktop เลยได้ไหมโดยไม่ต้องเปิดโปรแกรม
เหมือนการทำเป็น Shortcut อะไรประมาณนั้น

คลิกขวาที่ไฟล์ เลือก Send to > (Desktop Create shotcut) ได้เลยครับ แล้ว ไปกำหนด Icon ตามใจชอบ

โดยที่ file access ต้องสร้าง Autoexec macro เพื่อสั่งเปิดฟอร์มที่เราต้องการแสดงขึ้นมา
หรือไปที่ File > Option > Current Database > ดูตรงตั้งค่าแสดงฟอร์ม ตามภาพ
โดยท่านสามารถตั้งชื่อโปรแกรมของท่าน / และใส่ Icon ได้ตรงส่วนนี้ด้วยครับ

โค้ด ถูกแล้วครับ แต่ทำมันไม่ทำงานเพราะเราเพิ่มโค้ดแล้ว แต่ลืมไปกำหนด Event ตรงคุณสมบัติให้มันด้วย
สังเกตุว่า Event Afterupdate แต่ตรงคุณสมบัติยังว่างอยู่ กดเข้าไปตามรูปครับ

อีกอย่างตรง textbox totalpcs ยังเป็นชื่อ Text80 อยู่อย่าลืมแก้นะครับ

อ้างจาก: PNR ที่ 07 ต.ค. 62 , 13:26:17

สมการที่ 1 : จำนวนรับเข้า*จำนวนลัง = จำนวนชิ้น 
สมการที่ 2 : จำนวนชิ้น+จำนวนชิ้นจ่ายออก=ผลรวมจำนวนชิ้น


จำนวนชิ้น = nz([จำนวนรับเข้า],0) * nz([จำนวนลัง],0)

ผลรวมจำนวนชิ้น = nz([จำนวนชิ้น],0) + nz([จำนวนชิ้นจ่ายออก],0)

สอบถามเพิ่มเติมค่ะต้องวางสูตรที่ไหนคะ ใส่ในช่องฟอร์มได้เลยมั้ยคะ

ถ้าให้คำนวนตลอด ไว้ที่ form_current
หรือ สร้าง sub แล้วกำหนดevent Afterupdate ของ textbox ที่ใช้คำนวน ครับเช่น

Sub CalculateTotal
จำนวนชิ้น = nz([จำนวนรับเข้า],0) * nz([จำนวนลัง],0)
ผลรวมจำนวนชิ้น = nz([จำนวนชิ้น],0) + nz([จำนวนชิ้นจ่ายออก],0)
end sub


Private sub จำนวนรับเข้า_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนลัง_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนชิ้นจ่ายออก_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนลัง_Afterupdate
Call CalculateTotal
end sub

หมายเหตุดูว่า มีการเพิ่มข้อมูล textbox ไหน ก็วาง call ที่ event afterupdate textbox นั้นเพื่อให้ผลรวมจำนวนชิ้น คำนวนทุกครั้งที่ระบุจาก textbox ที่เกี่ยวข้อง

1.ที่ฟอร์มสร้างปุ่มเปิดรายงานไว้ 1 ปุ่ม ใส่โค้ดนี้เข้าไป
DoCmd.OpenReport "ชื่อรายงาน", acViewPreview

วิธีที่ 1 กำหนดrecordsource
2.ที่รายงานใส่โค้ดนี้เข้าไป
(ถ้าเป็นฟอร์มที่มีซัพฟอร์ม)
Private Sub Report_Open(Cancel As Integer)
On Error Resume Next
Me.RecordSource = [Forms]![ชื่อฟอร์มหลัก]![ชื่อฟอร์มย่อย].Form.RecordSource
End Sub

(ถ้าเป็นฟอร์มเดี่ยว)
Private Sub Report_Open(Cancel As Integer)
On Error Resume Next
Me.RecordSource = [Forms]![ชื่อฟอร์มหลัก].Form.RecordSource
End Sub

วิธีที่ 2 RecordsetClone

ที่ปุ่มเปิดรายงานใส่โค้ดนี้เข้าไป
Private Sub Command56_Click()
Dim strWhere As String
        Me.Dirty = False
        With Me.Recordset.Clone
            Do Until .EOF
                strWhere = strWhere & "," & !ID
                .MoveNext
            Loop
        End With
        strWhere = Mid(strWhere, 2)
        DoCmd.OpenReport "rpt", acViewReport, WhereCondition:="ID In (" & strWhere & ")"
        End Sub

หมายเหตุ rpt คือชื่อรายงานนะครับ โดยส่วนตัวผมชอบใช้ RecordsetClone นะครับเพราะถ้ากรณีที่เรามีการกรองข้อมูลในฟอร์มแบบ Datasheet ข้อมูลก็จะแสดงที่รายงานเหมือนฟอร์มทุกประการ

พอดีผมมือบอนครับอยากลองดู ไปคลิกขวาที่ Form แล้วกด hide มันหายไปแล้วจะเรียก form คืนยังไงดีครับ ทำมาตั้งนาน ขอบคุณมากครับ

กด F11 ตั้งค่า Navigation pane 


หรือกด คริกขวาที่ Navigation  pane ก็จะเห็น Form ที่ซ่อนอยู่ ก็กด  Show Hidden Objects ได้เลย