667
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.
668
ห้อง MS Access / : ต้องการรวมข้อมูลที่อยู่ใน cell เดียวกัน แต่เป็นคนละบรรทัด
« เมื่อ: 10 ธ.ค. 62 , 16:45:20 »
_เจอปัญหาละ แก้ให้แปปครับ
669
ห้อง MS Access / : ไปต่อไม่ถูกครับอาจารย์ ขอความรู้หน่อยครับอาจารย์
« เมื่อ: 10 ธ.ค. 62 , 16:01:13 »
ลองทำแบบนั้นก่อน เดี่ยวโค้ดในการนำ ค่าเฉลี่ยมาคำนวน เดี่ยวค่อยมาทำอีกทีครับสู้ๆ ครับ
670
ห้อง MS Access / : ต้องการรวมข้อมูลที่อยู่ใน cell เดียวกัน แต่เป็นคนละบรรทัด
« เมื่อ: 10 ธ.ค. 62 , 15:39:13 »
งง ครับ ผมลองทดสอบแล้วมันได้นะ
ส่งตัวอย่างไฟล์มาทาง Inbox ครับผมเช็คให้
ส่งตัวอย่างไฟล์มาทาง Inbox ครับผมเช็คให้
671
ห้อง MS Access / : ต้องการที่จะทำให้เวลาเลือกข้อมูลแล้ว เลือกซ้ำกันไม่ได้
« เมื่อ: 10 ธ.ค. 62 , 15:35:14 »
ผมสมมุติรายการรถ อยู่ที่ ตารางชื่อ tblCartype ชื่อ Cartype
และจัดเก็บข้อมูลการเช่ารถไว้ที่ tblUseCar โดย CarHire คือ Field ชื่อรถ
ตรงส่วนของ รายการแถวของ Combobox ก็จะดึง Field cartype และกำหนด Criteria
เท่านี้ ชื่อรถที่ลงทะเบียน ใน Field Carhire tblUsecar จะไม่นำมาแสดงในรายการของ Combobox แล้วครับ
ตัวอย่างด้านล่าง
และจัดเก็บข้อมูลการเช่ารถไว้ที่ tblUseCar โดย CarHire คือ Field ชื่อรถ
ตรงส่วนของ รายการแถวของ Combobox ก็จะดึง Field cartype และกำหนด Criteria
โค๊ด: [Select]
Not In (select [carHire] from [tblUseCar])
เท่านี้ ชื่อรถที่ลงทะเบียน ใน Field Carhire tblUsecar จะไม่นำมาแสดงในรายการของ Combobox แล้วครับ
ตัวอย่างด้านล่าง
672
ห้อง MS Access / : ต้องการรวมข้อมูลที่อยู่ใน cell เดียวกัน แต่เป็นคนละบรรทัด
« เมื่อ: 10 ธ.ค. 62 , 14:54:17 »
ลองแบบนี้ในคิวรี่นะครับ
ShipToAdderss: Replace([ShipToAdderss1],Chr(13) & Chr(10),"")
ShipToAdderss: Replace([ShipToAdderss1],Chr(13) & Chr(10),"")
673
ห้อง MS Access / : ไปต่อไม่ถูกครับอาจารย์ ขอความรู้หน่อยครับอาจารย์
« เมื่อ: 10 ธ.ค. 62 , 13:38:02 »ตอนนี้ผมกำลังรวบรวมจากสถิติน้ำหนักที่จดไว้แต่ละค่าเฉลี่ยครับอาจารย์ เพราะสัดส่วนแค่ผืดกัน 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 ในรูปนะครับ
674
ห้อง MS Access / : ไปต่อไม่ถูกครับอาจารย์ ขอความรู้หน่อยครับอาจารย์
« เมื่อ: 10 ธ.ค. 62 , 13:10:27 »อ้างถึง
น้ำหนักเฉลี่ยจะมีตั้งแต่ 2.00 - 3.00 ครับโดยเบื้องต้นสามารถสร้างตัวแปรมาเก็บ ค่าคำนวน ของแต่ละน้ำหนักเฉลี่ยครับ แล้วใช้ If เช็คเงือนไข อีกที
ผมพอจะช่วยได้ แต่ต้องเอาช่วงของน้ำหนักเฉลี่ยทั้งหมดมาแสดงนะครับเช่น
ช่วง 2.00 - 2.10
2.11 - 2.20
2.21 - 2.55
2.56 - 3
เป็นต้นครับ เพราะ ถ้ากำหนดช่วงที่แน่นอนได้การทำสูตรคำนวนต่อไปจะไม่ยากแล้วครับ
สิ่งที่ต้องการคือ ช่วงน้ำหนักเฉลี่ยที่แน่นอน และ สูตรคำนวนของแต่ละช่วง
675
กระดานข่าว / : เริ่มเทศกาลขายสินค้า หาเงินช่วยเว็บ
« เมื่อ: 10 ธ.ค. 62 , 08:34:13 »
ช่วยบริจาค 1 ปี 1042 บาทครับ
วันที่ 12 นี้โอนให้นะ ขอเลข บัญชีไว้เลยครับ
วันที่ 12 นี้โอนให้นะ ขอเลข บัญชีไว้เลยครับ
676
ห้อง MS Access / : แจ้งเตือนเมื่อเข้าเงืื่่อนไข
« เมื่อ: 10 ธ.ค. 62 , 08:26:01 »
ผมแก้ไขให้แล้วครับ
ส่วนที่แก้ คือถ้ามี Customercode ก็ต้องเอาอันนี้แหละมาอ้างอิงแทน ID ครับ
โดยโค้ดกรองฟอร์มก็จะเป็น
DoCmd.OpenForm "FrmMain_Con", , , "[customer_code]='" & Me![txtcustomer_code] & "'"
มีเครื่องหมาย single quote เพราะ ข้อมูลเป็น text ไม่ใช่ตัวเลขครับ
ส่วนโค้ดของ ระบบแจ้งเตือนก็เปลี่ยนเป็นแบบนี้
ส่วนที่แก้ คือถ้ามี 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
677
ห้อง MS Access / : แจ้งเตือนเมื่อเข้าเงืื่่อนไข
« เมื่อ: 09 ธ.ค. 62 , 13:26:22 »
มันต้องหา Event การทำงานให้มันครับ
ผมไม่แน่ใจว่าในโปรแกรมของคุณจะตรวจสอบตอนไหน ว่ามีการติดต่อแล้ว
จากตัวอย่าง ผมสมมุติพอเราเลือกเคสที่จะเข้าไปดูรายละเอียดแล้ว ถ้ามีการติดต่อแล้วจะแจ้งเตือน
ตัวอย่างง่ายๆ ด้านล่าง
ผมไม่แน่ใจว่าในโปรแกรมของคุณจะตรวจสอบตอนไหน ว่ามีการติดต่อแล้ว
จากตัวอย่าง ผมสมมุติพอเราเลือกเคสที่จะเข้าไปดูรายละเอียดแล้ว ถ้ามีการติดต่อแล้วจะแจ้งเตือน
ตัวอย่างง่ายๆ ด้านล่าง
678
ห้อง MS Access / : แจ้งเตือนเมื่อเข้าเงืื่่อนไข
« เมื่อ: 09 ธ.ค. 62 , 09:37:57 »
ตาราง เชื่อมกับ 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
เช็ควันที่ปัจจุบัน กับ วันที่ๆ ลงในระบบไว้แล้ว และตรวจสอบว่า มีการระบุ ติดต่อได้ ไว้หรือไม่
โค้ดง่ายๆ โดยเช็คกับวันที่ปัจจุบัน และ เช็คเงื่อนไข การระบุ ติดต่อได้
น่าจะต้อง เช็คเงื่อนไขกับ 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
เช็ควันที่ปัจจุบัน กับ วันที่ๆ ลงในระบบไว้แล้ว และตรวจสอบว่า มีการระบุ ติดต่อได้ ไว้หรือไม่
679
ห้อง MS Access / : ขอความอนุเคราะห์ เรื่อง การทำฟอร์มค้นหารายชื่อ กับ ข้อมูลที่ซ้ำกันครับ
« เมื่อ: 08 ธ.ค. 62 , 11:49:03 »
ส่ง line ID ทาง Inbox แล้วครับ
ทักทายมาเดี่ยวแก้ไขให้
ทักทายมาเดี่ยวแก้ไขให้
680
ห้อง MS Access / : รวมแล้วมันจะหาย 1 บรรทัดตลอดเลยครับทำไงดีครับ อาจารย์
« เมื่อ: 06 ธ.ค. 62 , 15:54:10 »
ผมเช็คก็ตรงปกตินะครับ
คุณกำหนดให้คำนวนโดยอ้างอิง ID ของฟอร์มนี้ คือ 2 ใช่ไหม
ผมดูจากคิวรี่ของฟอร์ม Qry_ListWeight มี IdIn 2 รหัส คือ 2 กับ 3 ครับ
ยอดรวมของ 2 มันก็ได้เท่านี้ถูกแล้วนะครับ
คุณกำหนดให้คำนวนโดยอ้างอิง ID ของฟอร์มนี้ คือ 2 ใช่ไหม
ผมดูจากคิวรี่ของฟอร์ม Qry_ListWeight มี IdIn 2 รหัส คือ 2 กับ 3 ครับ
ยอดรวมของ 2 มันก็ได้เท่านี้ถูกแล้วนะครับ
681
ห้อง MS Access / : รวมแล้วมันจะหาย 1 บรรทัดตลอดเลยครับทำไงดีครับ อาจารย์
« เมื่อ: 06 ธ.ค. 62 , 15:26:43 »
ลองบอกอาการ และส่งตัวอย่างมาดูก็ได้คับ
682
ห้อง MS Access / : รวมแล้วมันจะหาย 1 บรรทัดตลอดเลยครับทำไงดีครับ อาจารย์
« เมื่อ: 06 ธ.ค. 62 , 13:05:41 »
อาการ ข้อผิดพลาดเป็นยังไงครับ
683
ห้อง MS Access / : รวมแล้วมันจะหาย 1 บรรทัดตลอดเลยครับทำไงดีครับ อาจารย์
« เมื่อ: 06 ธ.ค. 62 , 13:03:22 »ผมลองทำดูมันรวมยอดให้นะครับ
684
ห้อง MS Access / : รวมแล้วมันจะหาย 1 บรรทัดตลอดเลยครับทำไงดีครับ อาจารย์
« เมื่อ: 06 ธ.ค. 62 , 09:52:41 »
ใช้ = sum(QtyChicken) แทนดูครับว่าได้ไหม
ตั้งค่า ในฟอร์มดูตรง คุณสมบัติครับ
กดที่ textbox ในมุมมองออกแบบ
กดที่คุณสมบัติ ของ textbox นั้น
กำหนด ทศนิยม 2 ตำแหน่งได้เลย
กำหนด รูปแบบเป็น standard หรือ fixed หรือ normal number ตรงนี้เลือกเอาตามความชอบครับ
กำหนดตำแหน่งทศนิยมเป็น 2 ตำแหน่งได้เลย
ตั้งค่า ในฟอร์มดูตรง คุณสมบัติครับ
กดที่ textbox ในมุมมองออกแบบ
กดที่คุณสมบัติ ของ textbox นั้น
กำหนด ทศนิยม 2 ตำแหน่งได้เลย
กำหนด รูปแบบเป็น standard หรือ fixed หรือ normal number ตรงนี้เลือกเอาตามความชอบครับ
กำหนดตำแหน่งทศนิยมเป็น 2 ตำแหน่งได้เลย