แสดงกระทู้

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

หน้า: [1] 2 3 4
1
ห้อง MS Access / : รบกวนผู้รู้ช่วยด้วยครับ
« เมื่อ: 27 ธ.ค. 64 , 15:07:10 »
อ้างถึง
ขอบคุณมากเลยครับ แต่ผมอาจจะอธิบายไปชัดเจน ผมอยากให้ lock record วันที่ 3 ในเดือนถัดไปครับ จะใช้วิธีนี้ได้ไหมครับ?? แล้วมันจะใช้ได้ทุกเดือนไหมครับ??
เช็คเฉพาะวันที่ 3 ของทุกเดือนใช้แบบนี้
SELECT IIf(Day(Mydate)=3,1,0) AS CheckMonth, *  FROM Mytable;

ถ้าอยากให้ วันที่ 3 ของเดือนนี้สามารถเพิ่มหรือแก้ไขข้อมูลได้แต่ของเดือนอื่นๆ ที่ไม่ใช่เดือนนี้ห้ามแก้ไขใส่แบบนี้
SELECT IIf(Day(Mydate)=3 And Not Month(Mydate) = Month(Date()),1,0) AS CheckMonth, *  FROM Mytable;


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

2
ห้อง MS Access / : รบกวนผู้รู้ช่วยด้วยครับ
« เมื่อ: 27 ธ.ค. 64 , 14:53:48 »
ใช้  Datediff ช่วยเช็คได้ไหมครับ



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

3
ห้อง MS Access / : สอบถามการ Lock ไม่ให้พนักงานแก้ไขข้อมูลครับ
« เมื่อ: 25 พ.ย. 64 , 14:24:08 »
1. ผมอยากที่จะ Lock เมื่อพนักงานใส่ข้อมูลเรียบร้อยแล้วและไม่ให้มาแก้ไขอีกเมื่อเวลาผ่านไป 5 วัน สามารถทำได้ไหมครับ??
ตอบ ทำได้ครับ โดยใช้ VBA นับวันที่บันทึกข้อมูลแต่ละเรคอร์ด ซึ่งจะใช้ไม่ได้กับ Continuous Form หรือ Datasheet


2. ผมอยากให้เวลาพนักงานกด Save หรือ Submit แล้วให้ auto เปลี่ยนข้อความในช่องสถานะ
ตอบ ต้องใช้ Update Query เพื่อ Update หลัง Submit
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

4
ห้อง MS Access / : อยากจะปรับขนาดตัวอักษรใน Subform ที่เป็น DataSheet ยังไงครับ???
« เมื่อ: 29 เม.ย. 64 , 11:16:48 »
เปลี่ยนฟอร์นหรือปรับขนาดตัวอักษรที่เมนูด้านบนได้เลยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

5
ห้อง MS Access / : สอบถามเรื่อง Query จาก 2 Table แล้วมีปัญหานิดหน่อยครับ???
« เมื่อ: 26 เม.ย. 64 , 18:04:01 »
เปิด Query Design แล้วคลิกพื้นสีเทา จากนั้นกำหนด Unique Values = Yes



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

6
ห้อง MS Access / : ต้องการในค่า Sum ใน Subform ไปใส่ใน field ของอีก Table ต้องทำยังไงครับ
« เมื่อ: 19 มี.ค. 64 , 14:35:01 »
ขอตอบตามวิธีที่ผมใช้นะครับนั่นคือ
> CostTruckingSupplier = [ชื่อฟอร์มย่อย].[Form]![Sum CostSup]
> ทำ TextBox ผูกกับตารางที่ต้องการเก็บค่า(แต่สั่งซ่อนไว้ไม่แสดง)
> ทุกปุ่มคำสั่งที่เกี่ยวกับชุดข้อมูลนี้เช่น ปุ่มตัวอย่างก่อนพิมพ์,ปุ่มพิมพ์,ปุ่มปิดฟอร์ม ผมก็จะแอบใส่คำสั่งเข้าไปว่าให้ TextBox.Value = CostTruckingSupplier.Value เพื่อนำค่าไปเก็บใว้ในตารางทีหลังนะ หรือท่านจะใช้เป็น GotFocus,Before,AfterUpdate ก็ได้นะครับลองดู
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

7
ห้อง MS Access / : ผมอยากให้ช่องเลือกวัน ไม่สามารถเลือกวันย้อนหลังได้ทำไงครับ???
« เมื่อ: 19 มี.ค. 64 , 11:31:40 »
อ้างจาก: PNR ที่ 19 มี.ค. 64 , 11:11:57
ถ้าหากจะใช้การตัดวันที่ ที่ผ่านมาออกไปแสดงเฉพาะวันที่ปัจจุบันเป็นต้นไปยังไม่เคยทำครับ

แต่ถ้าจะใช้การกำหนดเงื่อนไขว่าถ้าเลือกวันที่ๆผ่านมาแล้วให้แจ้งเตือนและให้ระบุใหม่ก็ลองแบบนี้
สมมุติ textbox เลือกวันที่ ชื่อ txtDatePick

Private Sub txtDatePick_AfterUpdate()
If Me.txtDatePick < Date() Then
MsgBox "ไม่สามารถเลือกวันที่ย้อนหลังได้", vbCritical, "แจ้งเตือน"
Me.Text0 = Null
End If
End Sub

ถ้าผมตอบก่อนจะบอกว่า"กรุณาเลือกวันที่ปัจจุบันหรืออนาคต"นะนี่ :shout:
โค๊ด: [Select]
Private Sub Text20_AfterUpdate()
    If Me.Text20 < Date Then
         MsgBox "กรุณาเลือกวันที่ปัจจุบันหรืออนาคต"
    End If
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

