แสดงกระทู้

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

หน้า: 1 ... 10 11 12 [13] 14 15 16 ... 32
217
ห้อง MS Access / : สวัสดีค่ะ หนูมีปัญหาเรื่อง Long Text พอ Group By ใน query ข้อความถูกตัดหายไปค่ะ
« เมื่อ: 10 พ.ย. 63 , 12:42:24 »
แก้โค้ดจาก Query อันเดิม เป็นแบบนี้ดูนะครับ
สาเหตุเกิดจากข้อจำกัดของข้อมูล มันจะแสดงแค่ 255 เท่านั้น
ใน Memo Field นั้นสามารถบรรจุได้ถึง 64,000 characters
วิธีที่จะให้คิวรี่แสดงข้อมูลของ Memo field คือการใช้ First ที่ Field ที่เป็น Memo แทน Group By ครับ


โค๊ด: [Select]
SELECT Table1.N1, First(Table1.[รายละเอียด]) AS ส่วนรายละเอียด
FROM Table1
GROUP BY Table1.N1;

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

218
ห้อง MS Access / : สวัสดีค่ะ หนูมีปัญหาเรื่อง Long Text พอ Group By ใน query ข้อความถูกตัดหายไปค่ะ
« เมื่อ: 09 พ.ย. 63 , 08:42:40 »
อ้างจาก: MiKu ที่ 06 พ.ย. 63 , 10:47:43
หนูมี textรายละเอียด เก็บขู้ลแบบ Long Text ข้อมูลนี้มีข้อความยาวมาก พอนำไปทำ qurey ตอนยังไม่ Group By ข้อความมาปกติ พอ Group By ข้อความถูกตัดหายไป พอจะมีธีแก้ไขหรือป่าวค่ะ
คือ หนูจำเป็นต้อง Group By query ไว้ คะ
ทำไฟล์ตัวอย่างคร่าวๆมาได้ไหม
โพสต์นี้ได้รับคำขอบคุณจาก: MiKu

219
ห้อง MS Access / : dlookupผลรวมของรหัสนักศึกษาที่ลงเรียน2วิชาในอาจารย์สอนคนเดียวกัน
« เมื่อ: 09 พ.ย. 63 , 08:29:41 »
Dlookup แก้เป็นแบบนี้ครับ
โค๊ด: [Select]
=DLookUp("[100]","100100","[code] =  '" & [Reports]![scorereport]![code] & "' and [groupName] = '" & [Reports]![scorereport].[groupName] & "'")
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

220
ห้อง MS Access / : Window10+Access2003 Missing COMDLG32.OCX
« เมื่อ: 02 พ.ย. 63 , 19:49:58 »
ลองส่งภาพที่แก้ไข path มาให้ผมดูหน่อยครับ ของไฟล์ activex.bat
ของผมก็ windows 10 64 bit ครับใช้งานได้ปกติ

ไฟล์ตัวนี้รู้สึกว่าจะอยู่ใน vb 6.0 นะครับลองโหลดตัวนี้ไปติดตั้งดูด้วย
https://www.microsoft.com/en-us/download/details.aspx?id=10019

Copy OCX ไฟล์ไปไว้

สำหรับ Windows 64-bit แตกไฟล์
OCX ไปที่: C:\Windows\SysWOW64
จากนั้นคลิกขวาที่
Command Prompt กดเลือด (Admin)
แล้วพิมพ์ แบบนี้เข้าไปในหน้าต่าง CMD

regsvr32 comdlg32.ocx

กด ENTER

คลิปฝรั่งสอน
https://youtu.be/1QQDAchjsm0
โพสต์นี้ได้รับคำขอบคุณจาก: Krathok-man

221
ห้อง MS Access / : สอบถามแนวทางดึงข้อมูลมาคำนวณใหม่เมื่อข้อมูลมีการอัปเดต
« เมื่อ: 02 พ.ย. 63 , 14:14:57 »
อ้างจาก: Jiw Jewel ที่ 02 พ.ย. 63 , 09:13:37
คือว่าสิ่งที่ทำตอนนี้คือ การดึงข้อมูลจากในฐานข้อมูลอื่นมาคำนวณ แล้วบันทึกข้อมูลลงในตารางของเครื่องเราค่ะ

