แสดงกระทู้

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

หน้า: [1] 2 3
1
ห้อง MS Access / : รวมฟิวส์ Text
« เมื่อ: 02 ก.ย. 63 , 08:53:40 »
ขอบคุณมากๆเลยครับ แต่ตอนนี้ถ้าเกิด text1 เราไม่ต้องการกรอกข้อมูล แต่ตอนรวม มันจะมีค่าเว้นวรรคมาด้วย ถ้าเราไม่ต้องการทำยังไงครับ

2
ห้อง MS Access / : รวมฟิวส์ Text
« เมื่อ: 31 ส.ค. 63 , 15:37:57 »
ขอบคุณครับมากครับ

3
ห้อง MS Access / รวมฟิวส์ Text
« เมื่อ: 31 ส.ค. 63 , 14:05:21 »

จากรูปจะมี text 4 ตัว
1.Description
2.เบอร์โทร
3.รายงานการติดตาม
4.Total คือเอา 1-3 มารวมกัน
คำถามคือตอนนี้ text รายงานการติดตาม เวลาพิมม์ข้อมูลลงไป ผมอยากให้มัน Update ที่ช่อง Total ทันที ตอนนี้ผมใช้เงื่อนไข After Update อยุ่คือว่ามันต้องคีย์ข้อมูลเสร็จแล้วถึงจะ Update ต้องเขียนแบบไหนครับ



4
ผมทำได้แล้วครับ แต่ติดตรงที่ว่าถ้าเป็นลูกค้าเคสที่สองเงื่อนไขมันไม่ยอมทำงานไม่รู้ติดตรงไหน ผมแนบไฟล์มาด้วยครับ

5
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 ส่วนไหนหรอครับ


6
ขอบคุณครับ ตั้งตารอเลยครับ

7
ผมมี subform ชื่อ collection มี combobox ชื่อ result_code โดยจะมีตัวเลือกหลายตัวเลือก กรณีที่พนักงานบันทึกข้อมูลภายในวันแล้วและเลือกตัวเลือก RPP PD BRK แล้วจะไม่สามารถลง RPP PD BRK ซ้ำได้ภายในวันได้อีก แต่ถ้าเป็นตัวเลือกอื่นสามารถเลือกลงซ้ำได้


8
ขอบคุณมากๆครับผมทำได้ละครับ

9
ไม่แน่ใจว่าต้องใช้ iif หรือป่าวมันถึงจะทำงานสมบูรณ์ผมก็เขียนไม่เป็นเหมือนกันครับ

10


อย่ากให้ปุ่มทำงาน Enabled โดยอ้างอิงจากฟิวส์งวด เช่นถ้าขึ้น 2 งวดปุ่ม 2 งวดจะใช้งานได้ปุ่มอื่นจะไม่สามารถใช้งานได้ False ตามตัวอย่างที่ทำให้ดูครับ

11
ห้อง MS Access / ตัวอย่างระบบ Login แบบมี Level
« เมื่อ: 30 มิ.ย. 63 , 18:05:08 »
ท่านใดมีตัวอย่างระบบ Login แบบแยก Level ฝากขอนำไปเรียนรู้ตัวอย่างหน่อยครับพอดีเพิ่งหัดเขียนได้ระดับนึงยังไม่ค่อยเก่ง
ขอบคุณมากครับ

12
ขอบพระคุณอาจารย์มากๆครับ

13
อ.สันติสุข ขอถามเพิ่มครับถ้าเราจะบังคับให้มีอักขระพิเศษด้วยต้องทำยังไงครับ

14
ขอบคุณอ.สันติสุขมากครับ

15
บังคับให้ User ตั้งรหัสผ่านตัวอักษร 8 ตัว โดยต้องมีตัวอักษรกับตัวเลข  รวมกันได้ 8 ตัวอักษร ต้องทำยังไงครับ

16
ได้แล้วครับขอบคุณ คุณ PNR มากเลยครับ

หน้า: [1] 2 3