การตัดข้อความของ Crosstab Query


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

03 ม.ค. 67 , 13:40:51
อ่าน 374 ครั้ง

ingfahm59

  • สมาชิกไท.Access
  • กระทู้: 29

    • ดูรายละเอียด

การตัดข้อความของ Crosstab Query
« เมื่อ: 03 ม.ค. 67 , 13:40:51 »


1. สร้างฟังก์ชั่นลงใน Module
โค๊ด: [Select]
Function ConcatRelated(expression$, domain$, criterial$)
    Dim db As DAO.Database
    Dim rs As Recordset
    Dim SQLCmd As String
    Dim ConCat As String
 
    Set db = CurrentDb()
    SQLCmd = "SELECT " & expression$ & " FROM " & domain$ & " WHERE " & criterial$
    Set rs = db.OpenRecordset(SQLCmd)
 
    If Not rs.EOF Then
        rs.MoveFirst
    End If
 
    Do While Not rs.EOF
        ConCat = ConCat & rs(0) & "-" ' เครื่องหมายคั่น
        rs.MoveNext
    Loop
   
    If ConCat & "" <> "" Then
        ConcatRelated = Left(ConCat, Len(ConCat) - 2)
    End If
    rs.Close: Set rs = Nothing: Set db = Nothing
End Function

2. สร้างคิวรี่ใหม่ ใส่ SQL
โค๊ด: [Select]
SELECT DISTINCT tbl_slide.tb_labno, ConcatRelated("[tb_slidenum]","[tbl_slide]","[tb_labno]='" & [tbl_slide].[tb_labno] & "'") AS tb_slidenum


ถ้าต้องการตัดตัวเลขหน้า "," ออกให้เหลือแค่ที่ไฮไลต์ทุกๆอัน ต้องแก้ไขโค้ดตรงไหนค่ะ ลองเขียน
บรรทัด ConcatRelated แล้วมันตัดให้แค่ตัวหน้าแค่ตัวเดียวค่ะ

 

03 ม.ค. 67 , 14:35:21
ตอบกลับ #1

OddyWriter

: การตัดข้อความของ Crosstab Query
« ตอบกลับ #1 เมื่อ: 03 ม.ค. 67 , 14:35:21 »
ใช้คำสั่ง

=Right([ชื่อฟิลด์],Len([ชื่อฟิลด์])-InStr([ชื่อฟิลด์],"-"))
รับจ้างทำฐานข้อมูล สอนวางระบบฐานข้อมูล Excel/ Access/ VBA Excel/ VBA Access/ SQL Server/ Database Design
แม้กระทั่งดูดวง ก็ติดต่อได้นะครับ
 

03 ม.ค. 67 , 15:41:23
ตอบกลับ #2

ingfahm59

  • สมาชิกไท.Access
  • กระทู้: 29

    • ดูรายละเอียด

: การตัดข้อความของ Crosstab Query
« ตอบกลับ #2 เมื่อ: 03 ม.ค. 67 , 15:41:23 »
ใช้คำสั่ง

=Right([ชื่อฟิลด์],Len([ชื่อฟิลด์])-InStr([ชื่อฟิลด์],"-"))



ยังไม่ได้ค่ะ ตัดได้แค่ตัวหน้าค่ะ อันต่อไปยังมีด้านหน้าอยู่อ่าค่ะ
ไม่แน่ใจว่าตรงนำโค้ดนี้แทรกไว้ตรงไหนคะ

 

03 ม.ค. 67 , 18:46:52
ตอบกลับ #3

OddyWriter

: การตัดข้อความของ Crosstab Query
« ตอบกลับ #3 เมื่อ: 03 ม.ค. 67 , 18:46:52 »
สรุปแล้วคืออย่างไรครับ ไม่เข้าใจ

tb_Slidenum เนี่ยคือ 1 ฟิลด์เหรอครับ แล้วทำไม ข้อมูลมันเหมือนเอาหลายๆ ฟิลด์มารวมกัน
รับจ้างทำฐานข้อมูล สอนวางระบบฐานข้อมูล Excel/ Access/ VBA Excel/ VBA Access/ SQL Server/ Database Design
แม้กระทั่งดูดวง ก็ติดต่อได้นะครับ
 

05 ม.ค. 67 , 11:29:10
ตอบกลับ #4

Un

: การตัดข้อความของ Crosstab Query
« ตอบกลับ #4 เมื่อ: 05 ม.ค. 67 , 11:29:10 »
ต้องเอาสูตรไปใส่ก่อนที่จะมา Qurey CrossTab

 


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5