แสดงกระทู้

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 - Earth

หน้า: 1 2 [3] 4 5 6 7
37
ห้อง MS Access / : สร้าง QR Code
« เมื่อ: 15 พ.ค. 61 , 11:25:16 »
เจอวิธีทำจากลิงค์นี้ค่ะ จะลองทำตามดู


แต่อยากทราบว่าไฟล์ที่ใช้เป็น QR Codeสำหรับ 32บิต และ64บิต
ถ้าเครื่องเราเป็น64บิต ใช้ไฟล์64บิต เมื่อทำโปรแกรมเสร็จSaveเป็น .accde 
เมื่อนำไปเปิดเครื่องลอื่นที่เป็น 32บิต สามารถเปิดได้ไหม หรือต้องแก้ไขกันเกิดกรณีนี้ยังไงคะ

ตอนเขียนโค้ดตรงนี้จะระบุยังไง

38
ห้อง MS Access / สร้าง QR Code
« เมื่อ: 15 พ.ค. 61 , 09:48:22 »
สอบถามค่ะ

อยากทราบว่า Access สามารถนำข้อมูลจากตาราง มาสร้างQRCode ในReportได้ยังไงบ้างคะ

39
ห้อง MS Access / : การเก็บค่าInputตามDigitที่กำหนดไว้
« เมื่อ: 15 พ.ค. 61 , 09:17:30 »
ขอบคุณมากค่ะ ตอนนี้ทำได้แล้วค่ะ เพิ่มโค้ดแอดข้อมูลลงตารางไป
โค๊ด: [Select]
Private Sub Command11_Click()
Dim L           As Integer
Dim Tx          As Variant
Dim TxCtrl      As Access.TextBox
Dim Str         As String

For Each Tx In Split("ID,name,lot", ",")
    Set TxCtrl = Forms("Table1")(Tx)
    L = CurrentDb.TableDefs("Table1")(TxCtrl.ControlSource).Size
    Str = Str & Left$(TxCtrl & Space(255), L)
Next

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("select * from Table2")

numOfRecords = rst.RecordCount
Set rst = CurrentDb.OpenRecordset("Table2")
    rst.AddNew
    rst!Result = Str

    rst.Update
End Sub

40
ห้อง MS Access / : การเก็บค่าInputตามDigitที่กำหนดไว้
« เมื่อ: 14 พ.ค. 61 , 16:55:53 »
ตอนนี้ทำออกมาตามรูปค่ะ
ผลลัพธ์จะให้ไปเก็บในTable2

ปุ่มSave ใส่โค้ด

โค๊ด: [Select]
Private Sub Command11_Click()
Dim L           As Integer
Dim Tx          As Variant
Dim TxCtrl      As Access.TextBox
Dim Str         As String 

For Each Tx In Split("ID,name,lot", ",")

    Set TxCtrl = Forms("Table1")(Tx)
    L = CurrentDb.TableDefs("Table2")(TxCtrl.ControlSource).Size
    Str = Str & Left$(TxCtrl & Space(255), L)
Next
End Sub



Errorที่แสดงรูปล่าง หนูเข้าใจส่วนไหนผิดคะ

41
ห้อง MS Access / การเก็บค่าInputตามDigitที่กำหนดไว้
« เมื่อ: 14 พ.ค. 61 , 11:54:17 »
สวัสดีค่ะ
สอบถามวิธี การเก็บค่าInputตามDigitที่กำหนดไว้เพื่อนำไปทำQR Codeค่ะ
ตามรูปด้านล่างนี้

อธิบาย>>>

หน้าฟอร์มมีTextboxทั้งหมด 3กล่อง สำหรับInputค่า โดยมาจากตารางที่เก็บค่าคือ
ItemID >> Field size = 10
Name  >> Field size = 20
Lot >> Field size = 10
ต้องการให้inputค่ากี่Digit จะไปเก็บลงอีกTable เท่ากับDigitที่กำหนดไว้ค่ะ
เช่น ItemID >> Field size = 10 กรอกมาแค่ A0001 (5ตัว) ค่าที่ไปเก็บในอีกTableคือ A0001เคาะเคาะเคาะเคาะเคาะ ประมานนี้ค่ะ

