แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - PookPuy

หน้า: 1 2 [3]
34
- ตั้งชื่อเครื่องปริ้น
- ตั้งค่าระบุให้รายงานเลือกเครื่องปริ้นตามภาพ


ปล.ทำปุ่มสั่งปริ้นออกมาเลยไม่ต้องแสดงตัวอย่างก่อนพิมพ์ เพราะถ้าแสดงตัวอย่างก่อนพิมพ์เวลากดปริ้นที่ด้านซ้ายบนจะขึ้นหน้าต่างมาให้เลือกเครื่องปริ้นเสมออยู่แล้ว
โค๊ด: [Select]
Private Sub Print_Click()
On Error GoTo Err_Print_Click

    Dim stDocName As String.

    stDocName = "R_Bill"  'ชื่อรายงาน
    DoCmd.OpenReport stDocName, acNormal

Exit_Print_Click:
Exit Sub

Err_Print_Click:
    MsgBox Err.Description
    Resume Exit_Print_Click

End Sub

35
ลองเปลี่ยนเป็นใช้วิธีส่งค่าจากที่เลือกไปยังกล่องข้อความดูครับ
โค๊ด: [Select]
Private Sub StyleNo_Click()
       OD#.Value = StyleNo.Column(1)
       Customers.Value = StyleNo.Column(2)
       QtyOrder.Value = StyleNo.Column(3)
End Sub

36
ลองค่อยๆทยอย Copy ไปวางได้ใหมครับ

37
ผมว่าใช้แบบนี้นั้นล่ะครับเพียงแต่แยกจำนวนรวมใหม่เป็นตามขนาดนั้นๆ แล้วที่ว่าแต่ล่ะ Style มีชื่อเรียกขนาดคนล่ะแบบนั้นมันพอมีอะไรที่ใช้เทียบเคียงได้ใหมครับ
เวลาใช้งานก็กรองหรือหาผลรวมออกมาอีกทีนะ


38
เป็นของระบบติ๊กออกเพื่อไม่ให้แสดงครับ


39
ห้อง MS Access / > การซ่อน menu bar access
« เมื่อ: 13 ก.พ. 61 , 16:40:31 »
ผมใช้คำสั่งซ่อนตามนั้นแล้วทำปุ่ม Preview จะเรียกเฉพาะชุดคำสั่งปริ้นมาแสดงครับ
โค๊ด: [Select]
Private Sub Cmd_View_Click()
On Error GoTo Err_Cmd_View_Click

    Dim stDocName As String

    stDocName = "R_Bill"
    DoCmd.OpenReport stDocName, acPreview

Exit_Cmd_View_Click:
    Exit Sub

Err_Cmd_View_Click:
    MsgBox Err.Description
    Resume Exit_Cmd_View_Click

End Sub

40
ขอถามเพิ่มเติมครับ
คือที่ PO Header (main form) และ PO Details (sub form) เห็นมีการผูกลิงก์ PO Number(หรือเปล่าน้อ..)
แล้วเรามาใช้วิธีผูกลิงก์เพิ่มได้ใหมครับ

41
MTBF , MTTR  คืออะไรน้ออ :question:
ขอบคุณกระทู้ KPI เรื่อง MTBF - ระบบคุณภาพ - ISOTHAI.COM link ครับ

 :yuush: ถือเป็นเรื่องที่ดีน่าทำครับ เวลาไหนที่เครื่องมือ-เครื่องจักรเสีย ใช้เวลาซ่อมไปเท่าไหร่ = ลงบันทึกใว้
เมื่อไหร่จะดูข้อมูลสรุปก็ให้ฐานข้อมูลคำนวนแล้วแสดงผลออกมาได้เลย

ส่วนจะมีท่านใดพอมีตัวอย่างใหมรอดูครับ :enjoying:

42
หรือจะทำปุ่มคำสั่งขั้นมา เมื่อมีการกดให้โยนค่า C ไปใส่ CCC
ที่นี้ก็จะกำหนดให้เก็บค่าใน CCC ได้

43
ใช้ VB ในการคำนวนแล้วส่งค่าไปให้ C / ทั้ง A,B,C เราก็จะสามารถกำหนดให้เก็บค่าได้ครับ
โค๊ด: [Select]
Private Sub A_AfterUpdate()
    Me.C.Value = Me.A.Value * Me.B.Value / 100
End Sub
Private Sub B_AfterUpdate()
    Me.C.Value = Me.A.Value * Me.B.Value / 100
End Sub

งงคำตอบตัวเอง ขอวิธีแก้จากท่านอื่นๆด้วยนะครับ

46
ห้อง MS Access / Re: ทำไม code นี้ไม่ได้ผล
« เมื่อ: 09 ม.ค. 61 , 11:35:15 »
ผมทำเป็นสั่งปริ้นจากรีพอร์ตครับ
โค๊ด: [Select]
Private Sub Print_Click()
On Error GoTo Err_Print_Click

    Dim stDocName As String

    stDocName = "R_Bill"  'ชื่อรีพอร์ต
    DoCmd.OpenReport stDocName, acNormal

Exit_Print_Click:
    Exit Sub

Err_Print_Click:
    MsgBox Err.Description
    Resume Exit_Print_Click

End Sub

47
If KeyCode = vbKeyReturn Then KeyCode = 0
เทียบมาจากตาราง Key Code Constants link ครับ :grin:

48
มันเป็นระบบรักษาความปลอดภัยของแอ็คเซสที่ติดเครื่องนะครับ (ไม่ได้ติดที่ไฟล์เอกสารเรา)
ดังนั้นยังไงๆก็ต้องไปตั้งค่าทุกเครื่องที่จะเปิดใช้ครับ(เข้าไปตั้งค่าแค่ครั้งเดียวเองนะครับ สู้ๆ)

สาเหตุเมื่อย้ายที่ไฟล์แล้วยังถาม อาจเพราะไม่ได้เข้าไปตั้งค่า Access Options > Trust Center > ActiveX Settings > Enable All controls.... (ตามที่ท่าน OddyWriter ว่าใว้)
ถ้าเราแค่กดยินยอมตอนเปิดไฟล์มาแล้วขึ้น popup แจ้ง ระบบมันก็จะจำ+ยอมแค่ไฟล์ c:/test.accdb เท่านั้น แก้ชื่อใหม่หรือย้ายไป d:/test22.accdb มันก็จะถามอีกอยู่อย่างนั้นล่ะครับ
 :ouch:

หน้า: 1 2 [3]