แสดงกระทู้

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 ... 24 25 26 [27] 28 29 30 ... 32
469
ลองแบบนี้ในคิวรี่นะครับ

ShipToAdderss: Replace([ShipToAdderss1],Chr(13) & Chr(10),"")

โพสต์นี้ได้รับคำขอบคุณจาก: Bravo_M79, isuccess

470
ตอนนี้ผมกำลังรวบรวมจากสถิติน้ำหนักที่จดไว้แต่ละค่าเฉลี่ยครับอาจารย์ เพราะสัดส่วนแค่ผืดกัน 0.02 น้ำหนักของแต่ละส่วนก้อเปลี่ยนไปหมดเลยครับ ผมเลยจะคิดแบบเด็กๆอ่ะครับ ถ้าเราทำสูตรแต่ละค่าเลี่ย เช่น 2.0 2.02 2.04 2.06 2.08 2.10 2.12 2.14 ฯลฯ มันจะเยอะมาหไปไหมครับอาจารย์

เยอะขนาดไหนก็ไม่เห็นเปนไรครับ
ผมว่า สร้างตารางเก็บไว้เลยก็ได้ครับ เป็นตารางเก็บ ค่าเฉลี่ย และ ตัวสูตรที่ละ Group
เช่น tblAver
ID = autonumber
Aver as number (Double)
Group01 as number (Double)
Group02 as number (Double)
Group03 as number (Double)
Group04 as number (Double)
Group05 as number (Double)
Group06 as number (Double)
Group07 as number (Double)
Group08 as number (Double)
Group09 as number (Double)

สร้างตารางเก็บค่าคำนวน ทุกตัวไว้ของแต่ละ ค่าเฉลี่ย ไปเลย แล้วตอนจะใช้ได้ใช้ Dlookup เรียกค่ามาก็ได้ครับ
Aver คือช่วง  2.0 2.02 2.04 2.06 2.08 2.10 2.12 2.14
ส่วน Group 01-09 คือช่วงของค่า ที่ต้องนำไปใช้คำนวนกับ textbox ในแต่ละ Group

ตัวอย่างดูตัวเลขของ แต่ละ group ในรูปนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

471
อ้างถึง
น้ำหนักเฉลี่ยจะมีตั้งแต่ 2.00 - 3.00  ครับโดยเบื้องต้น
สามารถสร้างตัวแปรมาเก็บ ค่าคำนวน ของแต่ละน้ำหนักเฉลี่ยครับ แล้วใช้ If เช็คเงือนไข อีกที
ผมพอจะช่วยได้ แต่ต้องเอาช่วงของน้ำหนักเฉลี่ยทั้งหมดมาแสดงนะครับเช่น

ช่วง 2.00 - 2.10
      2.11 - 2.20
      2.21 - 2.55
      2.56 - 3

เป็นต้นครับ เพราะ ถ้ากำหนดช่วงที่แน่นอนได้การทำสูตรคำนวนต่อไปจะไม่ยากแล้วครับ

สิ่งที่ต้องการคือ ช่วงน้ำหนักเฉลี่ยที่แน่นอน และ สูตรคำนวนของแต่ละช่วง
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

472
ช่วยบริจาค 1 ปี 1042 บาทครับ
วันที่ 12 นี้โอนให้นะ ขอเลข บัญชีไว้เลยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy, prajak, สันติสุข, OddyWriter, apirak, jee007, MONO

473
ผมแก้ไขให้แล้วครับ
ส่วนที่แก้ คือถ้ามี Customercode ก็ต้องเอาอันนี้แหละมาอ้างอิงแทน ID ครับ
โดยโค้ดกรองฟอร์มก็จะเป็น
DoCmd.OpenForm "FrmMain_Con", , , "[customer_code]='" & Me![txtcustomer_code] & "'"

มีเครื่องหมาย single quote เพราะ ข้อมูลเป็น text ไม่ใช่ตัวเลขครับ

ส่วนโค้ดของ ระบบแจ้งเตือนก็เปลี่ยนเป็นแบบนี้

โค๊ด: [Select]
Private Sub Form_Current()
Dim CheckMaxDate As Date
CheckMaxDate = Nz(DMax("Date_time_co", "[ตาราง call]", "[ResultCode_Remark]=""ติดต่อได้"" AND customer_code ='" & Forms!frmmain_Con!txtcustomer_code & "'"))

If Not IsNull(CheckMaxDate) And CheckMaxDate >= Date Then
MsgBox "วันนี้คุณได้โทรหาลูกค้าแล้ว", vbInformation, "สถานะ!!"
End If
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung

474
มันต้องหา Event การทำงานให้มันครับ

