แสดงกระทู้

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

หน้า: [1] 2 3 4 ... 36
1
ห๊ะ! ไปเห็นได้ไง
อ๊ะ! ผมก็ทำงานที่นี้ไงครับ  :miao:

2
อุ๊ย! อุตส่าห์แอบดูเงียบๆ อยู่มุมห้อง :smile:
แอบไปเห็นโปรแกรมอาจารย์ที่ CCU รพ.สุราษ ด้วยนะครับอาจารย์  :cool:
โปรเจคใหญ่ผมไม่มีเวลาทำแน่ๆ ครับ ผมทำของหน่วยงานอยู่ด้วย
ต้องระดับอาจารย์แล้วครับ
 :miao:

3
เรียนคุณ NOI
ดูแล้วเป็นโปรเจคใหญ่ ผมเลยแนะนำให้ติดต่ออาจารย์ OddyWriter ตามลิ้งที่ผมส่งให้ในไลน์แล้วนะครับ
ส่วนเรื่องการช่วยแก้ไขปัญหาต่างๆ ผมยินดีช่วยเหลือ

หมายเหตุ
ตอนแรกผมนึกว่าเป็นโปรเจคเล็กๆ เลยอยากจะช่วยทำให้ฟรี
แต่ดูแล้ว ต้องระดับอาจารย์ Oddy แล้วละครับ
 :shout:

4
ห้อง MS Access / : รบกวนสอบถามครับ
« เมื่อ: 18 ม.ค. 64 , 12:22:25 »
โค้ดปรับใหม่ได้แบบนี้ครับ

โค๊ด: [Select]
Dim F As FileDialog
 Set F = Application.FileDialog(msoFileDialogFilePicker)
        F.AllowMultiSelect = False
        F.InitialFileName = "D:\Work\"
If F.Show Then
      Me.txtFolderPath = F.SelectedItems(1)
End If
Set F = Nothing

โดยต้องเพิ่มในส่วนของ Reference ใส่ตัว
Microsoft Office XX Object Libary ไว้ด้วย
โค้ดจะสามารถทำงานได้


5
ห้อง MS Access / : เขตข้อมูล
« เมื่อ: 15 ม.ค. 64 , 15:41:07 »
ดูจากข้อมูลแล้ว น่าจะเกิดปัญหาจริงๆ แหละครับ

ผมเลย DIY โดยสร้างรูปแบบรายงาน ไว้บนฟอร์ม
โดยมี SubForm ของแต่ละตัว จะนำคิวรี่แต่ละส่วนมาแสดง
Subform ไหนใช้คิวรี่ไหนก็เลือกฟิลล์ของคิวรี่นั้นลงมาใน SubForm นั้น
โดยจากข้อมูลผมใช้
คิวรีนำไปรวมตาก1 กับ SubHeadFrm1
คิวรีนำไปรวมพิษณุโลก1 กับ SubHeadFrm2
คิวรีนำไปรวมอุตรดิตถ์1 กับ SubHeadFrm3

Sub ทั้งหมดอยู่ใน FrmMainReport

แล้วเวลาจะแสดงรายงาน ก็สามารถสร้างปุ่มแล้วใช้คำสั่ง
DoCmd.OpenForm "frmMainReport", acPreview
เพื่อแสดงรายงานขึ้นมาได้เลยครับ

ดังตัวอย่างไฟล์ที่ผมแนบกลับไป

6
ห้อง MS Access / : เขตข้อมูล
« เมื่อ: 15 ม.ค. 64 , 14:34:01 »
ดิฉันทำการส่งไปเเล้วค่ะ ได้รับหรือไม่คะ?
ได้รับละครับ แต่เขตข้อมูลทุกอัน blank หมดทุกอันเลย ผมแก้ในส่วนที่ให้เพิ่ม Column ได้ละกันนะครับ
ถ้าเป็นผมๆ ว่า เอาหัวคอลัมน์มาทำเป็น รายการดีกว่าครับ
มันจะได้ไม่เกิน
แบบเรียงต่อลงมาดีกว่าครับ แบบ cross tab
เดี่ยวขอลองดูก่อนนะครับ

7
ห้อง MS Access / : เขตข้อมูล
« เมื่อ: 15 ม.ค. 64 , 11:39:52 »
มีตัวอย่างข้อมูลไหมครับ ไม่จำเป็นต้องเป็นข้อมูลหลักครับ สร้างเลียนแบบมาพอ
เดี่ยวผมสร้างให้ ทั้งสามตารางผมจะนำข้อมูลต่างๆ มาแสดง โดยกำหนด จากวันที่
ดูจากข้อมูลแล้วน่าจะทำได้ แต่มันหลายขั้นตอน ทำเสร็จแล้วเดี่ยวจะอธิบายวิธีการให้อีกที

ถ้าสะดวกส่งไฟล์เข้า Inbox มาได้เลยครับ

8
ห้อง MS Access / : เขตข้อมูล
« เมื่อ: 15 ม.ค. 64 , 11:03:06 »
1.Field มีได้ประมาณ 255 ครับ
2.ทั้งสามตารางมีเขตข้อมูลเท่ากันหรือไม่ และสอดคล้องกันไหม เช่น มีฟิลล์รายการเท่ากัน มีฟิลล์ รวมยอดเหมือนกัน (เพื่อใช้การ Union รวมไว้ด้วยกัน)
3.จากที่ดูตามภาพ แล้ว น่าจะผิดตั้งแต่การ Join Table เลยครับ
ถ้าจำไม่ผิด Field มีได้ประมาณ 255 ครับ
แต่จากการ Join table แล้วอาจจะทำให้เขตข้อมูลเกินไปอีกครับ