42
ห้อง MS Access / > Sumค่า Grand Total ใน Report Footer
« เมื่อ: 09 พ.ค. 61 , 19:44:03 »
ตอนนี้ทำได้แล้วค่ะ Errorค่าตัวเลขที่เพี้ยนไปเกิดจากแถว Grand total charge
เลยทำแถวนี้ใหม่โดยสร้างunbound textbox แล้วใส่โค้ดแทนการดึงค่าจากในแถวTotal chargeค่ะ

Grand ใช้การแปลงกลับไปเป็นจำนวนเต็มก่อน
แล้ว เอาไปใส่ใน textbox ของกลุ่ม Grand Total Charge

Private Sub Report_Load()
Dim Ain, Aout, Arecei, Aissue As Integer
Ain = Sumin
Aout = Text103
Arecei = Text105
Aissue = Text107
intxt = Ain
outtxt = Aout
receitxt = Arecei
issuetxt = Aissue

End Sub
ปล. ขอบคุณ คุณNewbiesค้า

43
ห้อง MS Access / > Sumค่า Grand Total ใน Report Footer
« เมื่อ: 09 พ.ค. 61 , 14:31:01 »
ลองนำ Reportมาวางเป็น Subformใน ฟอร์มFG_Part_Footer
แล้วอยากเรียกค่า เป็นSum([total_in]) *ตรงTotal Charge ได้ไหมคะ วิธีนี้
แทนการSum Total Charge ที่ผลลัพธ์Grand Total Charge หน้าReportแทน
ซึ่งลองแล้วแต่เออเร่อตรงเรียกค่าSum [total_in]

=[Forms]![FG_Part_Footer]![UNION_FG_Part]![Sum([total_in])]

44
ห้อง MS Access / > Sumค่า Grand Total ใน Report Footer
« เมื่อ: 09 พ.ค. 61 , 13:41:56 »
คือบางครั้งเปืดหน้ารายงานข้อมูลก็ถูกต้อง


แต่บางครั้ง(ส่วนใหญ่) พอเปิดรายงานค่ากลับเปลี่ยน อยากทราบสาเหตุสามารถแก้ไขข้อผิดพลาดได้ยังไงบ้างคะ

45
ห้อง MS Access / > Sumค่า Grand Total ใน Report Footer
« เมื่อ: 09 พ.ค. 61 , 11:39:43 »
ตอนนี้เป็นๆหายๆค่ะ อยากทราบมีวิธีแก้อื่นไหมคะ

46
ห้อง MS Access / Error "The database engine could not lock table"
« เมื่อ: 08 พ.ค. 61 , 15:43:53 »
ตอนรัน Queryขึ้นแจ้งเตือนดังรูปด้านล่าง ซึ่งไม่ได้เปิด Tableดังกล่าว หรือTableใด รวมถึงไม่มีการเปิดฟอร์ม Reportใดๆไว้เลยค่ะ
ในแต่ตอนรันครั้งแรก ระบบเอาข้อมูลจากตารางMonthly_FG ไปใช้ต่ออีกหลายQuery
คิดว่าน่าจะมีProcess ค้างอยู่ แต่ไม่รู้ตรงไหน
เวลาจะรันครั้งที่สอง จึงต้องปิดและเปิดโปรแกรมใหม่ถึงจะสามารถรันได้ปกติ

อยากทราบว่ามีวิธีไหนที่จะเขียนโค้ดดักก่อนว่า ให้เคลียร์หรือปิดProcessทั้งหมดก่อน หรือปิดและเปิดโปรแกรมใหม่ไหมคะ
เพื่อจะได้ไม่มีErrorแบบนี้เกิดขึ้น


47
ห้อง MS Access / > Query เงื่อนไขไม่เท่ากับฟิลด์ในอีกตาราง
« เมื่อ: 04 พ.ค. 61 , 13:04:43 »
คิดว่าจะไม่Joinเข้ากับตาราง Not_FG
แต่เรียกค่ามาจากTextboxหน้าFormแทนค่ะ
เพราะตอนนี้ยังไม่สามารถแก้Error ดังกล่าวได้