แต่ทีนี้

มันจะมีบางกรณีที่ทำค้างไว้แล้วบันทึกไปก่อน อีกวันก็มาทำต่อ แต่ข้อมูลนั้นคือไม่อัปเดตค่ะ

เช่น เมื่อวานสินค้า AA ราคาขาย 30 บาท
แต่ พอมาวันนี้ข้อมูลมีการอัปเดต สินค้า AA ราคาขาย 40 แต่เมื่อเปิดขึึ่นมาทำต่อ สินค้าAA ก็ยังมีราคาขายอันเดิม จะมีวิธีไหนทำให้ข้อมูลมีการการอัปเดตบ้างคะ โดยที่จะอัปเดตเฉพาะสินค้าที่มีสถานะกำลังทำเนินการ

ใช้ Dlookup มาแสดงได้ครับ
เมื่อสินค้า สถานะกำลังทำเนินการ เราก็กำหนดให้ Field ราคาขาย ไปดึงราคาอัพเดทมาแสดงอัตโนมัติ
วิธีการดึง เช่น UpdatePrice:Dlookup("Price","tblProduct","ProductID =" & txtProductID &"")
จากโค้ดเราก็กำหนดให้ Field UpdatePrice ไปดึง Price จาก ตาราง tblProduct มาแสดง โดยให้ดึงมาจากรายการที่ ProductID ตรงกับ txtProductID บนฟอร์ม
โพสต์นี้ได้รับคำขอบคุณจาก: Jiw Jewel

222
ห้อง MS Access / : Window10+Access2003 Missing COMDLG32.OCX
« เมื่อ: 02 พ.ย. 63 , 13:56:08 »
เอาไฟล์ COMDLG32.OCX ไว้ในโฟลเด้อที่โปรแกรมอยู่

หรือดาวน์โหลด ไฟล์ที่ผมส่งไป จะได้ไฟล์ 2 ไฟล์
ที่ไฟล์ชื่อ ActiveX.bat ใช้โปรแกรม NotePad เข้าไปแก้ Path ที่โฟลเดอร์โปรแกรมอยู่เช่น

Regsvr32 C:\MyprogramFloder\COMDLG32.OCX

แล้วกดเซฟ
แล้วกดดับเบิ้ลคลิ๊กที่ ActiveX.bat เพื่อเป็นการ Copy File ไปติดตั้ง

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

223
ห้อง MS Access / : ปัญหาการทำ Multiple filter ด้วย Listbox หลายๆอันครับ ให้ Filter ตามเงื่อนไข
« เมื่อ: 29 ต.ค. 63 , 13:43:21 »
ทำไมของผมไม่เป็นครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Tatchawin

224
ห้อง MS Access / : ใน query สามารถทำให้แสดง ราคาสินค้าที่ซื้อมาก่อนหน้านี้ได้ไหมค่ะ
« เมื่อ: 29 ต.ค. 63 , 13:17:16 »
อ้างถึง
พอเอาไปคิด not in โปรแกรม ก็จะไม่โชวราคา 30 20 40 ออกมา (หนูเข้าใจถูกหรือป่าวค่ะ)

เข้าใจถูกแล้วครับ ในส่วนคิวรี่ ที่ 2 นั้น ค่าที่ได้มาจะไม่รวม กับ ราคาหลังสุด(คิวรี่ที่ 1)

พอเราได้ คิวรี่  1 กับ 2 แล้ว
ก็ใช้ การ Join Query ในส่วนของ ID เพื่อจะได้ข้อมูลมาต่อกันคือ(คิวรี่ที่3)
โพสต์นี้ได้รับคำขอบคุณจาก: MiKu

225
ห้อง MS Access / : ปัญหาการทำ Multiple filter ด้วย Listbox หลายๆอันครับ ให้ Filter ตามเงื่อนไข
« เมื่อ: 29 ต.ค. 63 , 12:38:23 »
ใช้เงื่อนไขการเช็ค ถ้าไม่มีรายการก็ยกเลิกการทำงานเช่น
Me.lstDepartment.Selected(0) = True

