1
ห้อง MS Access / : ห้ามใส่วันที่ล่วงหน้าเกิน 30 วัน
« เมื่อ: 22 มี.ค. 64 , 16:00:34 »
ขอบคุณท่าน หนอนน้อย มากครับทำได้ตามเป้าเลย
แสดงกระทู้
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.
2
ห้อง MS Access / ห้ามใส่วันที่ล่วงหน้าเกิน 30 วัน
« เมื่อ: 19 มี.ค. 64 , 18:22:53 »
ผมมีฟิวส์ชื่อ "วันนัดชำระ" จะทำยังไงไม่ให้ User ใส่วันที่ล่วงหน้าเกิน 30 วัน ที่หน้าฟอร์มครับ เช่น วันนี้วันที่ 19/03/20201 User จะใส่ข้อมูลได้แค่วันที่ 19/03/20201-17/04/2021 เท่านั้นถ้าใส่เกินให้โปรแกรมแจ้งเตือนว่าใส่วันที่เกิน
3
ห้อง MS Access / : สั่งปิดฟอร์มอัตโนมัติ
« เมื่อ: 22 ต.ค. 63 , 16:51:32 »
ผมไปฝั่ง Event ข้อมูลทั้งหมดแล้วกับไม่ยอมปิดแฮะ พอจะมีตัวอย่างบ้างไหมครับคุณ PNR
4
ห้อง MS Access / สั่งปิดฟอร์มอัตโนมัติ
« เมื่อ: 22 ต.ค. 63 , 11:13:27 »
มีฟอร์มทั้งหมด 2 ฟอร์มชื่อ "collection","ข้อมูลทั้งหมด" ทั้ง 2 ฟอร์มพนักงานจะเปิดใช้พร้อมกัน
คำถามคือ ปัจจุบันผมใช้งานอยู่หน้าฟอร์ม collection และจะเปลี่ยนไปใช้หน้าฟอร์ม ข้อมูลทั้งหมด อยากให้ ฟอร์ม collection ปิดอัตโนมัติต้องทำยังไงครับ
คำถามคือ ปัจจุบันผมใช้งานอยู่หน้าฟอร์ม collection และจะเปลี่ยนไปใช้หน้าฟอร์ม ข้อมูลทั้งหมด อยากให้ ฟอร์ม collection ปิดอัตโนมัติต้องทำยังไงครับ
5
ห้อง MS Access / : รวมฟิวส์ Text
« เมื่อ: 02 ก.ย. 63 , 08:53:40 »
ขอบคุณมากๆเลยครับ แต่ตอนนี้ถ้าเกิด text1 เราไม่ต้องการกรอกข้อมูล แต่ตอนรวม มันจะมีค่าเว้นวรรคมาด้วย ถ้าเราไม่ต้องการทำยังไงครับ
7
ห้อง MS Access / รวมฟิวส์ Text
« เมื่อ: 31 ส.ค. 63 , 14:05:21 »
จากรูปจะมี text 4 ตัว
1.Description
2.เบอร์โทร
3.รายงานการติดตาม
4.Total คือเอา 1-3 มารวมกัน
คำถามคือตอนนี้ text รายงานการติดตาม เวลาพิมม์ข้อมูลลงไป ผมอยากให้มัน Update ที่ช่อง Total ทันที ตอนนี้ผมใช้เงื่อนไข After Update อยุ่คือว่ามันต้องคีย์ข้อมูลเสร็จแล้วถึงจะ Update ต้องเขียนแบบไหนครับ
8
ห้อง MS Access / : ภายในวันไม่ให้กรอกข้อมูลซ้ำ
« เมื่อ: 10 ส.ค. 63 , 13:01:26 »
ผมทำได้แล้วครับ แต่ติดตรงที่ว่าถ้าเป็นลูกค้าเคสที่สองเงื่อนไขมันไม่ยอมทำงานไม่รู้ติดตรงไหน ผมแนบไฟล์มาด้วยครับ
9
ห้อง MS Access / : ภายในวันไม่ให้กรอกข้อมูลซ้ำ
« เมื่อ: 10 ส.ค. 63 , 09:35:42 »
Private Sub Mycheck()
Dim IntCount As String
If Not IsNull(Me.dtDate) And Not IsNull(Me.cbresult) Then
Me.Dirty = False
IntCount = Nz(DLookup("CountResult", "QryCheckDate", "result ='" & cbresult & "' and Ondate = '" & CStr(Format(Forms!mainform!SubForm!dtDate, "DD/MM/YYYY")) & "'"), 0)
If cbresult = "RPP" And IntCount > 1 Then
MsgBox "วันนี้คุณไม่สามารถลงได้อีก!!!!", vbInformation, "ตรวจเช็ค"
Me.cbresult = Null
Me.cbresult.SetFocus
ElseIf cbresult = "PD" And IntCount > 1 Then
MsgBox "วันนี้คุณไม่สามารถลงได้อีก!!!!", vbInformation, "ตรวจเช็ค"
Me.cbresult = Null
Me.cbresult.SetFocus
ElseIf cbresult = "BRK" And IntCount > 1 Then
MsgBox "วันนี้คุณไม่สามารถลงได้อีก!!!!", vbInformation, "ตรวจเช็ค"
Me.cbresult = Null
Me.cbresult.SetFocus
End If
End If
End Sub
ต้องไปใส่ Event ส่วนไหนหรอครับ
Dim IntCount As String
If Not IsNull(Me.dtDate) And Not IsNull(Me.cbresult) Then
Me.Dirty = False
IntCount = Nz(DLookup("CountResult", "QryCheckDate", "result ='" & cbresult & "' and Ondate = '" & CStr(Format(Forms!mainform!SubForm!dtDate, "DD/MM/YYYY")) & "'"), 0)
If cbresult = "RPP" And IntCount > 1 Then
MsgBox "วันนี้คุณไม่สามารถลงได้อีก!!!!", vbInformation, "ตรวจเช็ค"
Me.cbresult = Null
Me.cbresult.SetFocus
ElseIf cbresult = "PD" And IntCount > 1 Then
MsgBox "วันนี้คุณไม่สามารถลงได้อีก!!!!", vbInformation, "ตรวจเช็ค"
Me.cbresult = Null
Me.cbresult.SetFocus
ElseIf cbresult = "BRK" And IntCount > 1 Then
MsgBox "วันนี้คุณไม่สามารถลงได้อีก!!!!", vbInformation, "ตรวจเช็ค"
Me.cbresult = Null
Me.cbresult.SetFocus
End If
End If
End Sub
ต้องไปใส่ Event ส่วนไหนหรอครับ
10
ห้อง MS Access / : ภายในวันไม่ให้กรอกข้อมูลซ้ำ
« เมื่อ: 06 ส.ค. 63 , 18:25:01 »
ขอบคุณครับ ตั้งตารอเลยครับ
11
ห้อง MS Access / ภายในวันไม่ให้กรอกข้อมูลซ้ำ
« เมื่อ: 04 ส.ค. 63 , 19:00:08 »
ผมมี subform ชื่อ collection มี combobox ชื่อ result_code โดยจะมีตัวเลือกหลายตัวเลือก กรณีที่พนักงานบันทึกข้อมูลภายในวันแล้วและเลือกตัวเลือก RPP PD BRK แล้วจะไม่สามารถลง RPP PD BRK ซ้ำได้ภายในวันได้อีก แต่ถ้าเป็นตัวเลือกอื่นสามารถเลือกลงซ้ำได้
12
ห้อง MS Access / : เปิดให้ปุ่มทำงานตามงวด
« เมื่อ: 29 ก.ค. 63 , 16:57:59 »
ขอบคุณมากๆครับผมทำได้ละครับ
13
ห้อง MS Access / : เปิดให้ปุ่มทำงานตามงวด
« เมื่อ: 25 ก.ค. 63 , 19:36:38 »
ไม่แน่ใจว่าต้องใช้ iif หรือป่าวมันถึงจะทำงานสมบูรณ์ผมก็เขียนไม่เป็นเหมือนกันครับ
14
ห้อง MS Access / เปิดให้ปุ่มทำงานตามงวด
« เมื่อ: 24 ก.ค. 63 , 18:02:11 »
อย่ากให้ปุ่มทำงาน Enabled โดยอ้างอิงจากฟิวส์งวด เช่นถ้าขึ้น 2 งวดปุ่ม 2 งวดจะใช้งานได้ปุ่มอื่นจะไม่สามารถใช้งานได้ False ตามตัวอย่างที่ทำให้ดูครับ
15
ห้อง MS Access / ตัวอย่างระบบ Login แบบมี Level
« เมื่อ: 30 มิ.ย. 63 , 18:05:08 »
ท่านใดมีตัวอย่างระบบ Login แบบแยก Level ฝากขอนำไปเรียนรู้ตัวอย่างหน่อยครับพอดีเพิ่งหัดเขียนได้ระดับนึงยังไม่ค่อยเก่ง
ขอบคุณมากครับ
ขอบคุณมากครับ
16
ห้อง MS Access / : กำหนดให้ user ตั้งรหัสผ่านตามที่กำหนดไว้
« เมื่อ: 23 เม.ย. 63 , 18:57:44 »
ขอบพระคุณอาจารย์มากๆครับ