ผมไม่แน่ใจว่าในโปรแกรมของคุณจะตรวจสอบตอนไหน ว่ามีการติดต่อแล้ว

จากตัวอย่าง ผมสมมุติพอเราเลือกเคสที่จะเข้าไปดูรายละเอียดแล้ว ถ้ามีการติดต่อแล้วจะแจ้งเตือน
ตัวอย่างง่ายๆ ด้านล่าง
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung

475
ตาราง เชื่อมกับ subform ชื่อ ตาราง call ไหมครับ

โค้ดง่ายๆ โดยเช็คกับวันที่ปัจจุบัน และ เช็คเงื่อนไข การระบุ ติดต่อได้

น่าจะต้อง เช็คเงื่อนไขกับ ID ลูกค้าไว้ด้วยครับ ประมาณนี้
ส่วนที่จะเช็คเงื่อนไขคือ
ID ลูกค้า
Date_time_co เก็บวันที่
ResultCode_Remark เก็บสถานะ

Dim CheckMaxDate As Date
CheckMaxDate = Nz(DMax("Date_time_co", "[ตาราง call]", "[ResultCode_Remark]=""ติดต่อได้"" AND ID =" & Forms!ชื่อฟอร์มหลัก!txtID))

If Not IsNull(CheckMaxDate) And CheckMaxDate = Date Then
MsgBox "วันนี้คุณได้โทรหาลูกค้าแล้ว", vbInformation, "สถานะ!!"
End If


Event เลือกเอานะครับ ว่าจะเช็คจาก Event ไหน
โดยจากตัวอย่างผมให้ เช็ค ID จาก textbox ชื่อ txtID
เช็ควันที่ปัจจุบัน กับ วันที่ๆ ลงในระบบไว้แล้ว และตรวจสอบว่า มีการระบุ ติดต่อได้ ไว้หรือไม่


โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung, jee007

476
ผมเช็คก็ตรงปกตินะครับ

คุณกำหนดให้คำนวนโดยอ้างอิง ID ของฟอร์มนี้ คือ 2 ใช่ไหม
ผมดูจากคิวรี่ของฟอร์ม Qry_ListWeight มี IdIn 2 รหัส คือ 2 กับ 3 ครับ

ยอดรวมของ 2 มันก็ได้เท่านี้ถูกแล้วนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

477
ลองบอกอาการ และส่งตัวอย่างมาดูก็ได้คับ
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

478
อาการ ข้อผิดพลาดเป็นยังไงครับ
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

479
ใช้ = sum(QtyChicken) แทนดูครับว่าได้ไหม

ตั้งค่า ในฟอร์มดูตรง คุณสมบัติครับ
กดที่ textbox ในมุมมองออกแบบ 
กดที่คุณสมบัติ ของ textbox นั้น
กำหนด ทศนิยม 2 ตำแหน่งได้เลย



กำหนด รูปแบบเป็น standard หรือ fixed หรือ normal number ตรงนี้เลือกเอาตามความชอบครับ
กำหนดตำแหน่งทศนิยมเป็น 2 ตำแหน่งได้เลย
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

480


ตัวอย่าง ลองดูครับติดตรงไหน สอบถามได้นะ
โพสต์นี้ได้รับคำขอบคุณจาก: apirak, jee007, tanusaknui

481
อ้างถึง
ต้องการทำ  1 ฟอร์มค้นหาจากชื่อ
              2 ถ้าสแกนบัตรแล้วซ้ำ กับชื่อที่มีอยู่แล้ว ให้แจ้งเตือน

1.ฟอร์มค้นหาจากชื่อ รหัสจะพิมพ์ระบุชื่อที่ต้องการค้นหาเองใช่ไหมครับ ไม่ได้ใช้การแสกนเข้ามา

2.ผมว่าถ้าใช้การแสกนค้นหา น่าจะค้นหาจาก เลขประจำตัวประชาชนจะดีกว่า
เพราะ เลขบัตรประจำตัวประชาชน มันจะไม่ซ้ำกันอยู่แล้ว 1 คน 1 รหัสเท่านั้น
ถ้าคุณจะค้นหาจากชื่อแล้วแจ้งซ้ำนั้นผมว่า น่าจะค้นหาจากรหัสประจำตัวประชาชนดีกว่าครับ

3. ถ้าสแกนบัตรแล้วซ้ำ กับชื่อที่มีอยู่แล้ว ให้แจ้งเตือน ใช้ในกรณีลงทะเบียนสมาชิกรายใหม่หรือเปล่าครับ

ส่วนถ้าจะค้นหาจากชื่อจริงๆ เดี่ยวผมทำตัวอย่างให้ดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: tanusaknui

482