แก้ไขโค้ดเป็นแบบนี้ครับ

โค๊ด: [Select]
If Me.lstDepartment.Selected(0) = True Then
    Exit Sub
    Else
    For Each varItem4 In Me.lstDepartment.ItemsSelected
        strsearch4 = strsearch4 & "," & Me!lstDepartment.ItemData(varItem4)
    Next varItem4
    If strsearch4 = vbEmpty Then
    criteria4 = Null
    Else
        strsearch4 = Right(strsearch4, Len(strsearch4) - 1)
        criteria4 = " And [DepartmentID] in (" & strsearch4 & ")"
    End If
End If
'---------------------------------------------------------------------------------------------------------
If Me.lstSection.Selected(0) = True Then
    Exit Sub
    Else
    For Each varItem5 In Me.lstSection.ItemsSelected
        strsearch5 = strsearch5 & "," & Me!lstSection.ItemData(varItem5)
    Next varItem5
    If strsearch5 = vbEmpty Then
    criteria5 = Null
    Else
        strsearch5 = Right(strsearch5, Len(strsearch5) - 1)
        criteria5 = " And [SectionID] in (" & strsearch5 & ")"
    End If
End If
โพสต์นี้ได้รับคำขอบคุณจาก: Tatchawin

226
ห้อง MS Access / : ใน query สามารถทำให้แสดง ราคาสินค้าที่ซื้อมาก่อนหน้านี้ได้ไหมค่ะ
« เมื่อ: 28 ต.ค. 63 , 14:59:23 »
ได้ครับ :cool: :cool:
โพสต์นี้ได้รับคำขอบคุณจาก: MiKu

227
ห้อง MS Access / : ใน query สามารถทำให้แสดง ราคาสินค้าที่ซื้อมาก่อนหน้านี้ได้ไหมค่ะ
« เมื่อ: 28 ต.ค. 63 , 14:31:30 »
สามารถ รีโมท Anydesk ไปเช็คได้ไหม
ผมส่ง ID LINE ไปทางข้อความนะครับ


ถ้าวิธีนี้ไม่เวิค หรือช้าเกินไป อาจจะหาวิธีอื่นๆ ที่ดีกว่าต่อไปแต่ขอไปเทสก่อน
โพสต์นี้ได้รับคำขอบคุณจาก: MiKu

228
ห้อง MS Access / : ว่าด้วยเรื่องการกำหนดสิทธิ
« เมื่อ: 28 ต.ค. 63 , 10:50:58 »
อ้างจาก: starbuck ที่ 28 ต.ค. 63 , 10:36:42
ในตาราง ของผมมี สมาชิก 2ประเภทโดยจะกำหหนดสิทธิ ให้ได้ว่าสมาชิก ประเภทที่1 สามาใช้งานหนังสือได้5 เล่ม  ประเภทที่2ได้3เล่ม เราจะกำหนดสิทธิ ได้อย่างไรบ้างครับ ผมเขียนโค้ดไม่เก่งเลยนะครับ แต่พอเข้าใจได้ ใครมีตัวอย่างช่วยหน่อยนะครับ
ลองดูกระทู้นี้ครับ
https://www.thai-access.com/yeadram_view.php?topic_id=4158

มีการยกตัวอย่างฟิลล์ในตาราง
การใช้ Dlookup ในการตรวจสอบ user password
ตรง  startform คือการกำหนดให้ เปิดฟอร์มตามที่ User แต่ละคนมีสิทธิครับ


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

229
ห้อง MS Access / : ใน query สามารถทำให้แสดง ราคาสินค้าที่ซื้อมาก่อนหน้านี้ได้ไหมค่ะ
« เมื่อ: 27 ต.ค. 63 , 15:32:03 »
Join table มักเจอปัญหาแบบนี้ครับ ความช้ามาเยือนทันที
มั่นใจใช่ไหมครับว่า ทำตามขั้นตอนแล้วช้า
ข้อมูลสินค้าเยอะขนาดไหนครับ ประมาณกี่เรคคอร์ดได้

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