48
ห้อง MS Access / > Query เงื่อนไขไม่เท่ากับฟิลด์ในอีกตาราง
« เมื่อ: 04 พ.ค. 61 , 11:19:51 »
ถ้าลองเปลี่ยนให้มาอ้างอิง Not In ([Forms]![Not_FG]![Type])
แบบนี้แทนได้ไหมคะ
โดยให้เลือกอ้างอิงType ในส่วน Form Detailทั้งหมดแทน (ไม่ใช่แค่เฉพาะที่Record focus)

49
ห้อง MS Access / > Query เงื่อนไขไม่เท่ากับฟิลด์ในอีกตาราง
« เมื่อ: 04 พ.ค. 61 , 10:59:23 »
Error Message เหมือนเดิมค่ะ
แต่สงสัยค่ะ ทำไมก่อนเชื่อมตารางNot_FG ถึงไม่เป็นคะ ข้อมูลทั้ง2ฟิลด์มาครบ ถึงแม้อีกฟิวด์จะเป็นTEXT

50
ห้อง MS Access / > Query เงื่อนไขไม่เท่ากับฟิลด์ในอีกตาราง
« เมื่อ: 04 พ.ค. 61 , 10:14:43 »
แก้เพิ่มเติมแล้วค่ะ แต่ลองแล้วต้องใส่Not In (...)ตามรูป ข้อมูลได้มาถูกต้อง


แต่ตอน Make table ตรวจดูแล้วข้อมูลฟิลด์TotalAmountเป็น Number
TOTAL (m2) เป็นTEXTค่ะ

**ตอนนี้เปลี่ยนข้อมูลเป็น Number หมดแล้วค่ะ แต่ยังไม่แสดงข้อมูลเหมือนเดิม

51
ห้อง MS Access / > Query เงื่อนไขไม่เท่ากับฟิลด์ในอีกตาราง
« เมื่อ: 04 พ.ค. 61 , 09:08:29 »
ตัวอย่างที่ให้มาสามารถรันได้ค่ะ แต่ข้อมูลในฟิวด์ TotalAmount กับ Total(M2)หายไปค่ะ
ซึ่งไม่ได้เปลี่ยนแปลงอะไร



และหลังrunเสร็จขึ้นแบบนี้


ข้อมูลในฟิลด์ที่หาย เกิดจากอะไรหรอคะ

52
ห้อง MS Access / Query เงื่อนไขไม่เท่ากับฟิลด์ในอีกตาราง
« เมื่อ: 03 พ.ค. 61 , 17:15:05 »
จากรูปต้องการให้กรองค่าตรงMake tableค่ะ
ต้องการกรองทั้งหมดของType2 โดยที่เงื่อนไขคือType2ต้องไม่เท่ากับค่าในตารางNot_FG ค่ะ

53
ห้อง MS Access / > ข้อมูลเปลี่ยนตอนกดPrint
« เมื่อ: 03 พ.ค. 61 , 13:08:15 »
เพิ่มเติมค่าที่แสดงตอนปริ้น 1664 คือค่าจากTotal ChargeของInput จากหน้าReportชื่อว่าStockMonthly_FG_Query_SUM เอาค่ามาจากกรุ๊ปแรก


แต่ค่าที่เอามา เอามาจากGrand Total Chargeซึ่งคือ Text35 (มีค่า138,678.00)

โครงสร้างเพิ่มเติม


ไฟล์เพิ่มเติม

54
ห้อง MS Access / ข้อมูลเปลี่ยนตอนกดPrint
« เมื่อ: 03 พ.ค. 61 , 11:34:10 »
สอบถามการแสดงข้อมูลหน้าForm1
โดยค่าของ Takein เอาค่ามาจากSubReportของ StockMonthly_FG_Query_SUM มาวางและ Visibleซ่อนฟอร์มนั้นไว้
ดึงค่ามาแบบนี้
=[Forms]![Form1]![StockMonthly_FG_Query_SUM]![Text35]

เวลาแสดงข้อมูลสามารถแสดงได้ปกติ แต่พอกดปุ่มปริ้น โดยใช้โค้ด DoCmd.OpenForm "Form1", acPreview
ทำไมข้อมูลที่วงสีแดงตามรูปด้านล่างเปลี่ยนไปคะ
และExport เป็นPDFออกมาก็เปลี่ยนด้วยค่ะ


หน้า: 1 2 [3] 4 5 6 7