1
ห้อง MS Access / : Random ข้อมูล
« เมื่อ: 25 พ.ค. 64 , 18:15:29 »
ขอบคุณมากครับ 
แสดงกระทู้
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.
3
ห้อง MS Access / : Random ข้อมูล
« เมื่อ: 24 พ.ค. 64 , 11:54:30 »
ปุ่มก็ได้ครับ ขอถามเพิ่มครับแล้วถ้าเกิดผมมีเงื่้อนไขเพิ่ม กรณีผมมีฟิวส์ชื่อ monthly เก็บข้อมูลเดือน Jan-Dec และฟิวส์ sex เก็บเพศ ชาย หญิง ความต้องการคือให้กรองข้อมูลเฉพาะเดือน May เพศเลือก ชาย ให้เอาข้อมูล TCC มา Random เขียนแบบไหนครับ
4
ห้อง MS Access / Random ข้อมูล
« เมื่อ: 22 พ.ค. 64 , 09:36:24 »
ผมมี ฟิวส์ชื่อ TCC เก็บรหัสพนักงาน TCC001-TCC010 ความต้องการคืออยากให้ใน คิวรี่ Random ข้อมูลฟิวส์ TCC ตามตัวอย่างในรูปชื่อฟิวส์ TCC Randow ต้องเขียนในคิวรี่แบบไหนครับแล้วมันสามารถทำให้มันไม่ซ้่ำข้อมูลเดิมได้ไหม
5
ห้อง MS Access / : ห้ามใส่วันที่ล่วงหน้าเกิน 30 วัน
« เมื่อ: 22 มี.ค. 64 , 16:00:34 »
ขอบคุณท่าน หนอนน้อย มากครับทำได้ตามเป้าเลย
6
ห้อง MS Access / ห้ามใส่วันที่ล่วงหน้าเกิน 30 วัน
« เมื่อ: 19 มี.ค. 64 , 18:22:53 »
ผมมีฟิวส์ชื่อ "วันนัดชำระ" จะทำยังไงไม่ให้ User ใส่วันที่ล่วงหน้าเกิน 30 วัน ที่หน้าฟอร์มครับ เช่น วันนี้วันที่ 19/03/20201 User จะใส่ข้อมูลได้แค่วันที่ 19/03/20201-17/04/2021 เท่านั้นถ้าใส่เกินให้โปรแกรมแจ้งเตือนว่าใส่วันที่เกิน
7
ห้อง MS Access / : สั่งปิดฟอร์มอัตโนมัติ
« เมื่อ: 22 ต.ค. 63 , 16:51:32 »
ผมไปฝั่ง Event ข้อมูลทั้งหมดแล้วกับไม่ยอมปิดแฮะ พอจะมีตัวอย่างบ้างไหมครับคุณ PNR
8
ห้อง MS Access / สั่งปิดฟอร์มอัตโนมัติ
« เมื่อ: 22 ต.ค. 63 , 11:13:27 »
มีฟอร์มทั้งหมด 2 ฟอร์มชื่อ "collection","ข้อมูลทั้งหมด" ทั้ง 2 ฟอร์มพนักงานจะเปิดใช้พร้อมกัน
คำถามคือ ปัจจุบันผมใช้งานอยู่หน้าฟอร์ม collection และจะเปลี่ยนไปใช้หน้าฟอร์ม ข้อมูลทั้งหมด อยากให้ ฟอร์ม collection ปิดอัตโนมัติต้องทำยังไงครับ
คำถามคือ ปัจจุบันผมใช้งานอยู่หน้าฟอร์ม collection และจะเปลี่ยนไปใช้หน้าฟอร์ม ข้อมูลทั้งหมด อยากให้ ฟอร์ม collection ปิดอัตโนมัติต้องทำยังไงครับ
9
ห้อง MS Access / : รวมฟิวส์ Text
« เมื่อ: 02 ก.ย. 63 , 08:53:40 »
ขอบคุณมากๆเลยครับ แต่ตอนนี้ถ้าเกิด text1 เราไม่ต้องการกรอกข้อมูล แต่ตอนรวม มันจะมีค่าเว้นวรรคมาด้วย ถ้าเราไม่ต้องการทำยังไงครับ
11
ห้อง MS Access / รวมฟิวส์ Text
« เมื่อ: 31 ส.ค. 63 , 14:05:21 »
จากรูปจะมี text 4 ตัว
1.Description
2.เบอร์โทร
3.รายงานการติดตาม
4.Total คือเอา 1-3 มารวมกัน
คำถามคือตอนนี้ text รายงานการติดตาม เวลาพิมม์ข้อมูลลงไป ผมอยากให้มัน Update ที่ช่อง Total ทันที ตอนนี้ผมใช้เงื่อนไข After Update อยุ่คือว่ามันต้องคีย์ข้อมูลเสร็จแล้วถึงจะ Update ต้องเขียนแบบไหนครับ
12
ห้อง MS Access / : ภายในวันไม่ให้กรอกข้อมูลซ้ำ
« เมื่อ: 10 ส.ค. 63 , 13:01:26 »
ผมทำได้แล้วครับ แต่ติดตรงที่ว่าถ้าเป็นลูกค้าเคสที่สองเงื่อนไขมันไม่ยอมทำงานไม่รู้ติดตรงไหน ผมแนบไฟล์มาด้วยครับ
13
ห้อง 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 ส่วนไหนหรอครับ
14
ห้อง MS Access / : ภายในวันไม่ให้กรอกข้อมูลซ้ำ
« เมื่อ: 06 ส.ค. 63 , 18:25:01 »
ขอบคุณครับ ตั้งตารอเลยครับ
15
ห้อง MS Access / ภายในวันไม่ให้กรอกข้อมูลซ้ำ
« เมื่อ: 04 ส.ค. 63 , 19:00:08 »
ผมมี subform ชื่อ collection มี combobox ชื่อ result_code โดยจะมีตัวเลือกหลายตัวเลือก กรณีที่พนักงานบันทึกข้อมูลภายในวันแล้วและเลือกตัวเลือก RPP PD BRK แล้วจะไม่สามารถลง RPP PD BRK ซ้ำได้ภายในวันได้อีก แต่ถ้าเป็นตัวเลือกอื่นสามารถเลือกลงซ้ำได้
16
ห้อง MS Access / : เปิดให้ปุ่มทำงานตามงวด
« เมื่อ: 29 ก.ค. 63 , 16:57:59 »
ขอบคุณมากๆครับผมทำได้ละครับ