230
ห้อง MS Access / : ปัญหาการทำ Multiple filter ด้วย Listbox หลายๆอันครับ ให้ Filter ตามเงื่อนไข
« เมื่อ: 27 ต.ค. 63 , 09:13:30 »
ลองดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: sjs, Tatchawin

231
ห้อง MS Access / : ปัญหาการทำ Multiple filter ด้วย Listbox หลายๆอันครับ ให้ Filter ตามเงื่อนไข
« เมื่อ: 25 ต.ค. 63 , 19:53:12 »
แก้โค้ดบรรทัดนี้นะครับ เออเร่อจะหายไป
StrWhere = Nz((criteria1 & criteria2 & criteria3 & criteria4 & criteria5), "")

ปุ่มที่ 1 โจทย์ข้อ 2
โค๊ด: [Select]
Private Sub Cmb1_Click()
Dim sql As String
Dim i As Long
Dim currentMonth As String
Dim NextMonth As String
Dim Criteria As String
With Me.lstYearSort
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstMonthSort
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstSection
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstWorkGroup
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstDepartment
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
currentMonth = Month(Date)
NextMonth = Month(Date) + 1
Criteria = " [MonthNum] in " & "(" & currentMonth & "," & NextMonth & ")"
sql = "SELECT * FROM qryPerDay WHERE" & Criteria
Forms!frmManpower1!frmqryPerDay.Form.RecordSource = sql
End Sub
ปุ่มที่ 2 โจทย์ข้อ 3 ใส่โค้ดแบบนี้
โค๊ด: [Select]
Private Sub Cmb2_Click()
Dim sql As String
Dim i As Long
With Me.lstYearSort
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstMonthSort
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstSection
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstWorkGroup
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstDepartment
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
sql = "SELECT * FROM qryPerDay;"
Forms!frmManpower1!frmqryPerDay.Form.RecordSource = sql
End Sub


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

232
ห้อง MS Access / : ปัญหาการทำ Multiple filter ด้วย Listbox หลายๆอันครับ ให้ Filter ตามเงื่อนไข
« เมื่อ: 24 ต.ค. 63 , 02:45:54 »
ลองดูนะครับ
โค้ดแต่ละ listbox ผมจัดไว้เป็นชุดนะครับ
คงไม่ยาก ยังติดตรงส่วนไหนบอกได้
โพสต์นี้ได้รับคำขอบคุณจาก: Tatchawin

233
ห้อง MS Access / : สั่งปิดฟอร์มอัตโนมัติ
« เมื่อ: 22 ต.ค. 63 , 18:04:31 »
อ่อโค้ดที่ผมส่งไปผมกำหนด Pop Up Form = No
                                 Modal = No ครับ โค้ดถึงจะทำงาน

แต้ถ้า Pop Up = Yes ไม่รู้ทำยังไงเหมือนกัน
 :sweat:

แต่ก็พอมีวิธีอื่นๆที่พอจะทำได้เช่นการ ใช้ Event Click ในฟอร์ม ข้อมูลทั้งหมด
เช่นในส่วนของ
FormHeader_Click()
Detail_Click()
Form_Click()
หรืออื่นๆเพิ่มเติมจากนี้
ทั้งสามอีเว้นนี้ ใส่โค้ดไปทั้งสามจุดว่า
DoCmd.Close acForm, "collection"

เมื่อเราคลิ๊กโดยจุดต่างๆเหล่านี้ ฟอร์ม collection ก็จะปิดทันทีครับ
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung

234
ห้อง MS Access / : ปัญหาการทำ Multiple filter ด้วย Listbox หลายๆอันครับ ให้ Filter ตามเงื่อนไข
« เมื่อ: 22 ต.ค. 63 , 16:35:50 »
ครับพรุ่งนี้จัดให้ครับผม
วันนี้ผมเลิกงานแล้ว
โพสต์นี้ได้รับคำขอบคุณจาก: Tatchawin

หน้า: 1 ... 10 11 12 [13] 14 15 16 ... 32