สวัสดีครับ วันนี้มีเรื่องคิดไม่ตกเกี่ยวกับ Table ครับ พอดีได้ request เพิ่มเติมครับ เค้าอยากให้เพิ่ม PO Truck Number เป็นโมดูลใหม่เพื่อออกบิลให้ Supplier แต่ติดที่ table ที่ผมออกแบบในตอนแรก เค้าว่า 1 Job มีรถหลายคัน ผมเลยทำแบบรูปข้างล่างนี้ครับ



แล้วเอา Table นี้ไม่ทำ Query Union เพื่อให้ออกมาเป็นแบบด้านล่างครับ





ผมก็เลยเอา Query Union ที่ทำไปทำ Query กับ PO Truck Table โดยใช้ JobNO ในการ Relationship กัน แต่ปรากฏว่าไม่สามารถใส่เลขในช่อง PO ได้

คำถาม

1. ใครพอมีไอเดียช่วยผมในเรื่องนี้บ้างไหมครับ
2. หรือผมจะต้องรื้อ Table ใหม่หมดเลยครับ
3. ใครมีไอเดียที่สามารถใส่ เลขทะเบียนรถ ได้มากกว่า 1 คัน โดยไม่ต้องทำ Table แยกเป็น Truck 1/ Truck 2........ บ้างครับ

ปล. นี่คือ Table PO Truck ครับ



ขอบคุณครับ

โค๊ด: [Select]

IF IsNull(CmbG) Then
Me.CmbG.SetFocus
Msgbox "CMBG ว่าง!!!"
Else
IF Not IsNull(Me.JobNo) Then
Msgbox "มีการกำหนด JobNo ไว้แล้ว"
Exit Sub
else
Me.JobNo = AutotxtID
End if
End if
แก้เฉพาะปุ่ม CommandBotton นะครับ

ขอบคุณมากครับ เดี๋ยวผมลองดูครับ

แบบนี้เปล่าครับ

https://www.thai-access.com/yeadram_view.php?topic_id=3444

ขอบคุณครับ ใช่แล้วครับ

ลองปรับ criteria เป็น
LIKE Nz([Forms]![ReportMA]![txtTruck],"*")

ปรับแค่ฝั่งของ TruckNO อย่างเดียวนะครับ

TruckNo คือเลขทะเบียนรถใช้ใหมครับ ?
Criteria ให้อยู่ในบรรทัดเดียวกันได้เลย
ไม่ต้องมี Like ครับ

จากตัวอย่างของคุณ เอา Between.... ขึ้นมาอีก 1 บรรทัดครับ แล้วดูผลใหม่

ถ้าไม่ได้ขอดูคำสั่ง Forms!...... ตรงส่วนของ Criteria หน่อย

ขอบคุณมากครับ เดี๋ยวผมลองดูครับ

วิธีทำ
1.กำหนดแหล่งข้อมูลแถวของ Combobox TruckNO เป็น

โค๊ด: [Select]

SELECT tblTruck.TruckNO, tblTruck.TruckBrand, tblTruck.DriverName
FROM tblTruck
WHERE ((Not (tblTruck.TruckNO) Is Null));
1.1 กำหนด BoundColumn(หรือ คอลั่มที่ผู้ไว้ เท่ากับ 1)
1.2 กำหนดจำนวนคอลัมน์ 3
1.3 กำหนดความกว้างคอลัมน์ 5ซม.;0ซม.;0ซม.

2.กำหนดแหล่งข้อมูลแถวของ Combobox TruckBrand เป็น

โค๊ด: [Select]

SELECT [tblTruck].TruckBrand FROM tblTruck GROUP BY [tblTruck].TruckBrand HAVING ((Not ([tblTruck].TruckBrand) Is Null)); 2.1 กำหนด BoundColumn(หรือ คอลั่มที่ผู้ไว้ เท่ากับ 1)
2.2 กำหนดจำนวนคอลัมน์ 1
2.3 กำหนดความกว้างคอลัมน์ 5ซม.

3.กำหนดแหล่งข้อมูลแถวของ Combobox DriverName เป็น

โค๊ด: [Select]

SELECT [tblTruck].DriverName FROM tblTruck GROUP BY [tblTruck].DriverName HAVING ((Not ([tblTruck].DriverName) Is Null)); 3.1 กำหนด BoundColumn(หรือ คอลั่มที่ผู้ไว้ เท่ากับ 1)
3.2 กำหนดจำนวนคอลัมน์ 1
3.3 กำหนดความกว้างคอลัมน์ 5ซม.


4.เขียนโค้ด Event เมื่ออัพเดท ของcombobox TruckNO เป็น

โค๊ด: [Select]

Private Sub TruckNO_AfterUpdate()
If Not IsNull(Me.TruckNO) Then
Me.TruckBrand = Me.TruckNO.Column(1)
Me.DriverName = Me.TruckNO.Column(2)
Else
Me.TruckBrand = Null
Me.DriverName = Null
End If
End Sub

ขอบคุณมากมากเลยครับ

ไม่รู้ว่าการแสดงข้อมูลเป็นแบบไหนนะครับ แต่ถ้าทำวิธีง่ายๆ คือสร้างคิวรี่ไว้ตรวจสอบ เพื่อใช้กับเงื่อนไขว่า เป็นข้อมูลของเดือนที่แล้วหรือไม่
ถ้าเป็นข้อมูลของเดือนที่แล้วก็ กำหนดให้Formให้ ห้ามแก้ไข = true ได้ครับ

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

ขอบคุณสำหรับแนวคิดครับ แต่ผมไม่ทราบว่าต้องใช้ criteria อะไรครับ พอจะยกตัวอย่างได้ไหมครับ

อ้างถึง Textbox ในฟอร์มหลัก แบบนี้ครับ   = [Forms]![ชื่อฟอร์มหลัก]![ชื่อTextbox]

ขอบคุณครับ จะลองดูครับ

ชื่อของ TEXTBOX ครับ