8
ห้อง MS Access / : ผมอยากให้ช่องเลือกวัน ไม่สามารถเลือกวันย้อนหลังได้ทำไงครับ???
« เมื่อ: 19 มี.ค. 64 , 11:11:57 »
ถ้าหากจะใช้การตัดวันที่ ที่ผ่านมาออกไปแสดงเฉพาะวันที่ปัจจุบันเป็นต้นไปยังไม่เคยทำครับ

แต่ถ้าจะใช้การกำหนดเงื่อนไขว่าถ้าเลือกวันที่ๆผ่านมาแล้วให้แจ้งเตือนและให้ระบุใหม่ก็ลองแบบนี้
สมมุติ textbox เลือกวันที่ ชื่อ txtDatePick

Private Sub txtDatePick_AfterUpdate()
If Me.txtDatePick < Date() Then
MsgBox "ไม่สามารถเลือกวันที่ย้อนหลังได้", vbCritical, "แจ้งเตือน"
Me.Text0 = Null
End If
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

9
ห้อง MS Access / : สอบถามการออกแบบ Table ครับ
« เมื่อ: 15 มี.ค. 64 , 15:14:33 »
ให้อัพเดททุก Jobno
หรือเฉพาะ Jobno ที่ต้องการครับ

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

10
ห้อง MS Access / : สอบถามการออกแบบ Table ครับ
« เมื่อ: 09 มี.ค. 64 , 14:15:43 »
จากตัวอย่างลองเปิด form frmExpBooking ขึ้นมา
จะแสดง Jobno และรายละเอียดคร่าวๆ ของ Jobno นั้น

เวลาจะเข้าไประบุ truckNo ให้ดับเบิ้ลคลิกที่ เรคคอร์ดที่ต้องการ จะเข้าไปสู่หน้าของการระบุ truckno และรายละเอียดต่างๆครับ

ดูจากงานของท่านแล้ว ต้องศึกษาการทำ Normalization ก่อนเป็นอันดับแรกเลย
เพราะท่านรวบรวมข้อมูลต่างๆ ไว้ด้วยกันทั้งหมด ผมว่าไม่เวิคครับ

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

11
ห้อง MS Access / : สอบถามการออกแบบ Table ครับ
« เมื่อ: 09 มี.ค. 64 , 09:58:17 »
อ้างถึง
ค้าอยากให้เพิ่ม PO Truck Number เป็นโมดูลใหม่เพื่อออกบิลให้ Supplier
วิธีในการออก PO Truck Number มีขั้นตอนการออกอย่างไร

อ้างถึง
ใครมีไอเดียที่สามารถใส่ เลขทะเบียนรถ ได้มากกว่า 1 คัน โดยไม่ต้องทำ Table แยกเป็น Truck 1/ Truck 2........ บ้างครับ
ไม่ต้องแยก Truck1 / Truck2
หรอกครับ
แต่ในตารางก็จะต้องมี
ตาราง Jobno ตารางนี้สร้างขึ้นมาไว้กำหนดรายละเอียดของ Job เช่น
JobNo
CustomerName
Tel
ฯลฯ

ส่วนตารางใหม่ที่น่าจะทำ
JobNo ไว้กำหนด RelationShip
TruckNumber ไว้กำหนดลำดับ Truck จะทำให้ Auto ก็ได้ หรือระบุเองก็ได้
TruckID  ฟิลล์นี้เก็บทะเบียนรถ

คุณสมบัติตารางเป็นแบบ Many
Jobno ต้องซ้ำได้

ข้อดีคือ ใน 1 Jobno มีรถกี่ค้นก็ได้เป็น 100 คันก็ได้ เพราะข้อมูลกำหนดเป็น Row ไม่ใช้ Column แบบที่คุณทำ

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

12
ห้อง MS Access / : สอบถามการเขียนครับ
« เมื่อ: 08 มี.ค. 64 , 15:28:44 »
โค๊ด: [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 นะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

13
ห้อง MS Access / : สอบถามว่าถ้าถ้ามีการ Save ทับ record เดิมให้แจ้งเตือนได้ไหมครับ
« เมื่อ: 24 ก.พ. 64 , 16:39:22 »
แบบนี้เปล่าครับ

https://www.thai-access.com/yeadram_view.php?topic_id=3444
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

14
ห้อง MS Access / : สอบถามเรื่อง Criteria ใน Query หน่อยครับ
« เมื่อ: 16 ก.พ. 64 , 15:52:18 »
ลองปรับ criteria เป็น
LIKE Nz([Forms]![ReportMA]![txtTruck],"*")


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

15
ห้อง MS Access / : สอบถามเรื่อง Criteria ใน Query หน่อยครับ
« เมื่อ: 16 ก.พ. 64 , 14:54:09 »
TruckNo คือเลขทะเบียนรถใช้ใหมครับ ?
Criteria ให้อยู่ในบรรทัดเดียวกันได้เลย
ไม่ต้องมี Like ครับ

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

ถ้าไม่ได้ขอดูคำสั่ง Forms!...... ตรงส่วนของ Criteria หน่อย
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

16
ห้อง MS Access / : อยากรู้ว่า Drop Down ยังไงให้ Fill ข้อมูลอัตโนมัติ
« เมื่อ: 10 ก.พ. 64 , 14:32:02 »
วิธีทำ
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
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

หน้า: [1] 2 3 4