รบกวนสอบถามตามรูปครับ

[prajak]

ที่ฟิวด์ TotalOutput ในกรณีที่เลขที่ BOM เดียวกัน ให้นำ OutputPerDay ไปรวมกับ Record ก่อนหน้าได้ยังไงอะครับ

[ปิ่นณรงค์]

แบบนี้ไหมครับ Field Cumulative ท่านก็เอาไปใส่ตรงยอดสะสมได้เลยครับ

โค๊ด: [Select]

SELECT Table1.OUTPUTPERDAY+(select nz(sum(T2.OUTPUTPERDAY),0) from Table1 as T2 where T2.BOM = Table1.BOM and T2.ID < Table1.ID) AS Cumulative, *
FROM Table1;

ตรง Table 1 ท่านไปเปลี่ยนชื่อให้ตรงกับตารางของท่าน

[prajak]

คือสร้างqueryใหม่เป็น sql หรือสร้างใน query เดิมของผมเลยครับ คือยังงงว่าจะวางquryไว้ตรงไหนอะครับ

[ปิ่นณรงค์]

คือสร้างqueryใหม่เป็น sql หรือสร้างใน query เดิมของผมเลยครับ คือยังงงว่าจะวางquryไว้ตรงไหนอะครับ

งั้นเอาข้อมูลจากคิวรี่เดิมแล้วเรียกใช้ก็ได้คับ
ฟอร์มคุณ Prajak ไปกำหนด Event เอานะครับ ว่าจะให้แสดงยอดสะสมตอนไหน

จากตัวอย่าง Query1  เราสมมุติเป็นคิวรี่เดิม
         ส่วน Query2 เป็นคิวรี่ที่เราทำการคำนวน โดยเก็บ ID กับยอดสะสม ที่ได้ เพื่อเรียกใช้ด้วย Dlookup มาแสดงเป็นฟอร์ม

ตรง Event ที่ฟอร์ม เราก็ใส่ประมาณนี้คับ

Me.Dirty = False
Me.SASOM = DLookup("SASOM", "Query02", "ID = " & Me.ID & "")

[prajak]

OKเลยครับ ได้แล้วครับ ขอบพระคุณมากๆเลยนะครับ
จะรบกวนกวนสอบถามเพิ่มเติมแต่อาจเป็นคนละเรื่องกันนะครับ สมมติผมมีNotebook 1ตัว จะเอาไปต่อกับจอทีวี เพื่อให้ฟอร์ม Digital Board1แสดงผลอย่างเดียว
ส่วนที่หน้าจอของ notebook จะใช้สำหรับเปิดform For Key เพื่อให้พนักงานคีย์ข้อมูลอย่างเดียว ตย.เป็นไปได้ไหมพอเปิด Notebook แล้วฟอร์ม Digital board แสดงที่จอทีวีอัตโนมัติเลย ส่วนจอnotebook ก็ให้พนักงานเปิดฟอร์ม For key เอาเอง ลองแบบ Extend แล้วก็ยังไม่ตอบโจทย์อะครับเพราะมันจะต้องลากฟอร์มไปมา คงไม่สะดวก หรือมีแนวทางอื่นหรือเปล่าครับ เช่นมี คอมอีก1ตัวที่สามารถต่อทีวีได้เลย4ตัว โดยพอเปิดเครื่องก็ให้ทั้ง4จอแสดงผลคนละฟอร์มไปเลย

[ปิ่นณรงค์]

เปลี่ยนเป็นสร้าง Module
ใส่
Public clnClient As New Collection

Function OpenAClient()
 
    Dim frm As Form
   
    Set frm = New Form_Formname
     frm.Visible = True
    frm.Caption = frm.hWnd & ", opened " & Now()
   
   
    clnClient.Add item:=frm, Key:=CStr(frm.hWnd)
    DoCmd.MoveSize 20000, 0, 0, 0
    DoCmd.Maximize
     
    Set frm = Nothing
End Function

ตั้งค่าฟอร์มให้ POPUP ครับ

[prajak]

ลองแล้วขึ้นerrorตามรูปครับ รบกวนด้วยนะครับ คำสั่งที่ให้มาใส่ใน event open form Digital Board1 หมายถึงอะไรครับ

[ปิ่นณรงค์]

TeamView ไปทำให้ไหมครับ แจ้งรหัส ทีมวิว กับรหัส ไว้ทางข้อความนะครับ
แต่ต่อ HDMI กับ จอทีวีไว้นะครับ

[prajak]

ตอนนี้ผมต่อNotebook กับจอคอมด้วยสาย VGA อยู่นะครับ