สามารถทำได้ง่ายๆ ครับ โดยใช้ Function Replace สร้างในคิวรี่ก็ได้เช่น
1.สมมุติ ตารางชื่อ table1
มีฟิลล์ ID  เป็น Autonumber
  ฟิลล์ textletter เป็น text

2.สร้างคิวรี่ขึ้นมา ใส่โค้ดไปแบบนี้



letter: Replace(Replace([textletter],"กา","อีกา"),"เทวดา","เทพเทวดา")
จะทำให้ Field ที่ชื่อ textletter เพิ่มข้อความส่วนที่เหลือให้อัตโนมัติครับ

3.ตั้งชื่อคิวรี่ ในตัวอย่างผมตั้งชื่อว่า QryReport


4.สร้างรายงานขึ้นมา และกำหนด RowSource หรือ แหล่งข้อมูลแถว เป็นชื่อคิวรี่ที่เราสร้างขึ้น จากข้อ 3



แล้วลองเปิดรายงานดูครับ
ไฟล์ตัวอย่างด้านล่าง
โพสต์นี้ได้รับคำขอบคุณจาก: jee007, arulme

483
ห้อง MS Access / : characters found after end of SQL statement
« เมื่อ: 03 ธ.ค. 62 , 13:39:52 »
สามารถทำได้อยู่แล้วครับ แต่ Place จะมีการซ้ำกันตามจำนวนของสินค้าที่แสดง ของแต่ละ รหัสนะครับ

เช่น place A   รหัสสินค้า A = 10 .............ฯลฯ....................
      place A   รหัสสินค้า B = 5  ..............ฯลฯ...................

เป็นต้น
วิธีการ หา max วันที่ให้ได้แล้ว เอา สินค้าทุกตัวของวันที่นั้นมาแสดงทั้งหมด (แต่ place จะซ้ำกันตามจำนวนสินค้านะครับ)
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

484
ห้อง MS Access / : characters found after end of SQL statement
« เมื่อ: 03 ธ.ค. 62 , 09:19:49 »
ผมแก้ตรงนี้ให้แล้วครับ 1H060001622 จะแสดง ใน Place Am328 ถูกไหมคับ
1H060001620 จะไม่นำมาแสดง
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

485
ห้อง MS Access / : characters found after end of SQL statement
« เมื่อ: 03 ธ.ค. 62 , 08:01:54 »
ลองสร้างคิวรี่ ใส่ sql นี้เข้าไปแล้วดูผลลัพธ์นะครับ
ผมหา ตาราง Customer , Product , Gcas ไม่เจอเลยไม่ได้เพิ่มส่วนนี้ให้นะครับ
ไม่รู้ผมเข้าใจถูกไหมนะครับ

คือ
1. หา Place โดยการ GroupBy ให้เหลือ Place 1 ตัว ถ้าซ้ำกันก็รวมกันให้ไม่ซ้ำ
2. ส่วนการหา Inhouse (จากวันที่ล่าสุด) นำคิวรี่ warehouse - รหัสสินค้า มาเชื่อม ความสัมพันธ์ กับ warehouse - จำนวนสินค้า ตรง Place
แล้วดึง Inhouse มาแสดง

แต่ กรณีที่ Place เดียวกัน แต่มี INHOUSE ไม่เหมือนกันทำยังไงครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

486
ห้อง MS Access / : characters found after end of SQL statement
« เมื่อ: 02 ธ.ค. 62 , 14:09:29 »
Sql 2 ชุดไม่ได้สอดคล้องกันเลยที่จะทำ Union Query เพราะ Sql query warehouse - จำนวนสินค้า นั้นมี 7 คอลัมน์
แต่ Query warehouse - รหัสสินค้า มีแค่ 3 คอลัมน์เท่านั้น

1.ผมเลยสงสัยว่าคุณอยากทำการรวมไปเพื่ออะไร ลักษณะผลลัพธ์ที่ต้องการเป็นแบบไหน
2. จากโค้ด
โค๊ด: [Select]
SELECT T1.*, (select sum(T3.Inboxes) from [In] as T3 where T3.place = T1.place) AS [Sum]
FROM [In] AS T1

WHERE (((T1.date)=(select max(T2.[date]) from [In] as T2 where T2.place = T1.place)));

นี้ ถ้าตัด T1.* ออกก็จะได้ ฟิลล์ Sum มา 1 คอลัมน์ คุณอยากเอาฟิลล์นี้ไปวางไว้ตรงไหนเพราะอาจจะไม่ใช่การ Union แล้วแต่อาจจะเป็นอย่างอื่น

ลองสร้างตัวอย่างผลลัพธ์ ใน Excel ว่าต้องการผลลัพธ์แบบไหน เดี่ยวผมทำให้
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

หน้า: 1 ... 24 25 26 [27] 28 29 30 ... 32