แสดงกระทู้

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

หน้า: 1 ... 4 5 6 [7]
109
ห้อง MS Access / > สอบถามเรื่องการ update ข้อมูลในตาราง
« เมื่อ: 27 ม.ค. 61 , 18:42:50 »
ไม่รู้ว่าเข้าใจคำถามถูกหรือป่าวนะครับ
ถ้าต้องการ Requery ฟอร์มคนละฟอร์มหลังการ Update ตารางแล้ว ก็ให้ใช้คำสั่งอ้างที่ชื่อฟอร์มตัวเป้าหมายครับ เช่น
คำสั่งที่จะใส่ลงในปุ่มบนฟอร์ม supplier
- เมนฟอร์ม
Forms!ชื่อฟอร์มหลัก.Requery
- ชื่อคอนโทรลในฟอร์มหลัก
Forms!ชื่อฟอร์มหลัก.ชื่อคอนโทรล
- ซับฟอร์ม
Forms!ชื่อฟอร์มหลัก!ชื่อซับฟอร์ม.Form.Requery
- ชื่อคอนโทรลในซับฟอร์ม
Forms!ชื่อฟอร์มหลัก!ชื่อซับฟอร์ม.Form.ชื่อคอนโทรล.Requery

โดยเลือกใช้ดูว่าถ้า Requery เฉพาะตัวคอนโทรลเป้าหมายจะได้ผลลัพธ์ที่ต้องการหรือไม่ ถ้าไม่ค่อย Requery ทั้งฟอร์มแทน ทั้งนี้ขึ้นอยู่กับการออกแบบ

อะไรประมาณนี้ครับ

110
ห้อง MS Access / > รวมข้อมูลจากหลายฟิวส์เป็นฟิวส์เดียว
« เมื่อ: 24 ม.ค. 61 , 10:21:12 »
สมมุติตารางคุณชื่อ Table1

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 Table1.[รหัสใบสั่งซื้อ], ConcatRelated("รายการ","Table1","รหัสใบสั่งซื้อ=" & [รหัสใบสั่งซื้อ]) AS รวมรายการ
FROM Table1
GROUP BY Table1.[รหัสใบสั่งซื้อ];

ประมาณนี้ ปรับใช้ดูครับ

หน้า: 1 ... 4 5 6 [7]