ข้อมูลที่จะนำมาแสดงผมคิดว่า ดึงมาเฉพาะที่จะแสดง รายละเอียดรายการ ดีกว่าครับ
ส่วนไหนที่จะหาผลรวม เราสามารถใช้ฟังชั่น ต่างๆ ในการดึงมาแสดง

9
เหมือนต้องสร้างคิวรี่มา Format ก่อนเช่น
คิวรี่แรกชื่อ Qry_DBO_Panasonic
โค๊ด: [Select]
SELECT Format([Indate],"dd/mm/yyyy") AS SIndate, DBO_Panasonic.Quanlity
FROM DBO_Panasonic;

เนื่องจาก Now() จะรวมทั้งวันที่และเวลา ไว้ด้วยกัน แต่ Date() จะมีเฉพาะวันที่ปัจจุบัน
ถ้าจะเทียบกันต้องให้เหลือเฉพาะวันที่ ใน format แบบเดียวกัน

ที่นี้ก็ใช้ Dsum ได้แล้ว เช่น
=DSum("Quanlity","Qry_DBO_Panasonic","SinDate ='" & CStr(Format(Date(),"dd/mm/yyyy")) & "'")

10
ห้อง MS Access / : ค้นหาสินค้าไม่พบ
« เมื่อ: 14 ม.ค. 64 , 15:40:29 »
รหัสสินค้าเรามั่นใจไหมครับว่า ไม่มีช่องว่างระหว่างรหัสสินค้า สมมุติเครื่องหมาย _ แทนช่องว่างของรหัสช่องว่างนี้อาจจะเกิดจากการกด Back Space หรือเคาะคานเว้นวรรค ครับ
รหัสปกติ 1004000300800
เป็นไปได้ไหมบางครั้งรหัสอาจจะเป็น _1004000300800  หรือ 1004000300800_ หรือ _1004000300800_
ทำให้เวลาเปรียบเทียบรหัสในการค้นหาไม่เจอ
สามารถใช้ Trim() ในการตัดช่องว่าง

11
1.ลองกระชับฐานข้อมูลดูซักหน่อย (compact and repair)
2.เช็คการอ้างถึงคอนโทรลอื่นว่าถูกต้องหรือเปล่า (ลองนำการอ้างถึงมาดูหน่อยครับ)
  บางกรณี มีการใช้ชื่อ ฟิลล์กับชื่อคอนโทรลเหมือนกันเช่น
  ฟิลล์ชื่อ Status  คอนโทรลของฟิลล์ก็ชื่อ Status จึงควรเปลี่ยนเป็น txtStatus เพื่อไม่ให้เหมือนกันเป็นต้น
3.เช็คอ้างถึงฟังก์ชั่น(ถ้ามี) ว่าถูกต้องหรือเปล่า

12
แอด Email: มาคุยรายละเอียดกันครับ
pinnarong83@gmail.com

13
ใช้ IIF ในการเช็คเงื่อนไขครับเช่น
ที่ฟิลล์ที่ต้องการกรอง

S: IIf(IsNull([SOI]),Null,SOISORT([SOI]))

ถ้า SOI เป็นค่าว่าง ก็ให้ = Null
ถ้าไม่ว่างก็ให้ใช้การกรอง

SQL ของคิวรี่นั้นก็คือ
โค๊ด: [Select]
SELECT Mytable.ID, Mytable.SOI
FROM Mytable
ORDER BY IIf(IsNull([SOI]),Null,SOISORT([SOI]));

ถ้าไม่อยากนำ บุคคลไม่มีชื่อซอยมาแสดงก็ใส่ SQL ว่า
โค๊ด: [Select]
SELECT Mytable.ID, Mytable.SOI
FROM Mytable
WHERE ((Not (Mytable.SOI) Is Null))
ORDER BY IIf(IsNull([SOI]),Null,SOISORT([SOI]));

14
พรุ่งนี้นะครับ

15
OShiftID ในตาราง T_OT ชนิดข้อมูลเป็นแบบไหนครับ
ShiftID ในตาราง T_Shift ชนิดข้อมูลเป็นแบบไหน

สามารถ Remote ไปเช็คได้หรือไม่

16
RelationShip เช็คการกำหนด Primary Key
ข้อความแจ้งเตือนแบบนี้เกิดจาก การกำหนดความสัมพันธ์กันแล้ว ไม่ได้สร้างข้อมูลในฟิลล์ PK ให้ตารางหลักก่อน
เช่น เมื่อต้องการเพิ่มข้อมูลให้ ตารางที่ 2 ตารางแรกต้องมี ข้อมูลในฟิลล์ PK ด้วยเหมือนกันมันถึงจะยอมให้ผ่านได้


เช่น ท่านจะเพิ่มข้อมูลตารางที่ 2 ID ก็ต้องมีใน ตารางที่ 1 ด้วยครับ

1.เพื่อความชัดเจน ให้แสดงรูป การกำหนด Relationship มาดู
2.แสดงการกำหนด Record Source ในฟอร์มมาดู



หน้า: [1] 2 3 4 ... 36