แสดงกระทู้
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.
สวัสดีค่ะ
มีวิธีที่ทำให้ Query โชว์ค่าล่าสุดแค่ค่าเดียวได้มั้ยคะ
Table ชื่อ : 7515
field: ID PartNumber Week
1 05 38
2 09 40
3 77 40
อยากให้โชว์ใน Query เป็น
ID PartNumber Week
3 77 40
ข้อมูลจะมีการอัพเดทเรื่อยๆ อยากให้วิธีทำที่ง่ายที่สุด เพราะพึ่งเริ่มเรียนรู้ Access ค่ะ
ขอบคุณนะคะรบกวนด้วย
เราใช้ฟอนท์ Wingding สำหรับเท็กซ์บ็อกซ์เพื่อแสดงรูปสัญญลักษณ์ได้ สมมุติ P คือชื่อฟิลด์ที่เก็บ path ของรูป ก็กำหนด Control Source ของเท็กซ์บ็อกซ์ที่แสดงสัญญลักษณ์เป็น =IIf(nz([P],"")="","","*") มันก็จะแสดงสัญญักษณ์ จดหมาย (เพราะหาไม่เจอสัญญลักษณ์รูป คลิป) ถ้าอยากได้สัญญลักษณ์อื่นๆ ก็เปิดโปรแกรม Character Map ที่มากับวินโดว์อยู่แล้ว เลือกฟอนท์ Webding, Wingding(1-3) เอาตัวไหนก็ดับเบิลคลิกรูปแล้วคลิกปุ่ม Copy กลับมาที่ expression ข้างบน กดคีย์ paste ลงแทนที่ * ได้เลยครับ
ผมมีโค้ดตัวนึง ลองเอาโค้ดนี้ไปใช้ดู แต่ไม่ยืนยันนะครับว่าจะถูกต้อง 100% หรือไม่โค๊ด: [Select]Public Sub CutLastCRLF(aFullFileNM As String)จะเรียกใช้ก็สั่ง Call CutLastCRLF("Drive:\Path\File.txt") มันจะเขียนทับไฟล์เดิมครับ
Dim B As String * 1
Dim S As String
Dim L As Long
Open aFullFileNM For Binary Access Read As #1
Do Until EOF(1)
Get #1, , B
S = S & B
Loop
Close #1
If Right(S, 3) <> vbCr & vbLf & vbNullChar Then
Exit Sub
End If
S = Left(S, Len(S) - 3)
On Error Resume Next
Kill aFullFileNM
On Error GoTo 0
Open aFullFileNM For Binary Access Write As #1
Put #1, , S
Close #1
End Sub
ไม่รู้นะครับว่าเครื่องพิมพ์คุณทำงานยังไง แต่ถ้าลบบรรทัดสุดท้ายไม่ขึ้นบรรทัดใหม่ แก้ไขเองด้วยมือเลย ยังจะมีพิมพ์กระดาษเปล่าออกมาไหม
